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

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

Круглая кнопка [D6, WinXP]

asdqwer ©   (2002-09-14 07:47:00) 

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

---

Diamond Cat   (2002-09-16 00:50:00) [1]

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

---

Denvor   (2002-09-15 04:34:00) [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

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

---

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

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

---

Наверх