Скачать: CL | DM;

Дайти кто-нибудь простинький кодик как сделать кнопку круглой?   Найти похожие ветки 

← →
snoup ©   (2002-04-11 22:55) [0]

Дайти кто-нибудь простинький кодик как сделать кнопку круглой?

---

← →
kopachev   (2002-04-11 23:53) [1]

На www.source.ru я видел класс кнопки на C++

---

← →
Fantasist   (2002-04-12 00:15) [2]

Простенький.


procedure TForm1.Button1Click(Sender: TObject);
var
rg:HRGN;
dc:HDC;
begin
rg:=0;
rg:=CreateEllipticRgn(1,1,40,40);
SetWindowRgn(Button1.Handle,rg,true);
DeleteObject(rg);
Canvas.Ellipse(Button1.Left,Button1.Top,Button1.Left+40,Button1.Top+40);
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c