Как управлять прорисовкой кнопки?

← →
boband (2004-07-13 00:41) [0]

Здраствуйте!
Суть в следующем:
Создал своего наследника от TButton, изменил c помощью SetWindowRgn ее форму. Работает... Теперь внутренности кнопки надо прорисовывать, а код:
...
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
...
procedure TMyBtnClass.WMPaint(var Message: TWMPaint);
var
DC: HDC;
PS: TPaintStruct;
begin
inherited;
DC := BeginPaint(Handle, PS);
MoveToEx(DC,2,2,nil);
LineTo(DC,Width,Height);
EndPaint(Handle, PS);
end;
Почему не рисует ничего :-(
Может я чего не так делаю? Подскажите плиз.

Заранее спасибо.

← →
MBo © (2004-07-13 08:00) [1]

При создании кнопки в стиль должно быть включено BS_OWNERDRAW.
Понадобится обработка сообщений CN_MEASUREITEM и CN_DRAWITEM.
Для примера посмотри исходники TBitBtn.

← →
MBo © (2004-07-13 08:12) [2]

хм... пред. ответ со страницы форума не видно ;)

← →
boband (2004-07-13 19:55) [3]

Спасибо. Теперь все работает!!!

Как управлять прорисовкой кнопки? Найти похожие ветки