D2009 : TListView -> Groups -> State lässt sich nicht ändern

[LoCrux]

Hallo @All,

eigenlich sollte man bei einer TListView (ViewStyle:vsReport & GroupView:True) über ListView.Groups[x].State
das Attribut lgsCollapsed zusätzlich setzen können wenn State=[lgsCollapsible] --> State=[lgsCollapsible,lgsCollapsed].

Nur weigert sich Delphi den State to setzen.
Beim Debuggen erhalte ich nach jedem Aufruf der Test Procedure immer wieder nur den State = [lgsCollapsible] (so wie defaultmässig in der IDE gesetzt).
TListView.SetState wird korrekt aufgerufen und der neue state FState:=Value zugewiesen.
Nur irgendwo wird das wieder rückgängig gemacht!!??

Hat einer eine Idee???
Fehlt was???
Wäre für jede Hilfe dankbar.

Test Procedure:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  With lv do
  begin
    Items.BeginUpdate;
    for i := 0 to Groups.Count - 1
    do begin
      if lgsCollapsed in Groups[i].state
      then begin
        Groups[i].state := Groups[i].state - [lgsCollapsed]
      end
      else begin
        Groups[i].state := Groups[i].state + [lgsCollapsed];
      end;
    end;
    Items.EndUpdate;
  end;
end;

[LoCrux]

Solved!!!

Delphi-Quellcode:

procedure ListViewCE(lv:TJVListView;Collapsed:boolean);
var
  id   : Integer;
  res  : Integer;
  h    : HWND;
  col  : integer;
begin
 h := lv.Handle;
 if (h = 0) then exit;
 for id := 0 to lv.Groups.Count-1
 do begin
   if Boolean(ListView_HasGroup(h,id))
   then begin
     if Collapsed then col := 1 else col := 4;
     res := ListView_SetGroupState(h,id,LVGS_COLLAPSED,col);
   end;
 end;
 Application.ProcessMessages;
end;

[Back2Code]

Zitat:

Zitat von LoCrux (Beitrag 1268690)

Solved!!!

Delphi-Quellcode:

procedure ListViewCE(lv:TJVListView;Collapsed:boolean);
var
  id   : Integer;
  res  : Integer;
  h    : HWND;
  col  : integer;
begin
 h := lv.Handle;
 if (h = 0) then exit;
 for id := 0 to lv.Groups.Count-1
 do begin
   if Boolean(ListView_HasGroup(h,id))
   then begin
     if Collapsed then col := 1 else col := 4;
     res := ListView_SetGroupState(h,id,LVGS_COLLAPSED,col);
   end;
 end;
 Application.ProcessMessages;
end;

Stecke gerade am gleichen Problem fest. Da du ja anscheinend auf eine Lösung gestoßen bist, wäre es möglich von dir deinen Post nochmal kurz genauer zu erläutern ?

[DeddyH]

Schau mal hier: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Back2Code]

Zitat:

Zitat von DeddyH (Beitrag 1280191)

Schau mal hier: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Hab bisher kaum was mit der Win API gemacht (Anfänger), zusätzlich lässt sich die Procedur leider auch nicht kompilieren.

[DeddyH]

Hast Du die Unit CommCtrl eingebunden?

[Back2Code]

Zitat:

Zitat von DeddyH (Beitrag 1280199)

Hast Du die Unit CommCtrl eingebunden?

Nein :D Wie findet man sowas am besten raus welche Unit benötigt wird?


Hab die Unit jetzt eingebunden jetzt funktionierst einwandfrei. Danke für den Tipp.

[baumina]

Zitat:

Zitat von Back2Code (Beitrag 1280202)

Wie findet man sowas am besten raus welche Unit benötigt wird?

Ich drück immer F1 auf dem nicht gefundenen Befehl.

[DeddyH]

Ganz ehrlich? Ich hab auch schnell gesuchmaschint :lol: