Canvas-Zeichnung rückgängig machen

[TheMiller]

Hallo,

ich möchte eine Zeichnung, die ich auf Image1.Canvas gezeichnet habe, rückgängig machen. Nur weis ich nicht, wie das funktioniert. Ich weis, dass das Canvas keinen undo-Mode hat, aber ich weis auch nicht, wie ich vorher eine Kopie des Canvas anfertige und dieses dann wieder herstelle.

Bitte um Hilfe!

Danke

[Fussball-Robby]

Du könntest das Bild vor jedem Zeichnen in ein TBitmap speichern, und dann bei Bedarf wieder laden. So könnte es aussehen:

Delphi-Quellcode:

procedure TForm1.SaveImageState(Image: TImage; var bmp: TBitmap);
begin
  bmp.Assign(Image.Picture.Graphic);
end;

procedure TForm1.LoadImageState(Image: TImage; bmp: TBitmap);
begin
  Image.Picture.Graphic.Assign(bmp);
end;

[TheMiller]

Genial! Genau das was ich brauchte! Nur, darauf wäre ich nicht gekommen. Habe als mit dem Canvas oder dem Picture rumgespielt, aber nicht mit der Grafik!

Danke

[rollstuhlfahrer]

mit Canvas gehts aber auch, indem man BitBlt verwendet.

rollstuhlfahrer