Items einer TListView selbst zeichnen

[phlux]

Moin

Also es gibt ja den OnCustomDrawItem Event der TListView. Was ich jetzt ändern will ist, dass markierte Items nicht mehr Blau dargestellt werden sondern nur eine Umrandung haben, geht das mit diesem Event? Wenn ja wie?


mfg phluphie

[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;