Rahmen von Panel

[[TP]Hawk274]

Ich habe einen Panel und möchte diesem gerne eine Randfarbe geben.
Dieses wollte ich folgendermaßen im OnPaint Ereignis vom Dialog machen:

Delphi-Quellcode:

  Canvas.Pen.Color := clSkyBlue;
  Canvas.Rectangle(Panel1.Top,Panel1.Left,Panel1.Top+Panel1.Width,Panel1.Left+Panel1.Width);

Leider stimmen die Koordinaten nicht überein. Was habe ich falschgemacht?

[nailor]

Falls das überhaupt so geht musst du aus einem width -> height machen...

[[TP]Hawk274]

Zitat:

aus einem width -> height machen

Warum denn das? Muss ich ihm nicht sagen wo der Punkt liegt?
Stelle mir das visuell so ungefähr vor:
Param1 * * * * * * * * Param3
. * * * * * * * * * * * * * .
. * * * * * * * * * * * * * .
. * * * * * * * * * * * * * .
. * * * * * * * * * * * * * .
Param2 * * * * * * * * Param4

Verstehe ich jetzt irgendwas falsch?

[nailor]

Nein, du brauchst den x- und y-Wert von der Ecke oben links und unten rechts. Und

Delphi-Quellcode:

(Panel1.Top,Panel1.Left,Panel1.Top+Panel1.Width,Panel1.Left+Panel1.Width); // ist Mist --->

(Panel1.Top,Panel1.Left,Panel1.Top+Panel1.HEIGHT{!!!!!!!!!!!!!!!!!!},Panel1.Left+Panel1.Width);

[hboy]

Ah schön das jemand mit panels probleme hat. ich habe eine routine geschrieben die den Hintergrund meiner Form kachelt (mit nem Bild). Aber wo ist der OnPaint-event vom panel ?
Gibt es eine Alternative zum Panel, bei dem ich ohne neuschreiben einer Kompo ins Zeichnen eingreifen kann ?

Danke schon mal im Voraus

[Splinter]

Mit der Komponente PieTools kann man solche optischen dinge sehr leicht und komfortabel machen.
Für dieses eine Problem lohnt es sich vielleicht nicht aber das kann man immer gebrauchen um an seinen progs optisch bissel zu feilen.

[maximov]

Ähmm...ich würde das auf das lokale canvas des panels malen

panel1.Canvas.Rectangle(0,0,panel1.panel1.ClientWidth,panel1.panel1.ClientHight); Am besten aber eine klasse ableiten und paint überschreiben.

[hboy]

Panel1.Canvas.Rectangle(0,0,100,100); [Fehler] hwedmain.pas(35): Undefinierter Bezeichner: 'Canvas'