PaintBox.clear will nicht so recht

[Latze]

Ich steh schon wieder blöd vor der Wand:

Ich will eine Druckvorschau in einer PaintBox erstellen. Ich hab also sinnigerweise den Hintergrund auf clWhite und ParentColor auf false. Die PaintBox erscheint aber eben doch in der Farbe des Forms. Eine Textausgabe erscheint mit weißem Hintergrund. Wenn ich bei FormCreate PaintBox.clear setze, bringt es nichts. Aus 'Verzweiflung' hab ich einen zusätzlichen Button mit der Funktion PaintBox.clear erstellt und mehrfaches (2×) klicken löscht dann wirklich die PaintBox, wenn sie noch leer ist. Schreib ich zuerst etwas in die Box (Druckvorschau) wird sie sofort gelöscht.

Jemand 'nen Tip?

[theo]

Füllen?

Code: Alles auswählen

PaintBox1.Canvas.Brush.Color:=clred;
 PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);

[pluto]

Um eine Clear Funktion zu erstellen musst du legendlich alles einmal in einer Farbe übermalen.
(Der Kommentar zu Theo's Code*G*)

[Latze]

Ich muss da wohl noch 'nen anderen Fehler dabei haben. Den Code habe ich in TForm1.FormCreate eingefügt, es funktioniert nur leider nicht, PaintBox1 bleibt grau. Ich habe auch noch ein PaintBox1.Canvas.Refresh dahinter gepackt, leider auch nichts. PaintBox hat da wohl noch ein Geheimnis für mich.

[theo]

Vllt. besser auf TPaintBox verzichten und sowas machen:
http://wiki.lazarus.freepascal.org/Deve ... t_zeichnet

[Latze]

Danke, ich werde es mal damit probieren. Aber eins interessiert mich dann doch noch: Bin ich zu blöd für PaintBox, sollte ich mein System mal kontrollieren oder gibt es in der PaintBox einfach noch ein paar Bugs?

[theo]

Keine Anhnung.
Der Sinn von TPaintBox hat sich mir noch nie so ganz erschlossen. Ich benutze das Ding nie.

[Latze]

Dann bin ich wenigstens nicht allein. Text ausgeben schaff ich, Linien zeichnen auch... In FormCreate will bei mir nichts funktionieren und immer erst ein Button klicken, damit der Bereich weiß wird finde ich nicht so prickelnd, wenn sich ein Fenster mit der Vorschau und ein paar Optionen öffnen soll.

TImage funktioniert jedenfalls. Sowohl die Ausgabe als auch das Initialisieren in FormCreate Danke

[Hitman]

Es hat einen Grund, dass die PaintBox ein OnPaint event hat! Die PaintBox "speichert" nicht, was ihr da auf den Canvas malt. Unter Windows kann man das z.B. ganz gut verfolgen, indem man das Formular dann mal kurz über den Bildschirmrand hinaus zieht und dann wieder zurück holt. Dann ist nämlich auf der Paintbox nicht mehr viel zu sehen. Daher: in ein TBitmap malen, und im OnPaint auf die PaintBox kopieren. Das verhindert zudem Flackern.

[pluto]

Dein Fehler ist einfach: Du verwechselst die PaintBox mit einem TImage. Das TImage speichert das Bild in einem Buffer, die PaintBox nicht. Beide Komponenten sind Praktisch, je nach Aufgabe.
Das gleiche gilt auch, wenn du eine Komponente von "TCustomControl" ableitest. Du kann dann auch nicht einfach das Bild im onCreate erstellen, weil es dann wieder überzeichnet wird.