Zitat von
khh:
ich danke euch, funktioniert ,
welches ist der Standardwert von Printer.Canvas.Brush ?
Ich möchte ungern auf weiss zurücksezten, da das Drucker-Papier ja auch andersfarbig sein kann.
So etwas könnte da helfen:
Delphi-Quellcode:
var oldColor: TColor;
oldColor := Printer.Canvas.Brush.Color;
Printer.Canvas.Brush.Color := clRed;
Printer.Canvas.Textout(10,10,'Hallo');
Printer.Canvas.Brush.Color := oldColor;
Ciao,
Ralf