anchor.diff:      procedure OnExportGridAsHtml (Sender : TObject);
   
       procedure SelectAllRows; virtual; abstract;
  -    procedure SetupGrid; virtual; abstract;
  +    procedure SetupGrid (const aEnableAutoSizedColumns : boolean = true); virtual; abstract;
   
       property FormulaFields : TmFormulaFields read FFormulaFields;
       property CellDecorations : TmCellDecorations read FCellDecorations;
  
positive.code:     constructor Create(aGrid : TmDrawGrid; aFormulaFields : TmFormulaFields; aCellDecorations: TmCellDecorations); virtual;
      destructor Destroy; override;
  
      procedure SetupGrid; override;
      procedure SelectAllRows; override;
  
      property DrawGrid : TmDrawGrid read FDrawGrid;
  
negative.code:     constructor Create(aGrid : TmDBGrid; aFormulaFields : TmFormulaFields; aCellDecorations: TmCellDecorations); virtual;
      destructor Destroy; override;
  
      procedure SetupGrid (const aEnableAutoSizedColumns : boolean = true); override;
      procedure SelectAllRows; override;
  
      property DBGrid : TmDBGrid read FDBGrid;
  