Форум: "KOL";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
Как отлепить иконку в 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 вся ветка
Форум: "KOL";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.212 c
