| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Stargazer ©   (2003-07-02 21:29:00) 

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

С уважением.

---

Stargazer   (2003-07-02 23:31:00) [1]

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

---

BelchonokH   (2003-07-02 22:16:00) [2]

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

---

Stargazer   (2003-07-02 22:00:00) [3]

Народ.ру подкачал, ссылка не работает.
Вот текст программы - если без иконки, то текст на кнопке не двигается, в отличие от обычной кнопки. Может так и надо?

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.




---

Наверх