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

[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;