anchor.diff:    inherited Destroy;
   end;
   
  -procedure TmDBGridHelper.SetupGrid;
  +procedure TmDBGridHelper.SetupGrid (const aEnableAutoSizedColumns : boolean = true);
   begin
     FDBGrid.Align:= alClient;
     FDBGrid.AlternateColor:= DefaultGridAlternateColor;
     FDBGrid.Flat := True;
  -  FDBGrid.Options := [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns, dgDisableDelete, dgDisableInsert, dgMultiselect];
  +  if aEnableAutoSizedColumns then
  +    FDBGrid.Options := [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns, dgDisableDelete, dgDisableInsert, dgMultiselect]
  +  else
  +    FDBGrid.Options := [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit,                    dgDisableDelete, dgDisableInsert, dgMultiselect];
   end;
   
   
  
positive.code:     constructor Create(aGrid : TmDBGrid; aFormulaFields : TmFormulaFields; aCellDecorations: TmCellDecorations); virtual;
      destructor Destroy; override;
  
      procedure SetupGrid; override;
      procedure SelectAllRows; override;
  
      property DBGrid : TmDBGrid read FDBGrid;
  
negative.code:     procedure OnExportGridAsHtml (Sender : TObject);
  
      procedure SelectAllRows; virtual; abstract;
      procedure SetupGrid (const aEnableAutoSizedColumns : boolean = true); virtual; abstract;
  
      property FormulaFields : TmFormulaFields read FFormulaFields;
      property CellDecorations : TmCellDecorations read FCellDecorations;
  