anchor.diff:    Result := FList.Items[aIndex] as TmGridColumnSettings;
   end;
   
  +procedure TmGridColumnsSettings.Assign(const aSource: TmGridColumnsSettings);
  +var
  +  i : integer;
  +begin
  +  Self.Clear;
  +  for i := 0 to aSource.Count -1 do
  +  begin
  +    Self.AddSettingsForField(aSource.Get(i).FieldName).Assign(aSource.Get(i));
  +  end;
  +end;
  +
   
   procedure TmGridColumnsSettings.Clear;
   begin
  
positive.code:     destructor Destroy; override;
  
      procedure Clear;
  
      property FieldName : String read FFieldName;
      property DisplayLabel : TNullableString read FDisplayLabel;
  
negative.code:     function GetSettingsForField (aFieldName : String) : TmGridColumnSettings;
      function Count : integer;
      function Get (aIndex : integer): TmGridColumnSettings;
  
      procedure Assign(const aSource : TmGridColumnsSettings);
  
      procedure Clear;
    end;
  