anchor.diff:    Contnrs, Grids, DBGrids,
     {$IFDEF DEBUG_COL_SET}LazLogger,{$ENDIF}
     mMaps, mXML, mNullables, mSystemColumns;
  +
  +const
  +  MINIMUM_GRID_COLUMN_WIDTH = 4;
   
   type
   
  
positive.code:   aSettings.DisplayFormat.Value:= aColumn.DisplayFormat;
    aSettings.DisplayLabel.Value:= aColumn.Title.Caption;
    aSettings.SortOrder.Value:= aColumn.Index;
    aSettings.Width.Value:= aColumn.Width;
  end;
  
  procedure ApplySettingsToField(aColumn: TColumn; aSettings : TmGridColumnSettings);
  
negative.code: implementation
  
  uses
    SysUtils, Dialogs, Math;
  
  { TmGridColumnsSettings }
  
  