Tegn en kant på formen
Hvordan tegner jeg en kant på formen med en width på 2?Jeg bruger Jens Borrisholt's metode til at give min form afrundet hjørner, med denne kode:
procedure DrawRoundRectRegion(wnd: HWND; wrect: TRect);
var
Rgn : HRGN;
begin
rgn := CreateRoundRectRgn(Wrect.Left, Wrect.Top, Wrect.Right+1, Wrect.Bottom+1, (45), (45));
SetWindowRgn(Wnd, Rgn, TRUE);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DrawRoundRectRegion(Handle, ClientRect);
end;
Jeg vil bare gerne give formen's kant en sort farve...
