【结贴】决策数据集网格大小

rzport_lyb · 发表于 2009-5-25 20:52:25

决策数据集网格宽度能自己调整大小吗?如果能,怎么调.

能不能自适应？

rzport_lyb · 发表于 2009-5-25 20:56:09

补充一下，我显示用的是决策立方

zfang · 发表于 2009-5-25 22:52:07

http://bbs.justep.com/forum.php?mod=viewthread&tid=3339

rzport_lyb · 发表于 2009-5-26 09:53:05

var
  I, J, L: Integer;
  lCanvas: TCanvas;
begin
  lCanvas := TCanvas.Create;
  try
lCanvas.Handle := Borland.Delphi.Windows.GetDC(0);
lCanvas.Font := DecisionGrid.DataFont; //TODO:
for I := 0 to DecisionGrid.ColCount - 1 do
begin
   if (I = 0) and (TDecisionGridOption.cgOutliner in DecisionGrid.Options) then
      Continue;
   L := 0;
   for J := 0 to DecisionGrid.RowCount - 1 do
      L := Math.Max(L, lCanvas.TextWidth(DecisionGrid.Cells[I - DecisionGrid.FixedCols, J - DecisionGrid.FixedRows]));
   DecisionGrid.ColWidths[I] := L + 8;
end;
  finally
Borland.Delphi.Windows.ReleaseDC(0, lCanvas.Handle);
lCanvas.Free;
  end;
end;

把这段程序加代码里，为什么显示列最后总有个“小计”列，怎么使它不显示？

lixy · 发表于 2009-5-26 10:06:42

不加代码有小记列没有，如果有，就是设置的问题。

rzport_lyb · 发表于 2009-5-26 10:09:27

不加代码没小计

rzport_lyb · 发表于 2009-5-26 10:18:15

搞定，谢谢，结贴

lixy · 发表于 2009-5-26 10:26:27

for I := 0 to DecisionGrid.ColCount - 1 do
change
for I := 0 to DecisionGrid.ColCount - 2 do

		自动登录	找回密码
密码			立即注册