Paintbox wird nicht gefärbt

[heel213]

Hallo Leude!
Und zwar habe ich mal wieder eine kleine Frage,
ich will aus ästhetischen Gründen gerne ein paar farbige Boxen in mein Programm einbauen.
Also habe ich mir kurzerhand drei Paintboxen erstellt und in den Eigenschaften bei Color rot eingestellt.
Allerdings ist dort, wo die Boxen sein sollten, überhaupt nichts zu sehen.
Ich habe in dem Programm selber noch nichts an den Paintboxen geändert, sie sind lediglich auf sichtbar gestellt und die Farbe wurde geändert.
Vielen Dank schonmal! :)

[Aviator]

Die PaintBox ist zum Zeichnen im OnPaint Event gedacht. Erstelle einen EventHandler für OnPaint und füge folgende Zeilen ein:

Delphi-Quellcode:

PaintBox1.Canvas.Brush.Color := clRed;  //Oder welche Farbe auch immer du willst
PaintBox1.Canvas.FillRect(PaintBox1.Canvas.ClipRect);

Das sollte zumindest mal auf das hinauslaufen was du eigentlich vor hast. :wink:

[himitsu]

TPaintBox

Zitat:

Beschreibung

TPaintBox stellt Anwendungsprogrammen eine Zeichenfläche für die Ausgabe von Bildern zur Verfügung.

Mit TPaintBox können Sie einem Formular benutzerdefinierte Bilder hinzufügen. Im Gegensatz zu TImage-Objekten, die Bilder aus einer Bitmap-, Symbol- oder Metadatei anzeigen, muss die Anwendung bei TPaintBox das Bild direkt auf der Zeichenfläche selbst erzeugen. Mit der Ereignisbehandlungsroutine OnPaint zeichnen Sie auf die Zeichenfläche der TPaintBox-Komponente.

Ich habe mal gehört, dass es Leute geben soll, die tatsächlich lesen was in der Hilfe drin steht.

TShape
:roll: