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

[baumina]

Na dann hab ich es schon richtig verstanden, versuchs mal (wie ich bereits erwähnte) mit:

Delphi-Quellcode:

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:=TListView(Sender).Color;
   end;
 end;