Schrift grau hinterlegen

[khh]

hallo tzusammen, ich schreibe auf den Drucker folgendermassen:

Delphi-Quellcode:

      Printer.Canvas.Font.Style := [fsBold];
      Printer.Canvas.Font.Size:=  schriftgroessemittel;
      Printer.Canvas.TextOut(randlinks + cmtopixel(14,dpih),randoben + cmtopixel(8,dpih) , 'Datum');

gibts ne einfache Möglichkeit, die Schrift farbig zu hinterlegen?


danke Gruss KH

[mkinzler]

Versuch es mal über Printer.Canvas.Brush

[DeddyH]

Delphi-Quellcode:

Printer.Canvas.Brush.Color := clRed;
Printer.Canvas.Textout(10,10,'Hallo');

[edit] Wo war der rote Kasten? [/edit]

[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.

[Ralf Kaiser]

Zitat:

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

[khh]

danke dir,
gute idee,
gruss KH