anchor.diff:      {$IFDEF DEBUG_COL_SET}DebugLn('[ApplySettingsToField] ' + aSettings.FieldName + ' ' +aColumn.Title.Caption);{$ENDIF}
     end;
     if aSettings.Width.NotNull then
  -    aColumn.Width:= aSettings.Width.Value;
  +    aColumn.Width:= max(aSettings.Width.Value, MINIMUM_GRID_COLUMN_WIDTH);
     if aSettings.SortOrder.NotNull then
       aColumn.Index := aSettings.SortOrder.Value;
   end;
  
positive.code:   Contnrs, Grids, DBGrids,
    {$IFDEF DEBUG_COL_SET}LazLogger,{$ENDIF}
    mMaps, mXML, mNullables, mSystemColumns;
  
  type
  
  
negative.code:   aSettings.DisplayFormat.Value:= aColumn.DisplayFormat;
    aSettings.DisplayLabel.Value:= aColumn.Title.Caption;
    aSettings.SortOrder.Value:= aColumn.Index;
    aSettings.Width.Value:= max(MINIMUM_GRID_COLUMN_WIDTH, aColumn.Width);
  end;
  
  procedure ApplySettingsToField(aColumn: TColumn; aSettings : TmGridColumnSettings);
  