Canvas Zurücksetzen

[A.Griffin]

Ich habe ein quadratisches TShape. Bei MouseUp benutze ich:

Code:

shp1.Canvas.Brush.Color := clRed;
shp1.Canvas.Brush.Style := bsSolid;
shp1.Canvas.Ellipse(X-5, Y-5, X+5, Y+5);

um einen kleinen Kreis beim Click auf das Shape zu malen. Ich nutze die Koordinaten (des MouseUp Events) für einen Laserprojektor um einen Punkt zu projekzieren je nach dem wo ich auf das Shape klicke. Wie kann ich bei jedem Klick das Canvas (des TShape) zurücksetzen oder den letzten Punkt löschen damit ich immer nur einen kleinen roten Kreis sehen kann?

Ich verwende Delphi 7.

[stahli]

Entweder Canvas.FillRect oder den fertigen Hintergrund speichern und immer neu in den Canvas kopieren bevor der Punkt an der neuen Stelle gezeichnet wird.

[A.Griffin]

Vielen Dank. Ich habe es jetzt mit FillRect gemacht. Wäre schön wenn es Canvas.clear o.ä. geben würde.

[Bernhard Geyer]

Zitat:

Zitat von A.Griffin (Beitrag 1375699)

Ich habe ein quadratisches TShape. Bei MouseUp benutze ich:

Wie wäre es das Zeichnen in die OnDraw-Routine zu verlegen?
Und Neuzeichneen über .Invalitate auslösen.