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);

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