Warum Brush.Color zwei Mal setzen?
Gut, hier wird nur eine Eigenschaft geändert, aber so zur Info: es gibt auch
TRecall und seine Nachfahren, wie z.B.
TBrushRecall.
Delphi-Quellcode:
BR := TBrushRecall.Create(Canvas.Brush);
try
... sonstwas im Brush ändern
finally
BR.Free; // danach ist der Brush wieder wie vorher
end;
Kann pinzipiell für alle TPersistent-Nachfahren verwendet werden, welche die Assign-Methode ausreichend implementiert haben.
Schade, dass es das nicht als Combi für TCanvas gibt, also inkl. Pen, Brush und Font (die es alle einzeln gibt).