Farbigen Rand um Form zeichnen

[renekr]

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.

[patti]

Evtl. kannst du in den Hintergrund deines Formulars eine Paintbox legen und bei deren OnPaint-Ereignis einfach den Rahmen zeichnen. Das Stichwort "RoundRect" sollte dir da schonmal weiterhelfen

MFG

[Helmi]

Hallo,

ich hab auch mal eine Form mit gerundeten Ecken gebaut und ebenfalls auch mit einem farbigen Rand.

Ich hab das damals so gelöst:

Delphi-Quellcode:

procedure TMainForm.FormPaint(Sender: TObject);
const
  Pen_Width = 2;
  Round_C   = 20;
begin
  with MainForm.Canvas do
    begin
      // Rahmen um die Form aufbauen
      Pen.Width  := Pen_Width;
      Pen.Color  := clBlack;
      Pen.Style  := psInsideFrame;
      RoundRect(0, 0, Width - Pen_Width, Height - Pen_Width, Round_C, Round_C);
    end;
end;

[patti]

Das entspricht in etwa meinem Vorschlag, nur dass ich das ganze auf eine extra PaintBox machen würde.

[renekr]

Hi Helmi,

Vielen Dank.
Binfrüher nicht dazu gekommen.
Aber habs so hinbekommen.

Danke