Как отлепить иконку в BitBtn?

← →
Stargazer © (2003-07-02 21:29) [0]

Я уже писал про залипание раньше, но добрые советы не помогли - иконка по-прежнему прилипает к кнопке.
Как в Delphi, так и в FPC - одинаково!
Помогите, люди добрые, разъясните - что не так.
Вот ссылка на работающий пример - поглядите, пожалуйста:
http://lunarglobe.narod.ru/other/testbitbtn.zip

С уважением.

← →
Stargazer © (2003-07-02 22:00) [1]

Народ.ру подкачал, ссылка не работает.
Вот текст программы - если без иконки, то текст на кнопке не двигается, в отличие от обычной кнопки. Может так и надо?
program Button; {$APPTYPE GUI} //{$R BUTTON.RES} uses windows, messages, kol; var W, B1, B2 : PControl; procedure TestObjs; begin W := NewForm( Applet, "TBitBtn test" ).SetSize(200,200); if Applet = nil then Applet := W; B1 := NewButton(W, "Press me").PlaceRight.SetSize(120,50); B2 := NewBitBtn(W, "and me, plz..", [{bboNoCaption}], glyphLeft, 0 {LoadBitmap(hInstance, "BUTTON")}, 0).PlaceUnder.SetSize(120,50); Run(W); end; begin TestObjs; end.

← →
BelchonokH © (2003-07-02 22:16) [2]

Ссылка работает! Может во время отпускания кнопки мыши спрятать и тут же показать кнопку?

BelchonokH, спасибо за идею, только что попробовал - ничего.
Зато заметил одну штуку - текст залипает, только если ширина кнопки меньше длины подписи. Если кнопку сделать чуть шире, чтобы текст влезал полностью - текст не двигается вообще. Как и иконка.
Че-то я не понимаю, а вот чего - никак не пойму...

Как отлепить иконку в BitBtn? Найти похожие ветки