contraer por codigo, cxGrid (+) los nodos abiertos cerrarlos por codigo

[sakuragi]

hola que tal

alguien como sabe

para cerrar los nodos abiertos en un cxGrid

ya ven que al haserle clic al (+) se expande, ahora quiero sabes si ahi una forma de contraerlo por medio de codigo, que se cierre el nodo.

alguien sabe como?

saludos

en la pagina del componete encontre este codigo servira?

Código Delphi [-]
 
 
procedure ExpandViewGroups(AView: TcxGridTableView; ALevel: Integer); 
var 
    I: Integer; 
begin 
       AView.BeginUpdate; 
       try  
            AView.DataController.Groups.FullExpand; 
            for I := AView.DataController.RowCount - 1 downto 0 do 
             if AView.DataController.GetRowInfo(I).Level > ALevel then 
                   AView.DataController.Groups.ChangeExpanding(I, False, True); 
      finally 
                AView.EndUpdate; 
     end; 
end;

no le entiendo bien al codigo


saludos

gracias