ListBox verschiedenfarbig drucken

[War10ck]

Hallo zusammen, bin neu hier und hoffe, dass ich meine Frage in das korrekte Unterforum gepostet hab, wenn nicht bitte verschieben. :)

Ich habe meine Frage bereits in meinem Stammforum gestellt, hoffe jedoch dass mir hier unter Profis vielleicht besser geholfen werden kann. ;)
Ich habe eine ListBox mti verschiedenen Einträgen in verschiedenen Farben. Die Einzelnen Einträge werden über eine for-Schleife an den Druckbefehl übergeben. Wie kann ich nun erreichen, dass auch in verschiedenen Farben gedruckt wird? Quasi jedesmal wenn ich eine Item aus der Liste auslese gleich die Farbe mit auslesen und an den Drucker übergeben? Oder einstellen, dass gleich genau die Farben gedruckt werden, die auch in der Listbox vorhanden sind?

Code:

Printer.Canvas.Font := ListBox1.Font;
for Line := 0 to ListBox1.items.Count - 1 do
Writeln(PrintText, Listbox1.items[Line]);

Hoffe jemand kann helfen.

Gruß War10ck

[Bummi]

Die Listbox mit farbigen Zeilen ist sicher Ownerdrawn, die Farbe hast Du möglicherweise in den Objects hinterlegt?

Ich würde so vorgehen, den gegf. nötigen Seitenwechsel habe ich hier noch nicht berücksichtigt, sollte aber auch für Dich kein Problem sein.

Delphi-Quellcode:

var
  i:Integer;
  s:String;
  r:Trect;
begin
   r.left  := 100;
   r.Right := Printer.PageWidth - 100;
   r.Top   := 100;
   Printer.BeginDoc;
   for I := 0 to Listbox1.Items.Count - 1 do
      begin
        // Farbe aus Objects
        Printer.Canvas.Font.Color := Integer(Listbox1.items.Objects[i]);
        s := Listbox1.items[i];
        // benötigten Platz mit Zeilenumbruch berechnen
        Printer.Canvas.TextRect(r,s,[tfWordBreak,tfCalcRect]);
        Printer.Canvas.TextRect(r,s,[tfWordBreak]);
        // Top für nächste Zeile auf Bottom der letzen Zeile setzen
        r.Top := r.Bottom;
      end;
   Printer.EndDoc;
end;