Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Закрасить кнопку, (также вопрос к Ю.ЗОТОВУ) 


Dimaond Cat   (2001-12-18 01:25) [0]

Создаю кнопку от Tbutton. Хочу сделать ее допустим черного цвета,
b:=Tbutton.Create(self);
with b do
begin
visible:=false;
ParentWindow:=Panel1.Handle;
cursor:=crSizeNS;
b.OnMouseMove:=butmov;
Fillrect(getdc(b.handle),b.ClientRect,7);
fillrect помогает только сначала далее при ее перекрывании другим окном или при ее нажатии она меняет цвет на некий стандартный. Как сделать эту заразу постоянно черной

И к Юрию Зотову, Юрий я посеял твой адрес, и это меня очень удручает, черкни пару слов



Mbo   (2001-12-18 06:59) [1]

так кнопка -наследник от tbutton или все-таки tbutton?
если наследник, в методе Paint закрашивай.



Юрий Зотов   (2001-12-18 15:02) [2]

Черкну. А по сабжу, есс-но, надо WM_PAINT и/или WM_ERASEBACKGND обрабатывать. А если цвет не должен меняться, то еще проще - в стилях окна прописать черную кисть.

И еще. Fillrect(getdc(b.handle)...) - это плохо. Кто потом этот DC освобождать будет? И как? Хэндла-то уже нет, он же не был запомнен. Вот и идет утечка ресурсов.



nikkie   (2001-12-18 19:16) [3]

мне кажется для изменения внешнего вида кнопки правильнее использовать стиль BS_OWNERDRAW и рисовать в ответ на сообщение WM_DRAWITEM



Dimaond Cat   (2001-12-19 00:41) [4]

Всем спасибо, помогло исправление стиля окна. обработка сообщений типа wm_paint дает некий результат но с некоторыми ошибками.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
7-57238           c102011               2001-11-14 07:33  2002.02.18  
Delphi5 и принтер HP LaserJet 1100


14-57196          programmer1           2001-12-27 19:25  2002.02.18  
Динамическая подгрузка dll библиотеки


6-57162           Диман                 2001-11-28 12:14  2002.02.18  
методы Socket и Connect (и т.п.) в модуле WinSock - как вызывать?


3-56995           vopros                2002-01-22 15:03  2002.02.18  
Опять paradox. опять индексы...Теперь пишет Index is ReadOnly


3-57005           nastuha               2002-01-18 09:50  2002.02.18  
Пожалуйста помогите советом в реализации метакуба..