Thema: Delphi Tlistview drucken

Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#16
  Alt 28. Feb 2003, 17:30
Zitat von TheReaper:
Kann es sein dass man im "Textfile" nur eine farbe zuweisen kann und nicht mehrere? wäre ja möglich, weil ja auch größe und font an den drucker gesendet wird aber erst nachdem das textfile schon lange steht.
Versuch doch mal folgendes:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  tf: TextFile;
begin
  AssignPrn(tf);
  ReWrite(tf);

  Printer.Canvas.Font.Color := clBlue;
  Printer.Canvas.Font.Size := 5;
  WriteLn(tf, 'Blau');

  Printer.Canvas.Font.Color := clRed;
  Printer.Canvas.Font.Size := 10;
  WriteLn(tf, 'Rot');

  Printer.Canvas.Font.Color := clGreen;
  Printer.Canvas.Font.Size := 15;
  WriteLn(tf, 'Gruen');

  CloseFile(tf);
end;
Grüsse, Daniel
  Mit Zitat antworten Zitat