anchor.diff:      constructor Create(aGrid : TmDrawGrid; aFormulaFields : TmFormulaFields; aCellDecorations: TmCellDecorations); virtual;
       destructor Destroy; override;
   
  -    procedure SetupGrid; override;
  +    procedure SetupGrid(const aEnableAutoSizedColumns : boolean = true); override;
       procedure SelectAllRows; override;
   
       property DrawGrid : TmDrawGrid read FDrawGrid;
  
positive.code:   inherited Destroy;
  end;
  
  procedure TmDBGridHelper.SetupGrid;
  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];
  end;
  
  
  
negative.code:   inherited Destroy;
  end;
  
  procedure TmDrawGridHelper.SetupGrid(const aEnableAutoSizedColumns : boolean = true);
  begin
    FDrawGrid.Align:= alClient;
    FDrawGrid.AlternateColor:= DefaultGridAlternateColor;
  