Rahmen um ein Rechteck zeichnen

[luckystar85]

Moin, moin!!!

Ich zeichne mir ein Rechteckt mit:

Delphi-Quellcode:

Canvas.FillRect(Rect);

Das funzt auch wunderbar. Jetzt möchte ich darum nur noch einen Rahmen zeichnen. Mein Ansatz wäre bei 0,0 mit MoveTo jetzt nach links unten zu gehen denn weiter nach rechts unten und denn nach rechts oben und denn nach links oben. Also alle Seiten mit dem Stift abfahren und so den Rahmen zeichnen. Geht das noch irgendwie einfacher oder besser/schneller?

[Luckie]

TCanvas kennt auch noch die Methode Rectangle mit der man ein Rechteck zeichnen kann.

[Neutral General]

...Und mit Rectangle malst du dann ein großes Rechteck und dann ein kleines darein das nur 1px kleiner überall ist und dann hast du einen Rand.

[luckystar85]

Ich habe es jetzt so gemacht:

Delphi-Quellcode:

Canvas.Pen.Color := clWhite;
Canvas.Brush.Color := clBtnFace;
Canvas.Rectangle(Rect);

Damit zeichne ich einen weissen Rahmen und der Rest wird Grau. So wie ich es will. Danke für die schnelle Hilfe.

[Sharky]

Hai luckystar,

ich stelle jetzt mal die Frage: Wo möchtest Du das zeichnen und zu welchem Zweck?

Ich "hoffe" das Du nicht versuchst irgendein Steuerlement nachzubilden. Dafür bietet dir Windows doch genügend standartisierte Objekte.

Alles andere macht Dir nur arbeit und verwiert den Anwender.

[luckystar85]

Nein ich will kein Steuerelement nachbilden. Ich wollte ein Rechteck haben, das eingerahmt ist und wo ich denn mit TextOut innerhalb des Rahmens einen Text schreiben kann.