Текущий архив: 2003.05.01;
Скачать: CL | DM;

Вниз

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

← →
tytus ©   (2003-04-18 14:43) [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,10,2,2);
setwindowrgn(handle,rgn,true);
end;
Application.Run;
end.

---

← →
Игорь Шевченко ©   (2003-04-18 14:45) [1]

procedure TfRgnDialog.Paint;
// Рисуем окантовку вокруг формы
var
HFrameBrush : HBRUSH;
DC : HDC;
Rgn : HRGN;
begin
{ Цвет окантовки - черный }
HFrameBrush := CreateSolidBrush(clBlack);
DC := GetWindowDC(Handle);
{ Создать регион, куда будут копироваться области окна. Насколько я понимаю,
он должен изначально быть заведомо больше. }
Rgn := CreateRectRgnIndirect (BoundsRect);
GetWindowRgn(Handle, Rgn);
try
FrameRgn (DC, Rgn, HFrameBrush, 1, 1);
finally
ReleaseDC(Handle, DC);
DeleteObject(HFrameBrush);
DeleteObject(Rgn);
end;
end;


---

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

Текущий архив: 2003.05.01;
Скачать: CL | DM;

Наверх

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