Soo... da bin ich wieder...
Also ich bin schon ein gutes Stück weiter.
Allerdings macht er mit alle Zeilen rot, auch wenn "fehler := false" ist... (fehler ist vom Typ Boolean)
Schauts euch mal an, hier der Teil wo ich zeichne:
Code:
li := ListView1.Items.Add;
li.Data := Pointer(fehler);
li.Caption := kunde;
li.SubItems.Add(hz[0]);
li.SubItems.Add(hz[1]);
li.SubItems.Add(hz[2]);
li.SubItems.Add(erg);
und hier die "Auswertung"
Code:
procedure TfrmZentralen.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Boolean(Item.Data) = true then
begin
Sender.Canvas.Font.Color := clRed;
DefaultDraw := True;
end
else
begin
Sender.Canvas.Font.Color := clDefault;
DefaultDraw := True;
end;
end;
Edit: Asche auf mein Haupt... Ich hab im Vorfeld einfach "fehler" falsch gesetzt :/
Dann kann dieser Thread auch geschlossen werden, Danke euch beiden 