Ich hoffe mal nach knapp 24 Stunden ist ein Doppelpost gestattet. Aber wenn ich den letzten Eintrag editiere befürchte ich das könnte untergehen :/
Und zwar gehts jetzt dadrum bestimmt Zeilen im ListView zu färben. Ich habe gelesen das das mit dem Event "CustomDrawItem" des ListView gemacht werden soll. Allerdings funktioniert das bei mir nicht.
Das Prinzip ist folgendes:
Ich habe in meiner "Hauptfunktion" eine Schleife mit der der ListView gefüllt wird. Meine Hoffnung war das das Event "CustomDrawItem" jedesmal aufgerufen wird wenn
li.Caption := '...' ausgeführt wird. Bei mir ist es aber so das die Schleife erstmal komplett durchläuft, und erst danach das Event ausgeführt wird (natürlich genausoft wie auch
li.Caption aufgerufen wurde, aber das nützt mir nichts, da ich bei Laufzeit in der Schleife eine Variable setze und diese im Event abgefragt wird. Nur das ist natürlich nutzlos wenn
li.Caption und das Event nicht abwechselnd aufgerufen werden.
Mein Code im Event sieht so aus:
Code:
if fehlercode = '1 ' then
begin
Sender.Canvas.Font.Color := clRed;
DefaultDraw := True;
end
else if fehlercode = '2 ' then
begin
Sender.Canvas.Font.Color := clGreen;
DefaultDraw := True;
end
else if fehlercode = '1 2 ' then
begin
Sender.Canvas.Font.Color := clBlue;
DefaultDraw := True;
end else
begin
Sender.Canvas.Font.Color := clDefault;
DefaultDraw := True;
end;