anchor.diff:      function GetSettingsForField (aFieldName : String) : TmGridColumnSettings;
       function Count : integer;
       function Get (aIndex : integer): TmGridColumnSettings;
  +
  +    procedure Assign(const aSource : TmGridColumnsSettings);
   
       procedure Clear;
     end;
  
positive.code:     destructor Destroy; override;
  
      procedure Clear;
  
      property FieldName : String read FFieldName;
      property DisplayLabel : TNullableString read FDisplayLabel;
  
negative.code:   FDisplayFormat.IsNull:= true;
  end;
  
  procedure TmGridColumnSettings.Assign(const aSource: TmGridColumnSettings);
  begin
    DisplayLabel.Assign(aSource.DisplayLabel);
    Visible.Assign(aSource.Visible);
    DisplayFormat.Assign(aSource.DisplayFormat);
    Width.Assign(aSource.Width);
    SortOrder.Assign(aSource.SortOrder);
  end;
  
  end.
  