justgrid.pas

delphi源码 delphi源码 delphi源码 delphi源码 delphi源码

unit JustGrid;

interface

uses DBGridEh;
type
  THackDBGridEH = class(TCustomdbgrideh)
  public
  end;

procedure OptimizeGrid(AGrid: TCustomDbGridEh);

implementation
{为了让dbgrideh可以自动所有列最佳宽度而定义的类}

procedure OptimizeGrid(AGrid: TCustomDbGridEh);
var
  i: integer;
begin
  // 优化GRIDEH的宽度
  if Assigned(AGrid.DataSource) and Assigned(AGrid.DataSource.DataSet) then
    AGrid.DataSource.DataSet.DisableControls;
  try
    for i := 0 to TDBGridEh(AGrid).Columns.count - 1 do
      THackDBGridEH(AGrid).OptimizeSelectedColsWidth(TDBGridEh(AGrid).Columns[i]);
  finally
    if Assigned(AGrid.DataSource) and Assigned(AGrid.DataSource.DataSet) then
      AGrid.DataSource.DataSet.EnableControls;
  end;
end;

end.