Delphi DBGridEh保存表格调整到ini文件中

打开窗口时还原上次关闭时DBGridEh的样子

procedure DBGridEhConfigIni(DBGEH:TDBGridEh;FormName:String;CallType:Byte);  
//关闭窗口时记录DBGridEh的调整  下次打开窗口时还原上次关闭时的样子 （uses DBGridEh）
var
  MyRestoreParams :TDBGridEhRestoreParams;
begin
  if CallType=0 then  //为0时写入 为1时读取
  begin
    if not DirectoryExists(ExtractFileDir(Application.Exename)+'\DBGridEhConfig') then   //创建文件夹
    begin
      ForceDirectories(ExtractFileDir(Application.Exename)+'\DBGridEhConfig');
    end;
    DBGEH.SaveGridLayoutIni(ExtractFileDir(Application.Exename)+'\DBGridEhConfig\'+FormName,DBGEH.ClassName,True);//写入文件
  end
  else
  begin
    MyRestoreParams :=[grpColIndexEh,grpColWidthsEh,grpSortMarkerEh,grpColVisibleEh,grpRowHeightEh];
    DBGEH.RestoreGridLayoutIni(ExtractFileDir(Application.Exename)+'\DBGridEhConfig\'+FormName,DBGEH.ClassName,MyRestoreParams);  //读取文件
  end;
end;