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

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

Перерисовка контрола [D7, WinXP]


-=Germe$=- ©   (2006-07-27 06:49:00) 

Как перерисовать контрол, например TButton, при работе программы?


Степан   (2006-07-27 10:08:00) [1]

Попиксельный вывод битмапов Виндой не поддерживается :))


ЮЮ   (2006-07-27 09:53:00) [2]

Код TBitBtn-а, наследника TButton, имеющего картинку, находится в исходниках VCL, модуль Buttons.

Правда, оказываетс, там обрабатывается  CN_DRAWITEM

procedure TBitBtn.CNDrawItem(var Message: TWMDrawItem);
begin
 DrawItem(Message.DrawItemStruct^);
end;
   
procedure TBitBtn.DrawItem(const DrawItemStruct: TDrawItemStruct);

<собственно код отрисовки>

См. компонент TBitBtn на закладке Additional озачает ВОЗЬМИ КОМПОНЕНТ  TBitBtn  вместо TButton, назначь ему картинку и не парься.


-=Germe$=-   (2006-07-27 09:40:00) [3]

А код мона?


ЮЮ   (2006-07-27 08:25:00) [4]

Тогда перекрыть его метод Paint.

P.S. См. компонент TBitBtn на закладке Additional


-=Germe$=-   (2006-07-27 07:06:00) [5]

Не совсем перерисовать... Взять к примеру битмап и попиксельно его нанести на контрол... Издевательство.... Или как его(битмап) наложить на контрол?


Джо   (2006-07-27 06:59:00) [6]

Вызвать его метод Repaint.


Наверх

Титульная страница Поиск, карта сайта Написать письмо