2

我在 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 中,如下所示: 列大小选项

我试过搞乱所有选项,但没有运气。

该表有 1 个固定行(用于标题)和一个空行。该行仅存在,因为固定行数必须小于行数。将数据保存到 .ini 文件或注册表时,它会保存并加载第一列,但动态添加的列会作为默认值 (64) 写入,但在我拖动它们以调整大小时从未保存/加载。.ini 文件表如下所示:

[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

加载后它看起来像这样: 网格

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

4

1 回答 1

1

因此,在坐了几个小时之后,我决定没有理由为内置的东西而苦苦挣扎,因为我可以自己构建一些简单的东西。

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

加载代码(在 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 文件是否存在(也就是输入的路径是否正确)。但即使文件不存在,它也会顺利运行,它会简单地创建它。

于 2016-03-15T07:55:37.637 回答