Delphi CxGrid 汇总（5）

50 保存/恢复带汇总行的布局

<TableView>.StoreToIniFile('c:\Grid.ini', True, [gsoUseSummary]);
<GridView>.RestoreFromIniFile(<inifilename>,True,False {or True, optional},[gsoUseSummary]);

****************************************************************************
51 取消过滤时移到第一行
解决：
uses 
      cxCustomData; 
  
procedure   TYour_Form.AViewDataControllerFilterChanged(Sender:   TObject); 
var 
      Filter:   TcxDataFilterCriteria; 
begin 
      with   Sender   as   TcxDataFilterCriteria   do 
          if   IsEmpty   then 
              DataController.FocusedRowIndex   :=   0; 
end;
****************************************************************************
52 排序后移到第一行
解决：
可以设置DataController.Options.FocusTopRowAfterSorting   :=   True，也可以使用如下的代码： 
  
uses 
      cxCustomData; 
  
procedure   TYour_Form.Your_ViewDataControllerSortingChanged(Sender:   TObject); 
begin 
      TcxCustomDataController(Sender).FocusedRowIndex   :=   0; 
end;
****************************************************************************
53 判断当前行是否第一行或最后一行
解决：
可以使用DataController的IsBOF,   IsEOF方法，或者： 
<AView>.Controller.Controller.FocusedRow.IsFirst 
<AView>.Controller.Controller.FocusedRow.IsLast
****************************************************************************
54 根据指定值查找记录
解决：
DataController提供了好几个方法来得到指定值对应的RecordIndex 
对于Bound   View可以使用FindRecordIndexByKeyValue方法
****************************************************************************
55 编辑和显示Blob字段
解决：
该字段的Properties设置为BlobEdit，并将BlobPaintStyle   属性设为   bpsText
****************************************************************************
56 得到可见行数
解决：
<View>.ViewInfo.VisibleRecordCount
****************************************************************************
57 保存后的行设置为当前行
解决：

const  
      CM_SETFOCUSEDRECORD   =   WM_USER   +   1002;  
   
type  
      TForm1   =