Текущий архив: 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.014 c
