Mit Brush Color eine Zeile einfärben,danach wieder normal

[Morphie]

ich vermute mal so in etwa...

Delphi-Quellcode:

var
  farbe: TColor;
begin
  Canvas.Font.Name:='arial';    // Schriftgröße für Kundeninformation ein
  Canvas.Font.Size:=10;
  farbe:=canvas.Brush.Color; //FARBE HIER ZWISCHENSPEICHERN
  Canvas.Font.Color:=clNavy;
  Canvas.Brush.Color:=clRed;
  Canvas. font.Style:=[fsBold,fsItalic];

  Printer.Canvas.TextOut(3050,950,'Kundeninformation!');

  canvas.Brush.Color:=farbe; //FARBE WIEDER ZURÜCKSETZEN
  Canvas.Font.Name:='arial';         // Schriftgröße für Kundeninformation aus
  Canvas.Font.Size:=10;
  Canvas. font.Style:=[];
  Canvas.Font.Color:=clBlack;