Items einer TListView selbst zeichnen

[Kamil]

Wie wäre es mit:

Delphi-Quellcode:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if Selected then
  begin
    (Sender AS TListView).ItemFocused:=Item;
    Item.Selected:=false;
  end;
end;