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

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;

Hola,

Podrías fijarte si el componente y/o uno de sus "nodos" cuentan con alguna propiedad o método de nombre "Colapse" o similar.

Por otro lado, personalmente, no conozco dicho componente y no parecer pertenecer a la VCL de Delphi, por lo que no vendría mal la dirección de su página Web, la del manual de ayuda, si es posible, en fin, cuanta más información mejor.

Puede parecer mucho pedir pero hay componentes (programadores, vaya) que mantienen manuales de ayuda en sus páginas Web, o, en fin, documentos en donde se relacionen las propiedades, métodos, eventos, en fin, prácticamente todo lo relativo a los mismos.

Del código se deducen varias cosas, pero, me llama la atención la propiedad o método "FullExpand" en:

Código Delphi [-]
 AView.DataController.Groups.FullExpand;

Echa un vistazo a ver si "Groups" contara con "su contraria", o sea, "FullColapse" o "Colapse" o similar.

Lamento no poderte decir más que lo dicho.

Pues efecívamente dec tiene toda la razón.
Si miras en la ayuda del componente (que se instala con él) verás que la clase TcxDataControllerGroups, que implementa el procedimiento FullExpand, también tiene el método FullCollapse (quien iva a pensar que se puediera llamar así ;)...) que hace justo lo contrario. Basta con que utilizes el código que has adjuntado con la opción FullCollapse y funciona perfectamente.

Hola,

Bueno. Ya te comenté que estuve tres años dando mecanografía, y eso, se nota ;) ;) ;)

Contraer por codigo
 

O tambien podrias usar

Código Delphi [-]
      // Expand all
       specsGrid.ViewData.Expand(true); 

     //Collapse
      specsGrid.ViewData.Collapse(true);

Esta es la format que yo uso, no se si te pueda servir.

muchas gracias por su ayuda a otodos

si he leido la ayuda del componeste pero medio me falla el ingles

saludos

gracias

hola que tal
de nuevo

no ahi forma que se equivocaran en la pagina del componente

por que en la linea de abajo

"RowCount" no me lo asepta delphi "undeclared indentifier"

Código Delphi [-]
 for I := AView.DataController.RowCount - 1 downto 0 do

entonses prove con otro
.RecordCount
.GetRowCount

pero el resultado no es el esperado

no hase nada

saludos