Hi Lucius,
das Einfärben ist kein Problem - hier wechselt die Zeilenfarbe alternierend:
Delphi-Quellcode:
procedure TDemoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index)
then Sender.Canvas.Font.Color := clMaroon
else Sender.Canvas.Font.Color := clBlue;
end;
ListView.OwnerDraw bleibt dabei FALSE - OwnerData bleibt so, wie du es brauchst und hat nichts mit dem Einfärben zu tun.
Grüße vom marabu