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

[egon.kaschuba]

Hallo,

Problem mit Brush.Ich habe es einfach Vergessen.
Ich möchte eine Zeile mit Brush.Color einfärben.
Danach sollte alle wieder normal weiter gehen.

Wer weiss weiter ?

Gruß
- Egon

Delphi-Quellcode:

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

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

     Canvas.Font.Name:='arial';         // Schriftgröße für Kundeninformation aus
     Canvas.Font.Size:=10;
     Canvas. font.Style:=[];
     Canvas.Font.Color:=clBlack;

// Hier Brush.Color Neutralisieren.

.
.
.

[mkinzler]

Speichere dir doch die Farbe zwischen

[egon.kaschuba]

Herr mkinzler ,

Die ganze Sache liegt im Druckermodus.
Wie soll ich das machen ?

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

[egon.kaschuba]

Hallo Morphie,

Danke für den Tipp.
Ich habe meine Vergesslichkeit mit einem Tee
wieder flott gemacht,und zwar geht das auch mit
dem Code ....

Vielen Dank.


 canvas.brush.style :=bsClear;