Farbe einer Spalte in ListView ändern

[Helmi]

Hallo,

ich muss diesen Thread nochmal aufgreifen.

In meiner ersten Spalte sind nur die CheckBoxen und kein Text.
Wenn nun eine Zeile ausgewählt wird, dann wird auch die CheckBox selectiert dargestellt.
Das möchte ich aber nicht.
Deswegen dacht ich mir, ich könnte die 1. Spalte neu zeichnen.
Nur leider funktioniert das nicht so wie ich mir das vorstell.

Delphi-Quellcode:

procedure TMainForm.ListView_DateienCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  If SubItem = 0 then
    Listview_Dateien.Brush.Color := clRed;
end;

Das geht leider nicht (clRed ist nur testweise dort).

Wie könnt ich die 1. Zeile ändern?