Zeichnen auf Canvas und ZOrder bzw. Übermalen

[Sir Rufo]

Einmal am Canvas zuviel rumgespielt und schon geht es in die Hose.

Um solche unliebsamen Überraschungen zu vermeiden gibt es TRecall bzw. auch die konkreten Ableitungen für

• TBrushRecall
• TFontRecall
• TPenRecall

Delphi-Quellcode:

procedure DoSomething( ACanvas : TCanvas );
var
  LPenRecall : TPenRecall;
begin
  LPenRecall := TPenRecall.Create( ACanvas.Pen );
  try

    ACanvas.Pen. // nach Belieben Pen verändern

  finally
    LPenRecall.Free; // Danach ist ACanvas.Pen wieder wie vorher
  end;
end;