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

button   Найти похожие ветки 

← →
tytus ©   (2003-04-19 10:33) [0]

Помоготе разобраться. Рисую кнопку с закругленными углами. А вот обвести ее регион не получаеться. В чем причина?
{$R *.res}
var rgn:Cardinal;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
with form1.Canvas, form1.Button1 do begin
rgn:=createroundrectrgn(0,0,width,height,15,15);
framergn(handle,rgn,100,2,2);
setwindowrgn(handle,rgn,true);???????
end;
Application.Run;
end.

---

← →
Songoku ©   (2003-04-19 12:13) [1]

А что ты хотел что бы что при изменении формы кнопки менялся и регеон??? Нет. Такого в Windows нету. Если хочешь что бы кнопка достойно выгледела, нарисуй сам регион!!!

---

← →
MBo ©   (2003-04-19 13:30) [2]

найди во второй строке 2 отличия от своего варианта

rgn:=createroundrectrgn(0,0,ClientWidth,ClientHeight,15,15);
framergn(Canvas.handle,rgn,Canvas.Brush.Handle,2,2);

---

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

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



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