anchor.diff:  
   { TGridColumnsSettingsFrame }
   
  +procedure TGridColumnsSettingsFrame.OnHideAllFields(Sender: TObject);
  +var
  +  curBookmark: TBookMark;
  +begin
  +  ColSettingsDataset.DisableControls;
  +  try
  +    curBookmark := ColSettingsDataset.Bookmark;
  +
  +    ColSettingsDataset.First;
  +    while not ColSettingsDataset.EOF do
  +    begin
  +      ColSettingsDataset.Edit;
  +      ColSettingsDataset.FieldByName(FLD_VISIBLE).AsBoolean:= false;
  +      ColSettingsDataset.Post;
  +      ColSettingsDataset.Next;
  +    end;
  +    ColSettingsDataset.GotoBookmark(curBookmark);
  +  finally
  +    ColSettingsDataset.EnableControls;
  +  end;
  +end;
  +
   constructor TGridColumnsSettingsFrame.Create(TheOwner: TComponent);
  +var
  +  tmpMenuItem: TMenuItem;
   begin
     inherited Create(TheOwner);
     FColSettingsGrid:= TmDBGrid.Create(Self);
  
positive.code:   SVisibleFieldLabel = 'Visible';
    SLabelFieldLabel = 'Label';
    SFormatFieldLabel = 'Format';
  
  type
  
  
negative.code:     FieldName := FLD_FORMAT;
    end;
    FColSettingsGrid.DataSource := DataSourceColSettings;
    FGridMenu := TPopupMenu.Create(FColSettingsGrid);
    FColSettingsGrid.PopupMenu := FGridMenu;
    tmpMenuItem := TMenuItem.Create(FGridMenu);
    FGridMenu.Items.Add(tmpMenuItem);
    tmpMenuItem.Caption:= SHideAllCommand;
    tmpMenuItem.OnClick:= @Self.OnHideAllFields;
  end;
  
  destructor TGridColumnsSettingsFrame.Destroy;
  