保存动态列的列大小

Question

我正在 TMS 的 Tdbadvgrid 中工作。我正在根据 sql 查询长度动态添加列。一切都很好，除了列宽节省。添加列：

  //Captions
  for i := 0 to oRow.Count - 1 do
  begin
    grdFieldData.Columns.Insert(1);
    grdFieldData.Cells[i + 1, 0] := TabelList.Captions[i].Caption;
  end;

  //Data
  for r := 0 to TabelList.Count - 1 do //rows
  begin
    for c := 0 to oRow.Count - 1 do //cols
    begin
      grdFieldData.Cells[c+1, r+1] := TabelList.Rows[r].Fields[c].Value;
    end;
    if r <> TabelList.Count - 1 then
      grdFieldData.RowCount := grdFieldData.RowCount + 1;
  end;

现在保存功能内置于TMS TDBAdvGrid中，如下所示：

我试过搞乱所有选项，但没有成功。

table 有 1 个固定行（用于字幕）和 1 个空行。该行仅在那里，因为固定行数必须小于行数。将数据保存到 .ini 文件或注册表时，它会保存并加载第一列，但动态添加的列会作为默认值 (64) 写入，但在我拖动它们以调整大小时不会 saved/loaded 。 .ini 文件 table 如下所示：

[Recept]
Col0=20
Col1=97
Col2=64
Col3=64
Col4=64
Col5=64
Col6=64
Col7=64
Col8=64
Col9=64
Col10=64
Col11=64
Col12=64
Col13=64
Col14=64

加载后如下所示：

有谁知道我可以做些什么来正确保存列以便保存宽度？

Answer 1

因此，在使用它几个小时后，我决定没有理由为内置的东西费心费力，因为我可以自己构建一些简单的东西。

在这种情况下，它只是保存到所选目录中的所选 ini 文件。文件名和目录目前被硬编码到每个 inhreited class。可以轻松实现更改它们的功能。甚至可能是一个目录选择器到一个按钮或类似的东西。

加载代码（调用FormShow）：

procedure TfrmReceptEditor.LoadColWidths;
var
  Ini: TIniFile;
  i: Integer;
  path: String;
  filename: String;
begin
  inherited;
  path := 'C:\';
  filename := 'grid.ini';
  Ini := TIniFile.Create(path + filename);
  try
    for i := 0 to grdFieldData.ColCount - 1 do
    begin
      grdFieldData.Columns.Items[i].Width := Ini.ReadInteger('Recept','col'+IntToStr(i),75);
    end;
    grdFieldData.FixedColWidth := 20;
  finally
    Ini.Free;
  end
end;

以及保存数据的代码（在 FormClose 上）：

procedure TfrmReceptEditor.SaveColWidths;
var
  Ini: TIniFile;
  i: Integer;
  path: String;
  filename: String;
begin
  inherited;
  path := 'C:\';
  filename := 'grid.ini';
  Ini := TIniFile.Create(path + filename);
  try
    for i := 0 to grdFieldData.ColCount - 1 do
    begin
      Ini.WriteInteger('Recept', 'col'+IntToStr(i), grdFieldData.Columns.Items[i].Width);
    end;
  finally
    Ini.Free;
  end;
end;

有些人可能想要内置功能来检查 Ini 文件是否存在（也就是输入的路径是否正确）。但是即使文件不存在它也能顺利工作，它会简单地创建它。

保存动态列的列大小

Save columnsize of dynamic columns

delphi

tms