Listview zeilen faerben(nicht OnCustomDrawItem)

[marabu]

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