TListView: TListGroup einklappen

[Redeemer]

Hallo zusammen,

ich würde gerne eine TListGroup vom Programm aus einklappen.

Ich habe eine TListGroup und ein paar TListItem drin. Wenn ich den State der Gruppe auf [lgsCollapsible] setze, kann der Benutzer sie selbst einklappen. Ich möchte sie nun aber vom Programm aus einklappen, um die Liste automatisch etwas aufzuräumen. Weder [lgsCollapsed, lgsCollapsible] (das gibt das Auswerten-Fenster als State einer vom Benutzer eingeklappten Gruppe an) noch [lgsCollapsed] noch [lgsHidden, lgsCollapsible] gehen. In einigen Beispielen kommt lgsNormal vor, aber das macht irgendwie gar nichts bei mir, wenn ich es jeweils noch irgendwo aufnehme.

Das TListView läuft als vsReport und ich nutze Delphi 2009 auf Windows 7.
Ich bin kein Freund von Drittanbieter-Komponenten.

Danke im Voraus.

/Edit: Es stellt sich heraus, dass jede Manipulation am ListView (und allem was dazu gehört) seitens der Anwendung automatisch zum Aufklappen sämtlicher TListGroups führt. Auch das Einklappen der Gruppen ist eine solche Manipulation, wird also sofort rückgängig gemacht (sieht man sehr schön am Flackern der Scrollbar). Dies alles scheint ein Fehler in Delphi 2009 zu sein, in XE2 ist das nicht mehr der Fall. Fehlerfrei ist es selbst in XE2 nicht: Man kann nämlich eine TListGroup irgendwie nur ein einziges Mal einklappen. Erst nach Aufruf von TListView.Groups.Add geht es ein weiteres Mal. Das wäre für mich aber kein Problem, da ich die Gruppen ausschließlich nach Hinzufügen einer neuen Gruppe einklappen können will. Ich glaube, ich muss mir mal den Quelltext angucken, woran das liegt.

/Edit2: Das Kopieren von TCustomListView.UpdateGroup(AnIndex: Integer) aus dem XE2-Quelltext hat das Problem gelöst. An welcher Zeile es genau liegt, kann ich nicht sagen.

[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