advstringgrid中SaveColSizes如何使用

Question

procedure TForm31.AdvStringGrid1EndColumnSize(Sender: TObject;
  ACol: Integer);
begin
  advstringgrid1.SaveColSizes;
end;procedure TForm31.FormShow(Sender: TObject);
var i:integer;
begin
  advstringgrid1.LoadColSizes;
end这样好像没啥用
该怎么写？

Answer 1

从SaveColSizes和LoadColSizes方法的实现看，将当前列大小保存/读取一个默认的ini文件的数据。
这个过程是透明和自动的，应该有点用处。
procedure TAdvStringGrid.SaveColSizes;
var
  i: Integer;
  IniFile: TIniFile;
begin
  if (FColumnSize.Key<>'') and
     (FColumnSize.Section<>'') and
     (not (csDesigning in ComponentState)) then
  begin
    IniFile := TIniFile.Create(FColumnSize.Key);    with IniFile do
    begin
      for i := 0 to ColCount - 1 do
      begin
        WriteInteger(FColumnSize.section,'Col'+inttostr(i),ColWidths[i]);
      end;
    end;
    IniFile.Free;
  end;
end;