Canvas Ausgabe löschen

[Taugenichts]

Hallo,

nach Klicken eines Buttons erzeuge ich eine dynamische Ausgabe mit canvas.Rectangle(x,y,x2,y2); in Abhänigkeit von den bestimmten Parametern.

Wenn jetzt der Button erneut geklickt wird, soll die alte Ausgabe gelöscht werden.

Wie ist das möglich?

Mit canvas.destroy und canvas.free bekomme ich nur Laufzeitfehler und unschöne Fehlermeldungen...

Googlesuche hat mir nicht viel gebracht. Ich hoffe, ihr könnt mir helfen.

Vielen Dank und liebe Grüße
Taugenichts

[Hawkeye219]

Hallo und herzlich willkommen in der Delphi PRAXiS!

Zum Löschen eines Canvas mußt du diesen einfach mit der Hintergrundfarbe füllen. Eine geeignete Methode ist TCanvas.FillRect.

Gruß Hawkeye

[Bernhard Geyer]

Zitat von Taugenichts:

Hallo,

nach Klicken eines Buttons erzeuge ich eine dynamische Ausgabe mit canvas.Rectangle(x,y,x2,y2); in Abhänigkeit von den bestimmten Parametern.

Wenn jetzt der Button erneut geklickt wird, soll die alte Ausgabe gelöscht werden.

Wie ist das möglich?

Mit canvas.destroy und canvas.free bekomme ich nur Laufzeitfehler und unschöne Fehlermeldungen...

Googlesuche hat mir nicht viel gebracht. Ich hoffe, ihr könnt mir helfen.

Vielen Dank und liebe Grüße
Taugenichts

Vollkommen falscher Ablauf. Was passiert wohl wenn Du über dein gezeichnetes Rechteck kurzzeitig ein Fenster legst - Es ist fort.
Richtig ist alle Zeichenroutingen im OnPaint-Event des Controls zu machen auf das du zeichnest (Wenn Du ein eigenes Control entwirst ist es AFAIK die DoPaint-Methode die du überladen must). Willst Du die Zeichnung löschen rufst du die Invalidate-Methode auf was zu einem neuerlichen Auslösen des OnPaint-Events führt. Und hier Zeichnest du einfach aufgrund deiner Parameter nichts mehr neu.

[Hawkeye219]

@Bernhard Geyer

Guter Hinweis, dieser Fehler wird leider sehr oft gemacht. Eine Ausnahme stellt die TImage-Komponente dar. Hier muß man direkt auf deren Canvas zeichnen, da sie kein OnPaint-Ereignis besitzt. Die Zeichnung wird in einer internen Bitmap gespeichert und kann so bei Bedarf automatisch wiederhergestellt werden.

Gruß Hawkeye

[Taugenichts]

Danke für eure Antworten.

Mit Bernhard Geyers Hinweis kann ich als ein "in-Delphi-geschubster-Schüler" leider nicht viel anfangen, soweit will ich auch gar nicht gehen.

Schon schlimm genug, dass ich mir die Funktionen zum Erstellen von Grafiken selbst aneignen muss.

Ich hab's einfach mit

canvas.pen.color:=clwhite;
canvas.brush.color:=clwhite;
canvas.rectangle();

in einem bestimmten Ausschnitt überschrieben.

[Hawkeye219]

Wenn du eine TPaintBox verwendest, solltest du Bernhards Hinweis sehr wohl beachten. Die Online-Hilfe zu TPaintBox.OnPaint enthielt zumindest in Delphi 6 noch einige erklärende Beispiele.

Vielleicht solltest du die von dir benutzte Delphi-Version in dein Profil eintragen, dann kann man dir gezielter helfen.

Gruß Hawkeye

[Taugenichts]

Zu Hause Delphi 6 Professionell, in der Schule Delphi 5 irgendwas.

Es sollte also möglichst kompatibel sein.

Erreiche ich das mit TPaintBox.OnPaint?