Hallo,
Ich habe eine Form mit borderstyle = none.
So nun habe ich der Form auch noch Runde Ecken gemacht und würde nun gerne auch noch eine Farbige Linie um die Form zeichnen.
Nur macht er um die Ecke keine Farbe hin und auch unten und rechts nicht wenn ich die Ecken gerundet habe.
Code fürs Farbig machen.
Farbigen Rand
Code zum Runden:
Delphi-Quellcode:
procedure TForm1.Make_Form_Round;
var
rgn: HRGN;
begin
// Form1.Borderstyle := bsNone;
rgn := CreateRoundRectRgn(0,
// x-coordinate of the region's upper-left corner
0,
// y-coordinate of the region's upper-left corner
ClientWidth,
// x-coordinate of the region's lower-right corner
ClientHeight,
// y-coordinate of the region's lower-right corner
30,
// height of ellipse for rounded corners
30);
// width of ellipse for rounded corners
SetWindowRgn(
Handle, rgn, True);
end;
Kann mir ev. jemand einen Tipp geben ?
Vielen Dank.