Круглая кнопка

← →
asdqwer (2002-09-14 07:47) [0]

У меня такая проблема: нужно создать круглую кнопку, причем красивую (т.е. не плоскую, а как обычно). Добавление Canvas с SetWindowRgn не позволяет этого сделать (плоская). Заранее спасибо.

← →
Алексей Ким (2002-09-14 10:17) [1]

а как насчет сделать сетвиндавргн и на тот же канвас рисовать ее
красивой?

← →
Denvor (2002-09-15 04:34) [2]

И не надо рвать себе волосы - Билли обо всём позаботился, кроме нормальной литературы на русском языке!
Все очень просто. При создании кнопки выставляешь ей стиль WS_OWNERDRAW. Например так:
CreateWindowEx(0, "BUTTON", "Button", BS_OWNERDRAW or WS_CHILD or WS_VISIBLE, 10, 10, 12! 0, 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

Вот, в принципе, и все.

← →
Diamond Cat (2002-09-16 00:50) [3]

Могу слить готовый компонент пиши на почту о желании получить

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