cxDBPivotGrid ExpandAll hakkında (Çözüldü)

[adelphiforumz]

S.A.
cxGriddeki gibi DBPivot griddede ExpandAll imkanı varmıdır.
Amacım ilk açılışta column alanındaki tüm fieldların açık halde gelmesini sağlamak
Teşekkürler

[adelphiforumz]

Kod: Tümünü seç

type
     tAllExpCol = (tGridAllExpand, tGridAllCollaps);

procedure TGlobalFunctions.prc_DBPivotGridExpandAndCollaps(_GridDBPivot:TcxDBPivotGrid; _AllExpCol:tAllExpCol);
var
  I : Integer;
begin
    _GridDBPivot.BeginUpdate;
    try
      for I := 0 to _GridDBPivot.FieldCount - 1 do
      if _AllExpCol = tAllExpCol.tGridAllExpand then
         _GridDBPivot.Fields[I].ExpandAll
        else
          _GridDBPivot.Fields[I].CollapseAll;
    finally
      _GridDBPivot.EndUpdate;
    end;
end;