Delphi CxGrid 汇总（3）

1)   View.DataController.DataModeController.GridMode   =   False时    
     
      RecIdx   :=   View.Controller.SelectedRecords[i].RecordIndex;    
      ColIdx   :=   View.DataController.GetItemByFieldName(AFieldName).Index;    
      OutputVal   :=   View.DataController.Values[RecIdx,   ColIdx];    
     
      //RecID   :=   View.DataController.GetRecordId(RecIdx);    
      //OutputVal   :=   ADataSet.Lookup(View.DataController.KeyFieldNames,   RecID,   AFieldName);    
     
2)   View.DataController.DataModeController.GridMode   =   True时    
      Bkm   :=   View.DataController.GetSelectedBookmark(ASelectedRecordIndex);    
      if   ADataSet.BookmarkValid(TBookmark(Bkm))   then    
      begin    
          ADataSet.Bookmark   :=   TBookmark(Bkm);    
          OutputVal   :=   ADataSet.FieldByName(AFieldName).Value;    
      end;    
     
      View.BeginUpdate;    
      View.DataController.BeginLocate;    
      try    
          //   make   changes   here…    
      finally    
          View.DataController.EndLocate;    
          View.EndUpdate;    
      end;  
**********************************************

procedure   TForm1.ADetailDataControllerCollapsin(  ADataController:  TcxCustomDataController;    
  
ARecordIndex:   Integer;  var   AAllow:   Boolean);    
var    
      I:   Integer;    
      C:   Integer;    
begin    
      AAllow   :=   False;    
      C   :=   0;    
      for   I   :=   0   to   ADataController.RecordCount   -   1   do    
      begin    
          if   ADataController.GetDetailExpanding(I)   then    
              Inc(C);    
          if   C   >   1   then    
              AAllow   :=   True;    
        end;    
end;    
     
procedure   TForm1.ADetailDataControllerExpanding(    
      ADataController:   TcxCustomDataController;   ARecordIndex:   Integer;    
      var   AAllow:   Boolean);    
begin    
      ADataController.CollapseDetails;    
end;    
     
procedure   TForm1.FormCreate(Sender:   TObject);    
begin        cxGrid1DBTableView1.DataController.OnDetailExpanding:=ADetailDataControllerExpanding;         cxGrid1DBTableView1.DataController.OnDetailCollapsing:=ADetailDataControllerCollapsing;    
end;  
****************************************************************************  
44 动态创建层次(Level)和视图(View)  
解决：  
var        
      Grid:   TcxGrid;        
      Level:   TcxGridLevel;        
      View:   TcxGridDBTableView;        
begin    
      //   Creates   a   Grid   instance    
      Grid   :=   TcxGrid.Create(SomeOwner);        
      Grid.Parent   :=   SomeParent;        
      //   Creates   a   Level    
      Level   :=   Grid.Levels.Add;        
      Level.Name   :=   ‘SomeLevelName‘;    
      //   Creates   a   View    
      View   :=   Grid.CreateView(TcxGridDBTableView)   as   TcxGridDBTableView;        
      View.Name   :=   ‘SomeViewName‘;    
      //   …   and   binds   it   to   the   Level    
      Level.GridView   :=   View;        
      //   Hooks   up   the   View   to   the   data    
      View.DataController.DataSource   :=   SomeDataSource;        
      //   …   and   creates   all   columns    
      View.DataController.CreateAllItems;        
end;  

procedure   TForm1.cxGrid1DBTableView1CustomDrawFooterCell(    
      Sender:   TcxGridTableView;   ACanvas:   TcxCanvas;    
      AViewInfo:   TcxGridColumnHeaderViewInfo;   var   ADone:   Boolean);    
var    
      ALevel,   ADataGroupIndex:   Integer;    
      AGridRecord,   AGroupRecord:   TcxCustomGridRecord;    
begin    
      if   AViewInfo   is   TcxGridRowFooterCellViewInfo   and    //   Row   footer    
            (TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName   =   ‘Area‘)   then     //   Area   column    
   begin    
        AGridRecord:=   TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord;    
        ALevel:= TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel;    
ADataGroupIndex:=Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index];    
         if   ADataGroupIndex   <>   -1   then    
         begin    
            AGroupRecord   :=   AGridRecord;    
            while   AGroupRecord.Level   <>   ALevel   do    
            AGroupRecord   :=   AGroupRecord.ParentRecord;    
            AViewInfo.Text   :=   AGroupRecord.DisplayTexts[0];    
         end;    
     end;    
end;  
**************************************

function   GetLevelByName(AGrid:   TcxGrid;   ALevelName:   string):   TcxGridLevel;    
     
      function   LoopThroughLevels(ALevel:   TcxGridLevel;   ALevelName:   string):   TcxGridLevel;    
      var    
          I:   Integer;    
      begin    
          Result   :=   nil;    
          for   I   :=   0   to   ALevel.Count   -   1   do    
          begin    
              if   ALevel[I].Name   =   ALevelName   then    
              begin    
                  Result   :=   ALevel[I];    
                  Exit;    
              end;    
              if   ALevel[I].Count   >   0   then    
              begin    
                  Result   :=   LoopThroughLevels(ALevel[I],   ALevelName);    
                  if   Result   <>   nil   then    
                      Exit;    
              end;    
          end;    
      end;    
     
var    
      I:   Integer;    
begin    
      Result   :=   nil;    
      for   I   :=   0   to   AGrid.Levels.Count   -   1   do    
      begin    
          if   AGrid.Levels[I].Name   =   ALevelName   then    
          begin    
              Result   :=   AGrid.Levels[I];    
              Exit;    
          end;    
          if   AGrid.Levels[I].Count   >   0   then    
          begin    
              Result   :=   LoopThroughLevels(AGrid.Levels[I],   ALevelName);    
              if   Result   <>   nil   then    
                  Exit;    
          end;    
      end;    
end;