Listview ganze Spalte färben

[KodeZwerg]

Zitat von Amenovis:

aber bitte eine letzte Frage was muss den bei der ersten Spalte anstatt item.subitems[] drin stehen

Das hier:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item <> Nil then
    Sender.Canvas.Brush.Color := clRed;
end;