ListView - HideSelection - markierung Überschreiben

[static_cast]

hmm komisch, also bei mir funzt es:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  R:TRect;
begin
  if Item.Selected then
  begin
    DefaultDraw:=False;
    R:=Item.DisplayRect(drBounds);
    ListView1.Canvas.Brush.Color:=clBlue;
    ListView1.Canvas.Rectangle(R);
    ListView1.Canvas.DrawFocusRect(R);
  end else
  begin
    DefaultDraw:=True;
  end;
end;

hab das mal ebend schnell zusamm gebaut, und das noch auf arbeit