anchor.diff:    FVisibleColsMenu.Items.Add(tmpMenuItem);
     tmpMenuItem.Caption:= SHideAllCommand;
     tmpMenuItem.OnClick:= @OnHideAllFields;
  -
   end;
   
   procedure TGridColumnsSettingsFrame.CreatePropertiesPanel;
  
positive.code:     FListBoxHiddenColumns.Items.InsertObject(0, FListBoxVisibleColumns.Items[i], op);
    end;
    FListBoxVisibleColumns.Clear;
  end;
  
  procedure TGridColumnsSettingsFrame.CreateHiddenColsPanel;
  
negative.code:   FListBoxVisibleColumns.OnDragOver:= @LBVisibleColumnsDragOver;
    FListBoxVisibleColumns.OnSelectionChange:= @LBVisibleColumnsSelectionChange;
    FListBoxVisibleColumns.OnStartDrag:= @LBVisibleColumnsStartDrag;
    FListBoxVisibleColumns.OnDrawItem:= @Self.LBDrawItem;
    FListBoxVisibleColumns.Style:= lbOwnerDrawFixed;
    FListBoxVisibleColumns.ItemHeight:= 20;
  
    FVisibleColsMenu := TPopupMenu.Create(FListBoxVisibleColumns);
    FListBoxVisibleColumns.PopupMenu := FVisibleColsMenu;
  