anchor.diff:      FListBoxHiddenColumns.Items.InsertObject(dest, old, oldObj)
     else
       FListBoxHiddenColumns.AddItem(old, oldObj);
  +  LBVisibleColumnsSelectionChange(nil, true);
   end;
   
   procedure TGridColumnsSettingsFrame.LBHiddenColumnsDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
  
positive.code:       FCurrentProperties.DisplayLabel.Value:= Trim(FLELabel.Text)
      else
        FCurrentProperties.DisplayLabel.IsNull:= true;
    end;
  end;
  
  
negative.code:     FListBoxHiddenColumns.Items.InsertObject(0, FListBoxVisibleColumns.Items[i], op);
    end;
    FListBoxVisibleColumns.Clear;
  end;
  
  function TGridColumnsSettingsFrame.GetLBLine(const aColSettings: TmGridColumnSettings): String;
  begin
    Result := aColSettings.DisplayLabel.AsString + ' ['+ aColSettings.FieldName + ']';
  end;
  
  procedure TGridColumnsSettingsFrame.CreateHiddenColsPanel;
  