Farbe der ausgewählten unfokusierten Einträge in einem TListView

[haentschman]

Eoin Codebeispiel aus dem die Lösung quasi ins Auge springt... (Das ist jede 2. Linie anders färben)

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Odd(Item.Index) then
    Sender.Canvas.Brush.Color := clYellow
  else
    Sender.Canvas.Brush.Color := clRed;
end;