Tlistview drucken

[Daniel B]

Zitat von TheReaper:

Doch hab ich, weil du die auch dahinter geschrieben hast. wo dann?

Ich habs mir gedacht.
Aber es muss auch dort bleiben.
Also, da wo es jetzt ist, soll es mit schwarz bleiben.
Da Du nur die letzte Zeile Bunt und in Farbe haben willst, musst man jetzt in der for-Schleife zwei ifs einbauen. Das sieht dann etwa so aus.

Delphi-Quellcode:

Printer.Canvas.Font.Color := clBlack;
for i := 0 to LV.Count -1 do
begin
  if i <= LV.Count -2 then
  begin
    WriteLn(LV.Item[i]);
  end
  else
  begin
    Printer.Canvas.Font.Color := clGreen; //Hier also die Farbe für die letzte Zeile
    WriteLn(LV.Item[i]); //Letzte Zeile schreiben
  end; 
  Printer.Canvas.Font.Color := clBlack; //Damit der Standard wieder da ist
end;

So, jetzt mal auf die schnelle und ungetestet. Dürfte aber gehen.
Also die drei Zeile lassen wie sie sind.
Vor der letzten Zeile die Farbe umstellen und danach wieder zurück auf schwarz.

Grüsse, Daniel