Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Как отлепить иконку в 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]

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

---

← →
Stargazer ©   (2003-07-02 23:31) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.079 c