ListView :: Zeile markieren : funktioniert nicht komplett

[Zacherl]

Also:

Delphi-Quellcode:

procedure TfrmMain.lvCustomDrawItem(Sender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
var i: integer; 
begin 
  if Item.Checked = False then 
  begin 
    Sender.Canvas.Brush.Color := $00006CEB 
  end 
    else 
  Sender.Canvas.Brush.Color := clWhite; 
end;

Florian