TListView Zelle färben, BUG oder ein Fehler von mir?

[tofse]

Hallo,

ich möchte in einer TListView eine Zelle färben und verwende diesen Code

Code:

procedure TKabOpTerminManager.ListViewTermineCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if SubItem = 7 then
  begin
    Sender.Canvas.Brush.Color:=clRed;
  end
  else
  begin
    Sender.Canvas.Brush.Color:=$00F7F7F7;
  end;
end;

Die TListView hat als Color ebenfalls $00F7F7F7

Die Folge ist nun, dass alle Zellen mit SubItem >= 7 in rot gefärbt werden. Zum Testen habe ich mal eine andere Hintergrundfarbe genommen.
Somit unterscheidet sich nun also TListView.Color und Sender.Canvas.Brush.Color:=$00F7F7F7;
Damit funktioniert es wie gewünscht. Allerdings sollten ja die SubItems genauso eingefärbt werden, wie TListView.Color (außer halt bei SubItem=7)

Was mache ich falsch?

Grüße
Christof