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
