TListView: TListGroup einklappen

[Gutelo]

Ich collapse alles mit folgendem Code

Code:

  With Listview1 do
  begin
    Items.BeginUpdate;
    for i := 0 to Groups.Count - 1 do
       if lgsCollapsed in Groups[i].state
       then  Groups[i].state := Groups[i].state - [lgscollapsed]
       else  Groups[i].state := Groups[i].state + [lgscollapsed];
    Items.EndUpdate;
  end;

Frohe Weihnachten

Gutelo