Delphi ListView Gruppen zusammenklappen

[Back2Code]

Hallo Leute, ich habe folgendes Problem: Ich benutze ein ListView mit verschiedenen Gruppen. Diese wiederrum beinhalten natürlich auch ein paar Elemente. Da der Anwender nicht beim Programmstart von lauter "Einträgen" erschlagen werden soll, wollte ich die ListView Gruppen beim Start direkt alle einklappen was mir leider bisher nicht gelungen ist.

Komischerweise lässt in der Design Zeit auch nicht der State der Gruppe auf lgsCollapsed ändern. Bleibt einfach false.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Listview2.Groups.BeginUpdate;
    for i := 1 to Listview2.Groups.Count - 1 do
    begin
       Listview2.Groups[i].State := [lgsCollapsed];
    end;
    Listview2.Groups.EndUpdate;
end;

Obriger Code wrkt sich komischerweise auf das Listview so aus, dass die Einklappicons verschwinden....

Wie ist es möglich bestimmte Gruppen am besten nach eindeutiger ID einzuklappen bzw eingeklappt zu lassen.

IDE Delphi 2010

[DeddyH]

Zitat:

lgsCollapsed


Die Gruppe ist ausgeblendet. Nur für Windows Vista, Windows 7 oder höhere Windows-Betriebssysteme verfügbar.

Programmierst Du unter XP?

[Back2Code]

Zitat von DeddyH:

Zitat:

lgsCollapsed


Die Gruppe ist ausgeblendet. Nur für Windows Vista, Windows 7 oder höhere Windows-Betriebssysteme verfügbar.

Programmierst Du unter XP?

Win 8.1

[DeddyH]

Vermutlich muss lgsCollapsible dann ebenfalls gesetzt werden (würde zumindest Sinn ergeben).

[Back2Code]

Zitat von DeddyH:

Vermutlich muss lgsCollapsible dann ebenfalls gesetzt werden (würde zumindest Sinn ergeben).

Hatte ich mich auch erste gedacht, daran liegts aber nicht. lgsCollapsible ist gesetzt und trotzdem lässt es sich nicht von Start aus / per Code einklappen.

[DeddyH]

Jetzt hab ich doch mal mein XE angeworfen, da funktioniert es einwandfrei unter 8.1 (hat allerdings einen Darstellungsfehler: man sieht die erste Gruppe erst, wenn man die 2. einmal aufklappt).

[Back2Code]

Zitat von DeddyH:

Jetzt hab ich doch mal mein XE angeworfen, da funktioniert es einwandfrei unter 8.1 (hat allerdings einen Darstellungsfehler: man sieht die erste Gruppe erst, wenn man die 2. einmal aufklappt).

Kann ich leider nicht nachmachen, ist nur 2010 da.

[DeddyH]

Im anderen Thread scheint es ja eine Lösung zu geben, die an der VCL vorbei direkt mit der API arbeitet.

[Sir Rufo]

Sollte tatsächlich lgsCollapsible irgendwann mal gesetzt gewesen hätte sein könnte, dann ist das spätestens nach Listview2.Groups[i].State := [lgsCollapsed]; Geschichte.

Darum versuch es doch mal damit:

Delphi-Quellcode:

// setzen
Listview2.Groups[i].State := Listview2.Groups[i].State + [lgsCollapsed];
// entfernen
Listview2.Groups[i].State := Listview2.Groups[i].State - [lgsCollapsed];

[Back2Code]

Zitat von Sir Rufo:

Sollte tatsächlich lgsCollapsible irgendwann mal gesetzt gewesen hätte sein könnte, dann ist das spätestens nach Listview2.Groups[i].State := [lgsCollapsed]; Geschichte.

Darum versuch es doch mal damit:

Delphi-Quellcode:

// setzen
Listview2.Groups[i].State := Listview2.Groups[i].State + [lgsCollapsed];
// entfernen
Listview2.Groups[i].State := Listview2.Groups[i].State - [lgsCollapsed];

Alle aufzuklappen funktioniert
Listview2.Groups[i].State := Listview2.Groups[i].State - [lgsCollapsed]; Alle einzuklappen leider nicht.