![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Button [D6, WinXP]
Igor_thief © (2002-01-24 15:26:00)Народ, может кто знает как сделать кнопочку нестандартной формы?
Igor_thief (2002-01-25 12:45:00) [1]Огромнейшее спасибо всем, а оссобенно 2 Raptor.
Raptor (2002-01-25 12:32:00) [2]2 Igor_thief
Все очень просто. При создании кнопки выставляешь ей стиль WS_OWNERDRAW. Например так:
CreateWindowEx(0, "BUTTON", "Button", BS_OWNERDRAW or WS_CHILD or WS_VISIBLE, 10, 10, 120, 40, Wnd, 100, hInstance, NIL);
Потом в оконной процедуре окна, которому принадлежит кнопка, обрабатываешь событие WM_DRAWITEM. Например так:
Function WindowProc(wnd : HWND; Msg : Integer; WParam : WParam; LParam : Longint): Longint; stdcall;
Var
DrawStruct:PDRAWITEMSTRUCT;
DC:HDC;
Case msg Of
....................
WM_DRAWITEM:Case wParam Of
100:Begin//Наша кнопка
DrawStruct:=PDRAWITEMSTRUCT(lParam);
DC:=DrawStruct.hDC;
//Здесь рисуем на DC кнопки разные ее
//состояния (нажата, не нажата,
//фокусированая) в соответствии с
//информацией предоставляемой нам в
//DrawStruct.itemState и
//DrawStruct.itemAction
.............................
//Сообщаем что кнопка успешно нарисована
Result:=Integer(True);
End;
End;//case
...........................
else Result := DefWindowProc(wnd, msg, wparam, lparam);
End;//Case msg
End;//Func
Вот, в принципе, и все.
Evgeny (2002-01-25 06:11:00) [3]Можно обойтись и без регионов. Обычные битмапы вполне подойдут.
MrAngel (2002-01-24 16:49:00) [4]Очень даже просто. Здесь идёт работа с регионами (ключевое слово в MSDN - Regions). А вообще тебе ещё надо будет ету кнопку правильно нарисовать... но то что здесь задействованы регионы это точно. Сам этим когда то баловался.
valery_f (2002-01-24 15:54:00) [5]Да как, берешь и делаешь :)) В смысле - своя компонента со своей отрисовкой. А вообще - этим многие занимались, так что полазь по свалкам компонент.