Помогите создать кнопку

← →
Виктор007 (2007-10-23 17:00) [0]

Здравствуйте. Уже третий день маюсь. Объясните как создать кнопку с глифом слева и с WordWrap.

Bitbtn всем устраивает, но у него нет переноса строк.
А Button, если загрузить картинку - у неё нет прозрачности, а если включены стили XP (используется манифест) то вообще картинку на Button не поместить...

Смотрел пример DemoWordWrapBitBtn.zip
Но тогда при включеных темах XP не отображается ореол у кнопки при наведении.

Delphi5, Kol&MCK 2.83

← →
homm © (2007-10-23 17:03) [1]

> [0] Виктор007 (23.10.07 17:00)
> Но тогда при включеных темах XP не отображается ореол у
> кнопки при наведении.

Есть там флаг, не знаю на сколько сейчас актуален, который включает WM_ENTER\LEAVEMOUSE дл графических контролов. Идет в описании всез дереутив сразу за GRAPHCTRL_THEMES (или как его там).

← →
homm © (2007-10-23 17:05) [2]

Ясно что коряво объяснил… :)
Ищи что-то где-то в директивах условной компиляции… :)

← →
Vladimir Kladov © (2007-10-23 18:19) [3]

Я уже говорил недавно, как поместить картинку на обычную кнопку, которая не BitBtn. Любую, хоть прозрачную, хоть гиф анимированный. Хоть чёрта лысого, или даже кучу чертей. MCK: Button.AcceptChildren + бросаем что надо, настраиваем и расплагаем как пожелаем. Не забываем MouseTransparent + Transparent для брошенного.

← →
Виктор007 (2007-10-23 18:48) [4]

Спасибо!!!

Помогите создать кнопку Найти похожие ветки