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:

markieren

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;

Items einer TListView selbst zeichnen

Items einer TListView selbst zeichnen

Re: Items einer TListView selbst zeichnen

Forumregeln

phlux Registriert seit: 4. Nov 2002 Ort: Witten 1.335 Beiträge Delphi 6 Personal	#1 Items einer TListView selbst zeichnen 3. Dez 2003, 20:15 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 Christian "phlux" Arndt
	Zitat

Kamil Registriert seit: 16. Aug 2002 178 Beiträge	#2 Re: Items einer TListView selbst zeichnen 4. Dez 2003, 19:11 Wie wäre es mit: markieren 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;
	Zitat