feat: add a few items to the top of the grid's header context menu

ansgarbecker · ansgarbecker · commit eb9cd8b57bd5 · 2026-01-28T19:44:00.000+01:00
diff --git a/extra/locale/heidisql.po b/extra/locale/heidisql.po
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: HeidiSQL\n"
 "POT-Creation-Date: 2012-11-05 21:40\n"
-"PO-Revision-Date: 2025-11-06 19:16+0100\n"
+"PO-Revision-Date: 2026-01-28 19:41+0100\n"
 "Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
 "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n"
 "Language: en\n"
@@ -6767,3 +6767,9 @@ msgstr "Open file after creation"
 
 msgid "Source table"
 msgstr "Source table"
+
+msgid "Make sure sshpass is available when using a password"
+msgstr "Make sure sshpass is available when using a password"
+
+msgid "Copy column names"
+msgstr "Copy column names"
diff --git a/source/main.lfm b/source/main.lfm
@@ -21123,7 +21123,6 @@ object MainForm: TMainForm
   object popupListHeader: TLazVTHeaderPopupMenu
     Images = ImageListMain
     OnPopup = popupListHeaderPopup
-    Options = [poResizeToFitItem]
     Left = 256
     Top = 264
   end
diff --git a/source/main.pas b/source/main.pas
@@ -1197,6 +1197,8 @@   TMainForm = class(TExtForm)
     procedure actCopyUpdate(Sender: TObject);
     procedure FormChangeBounds(Sender: TObject);
     procedure menuToggleAllClick(Sender: TObject);
+    procedure menuAutoFitAllClick(Sender: TObject);
+    procedure menuCopyColumnNamesClick(Sender: TObject);
     procedure menuCloseTabOnDblClickClick(Sender: TObject);
     procedure TimerRefreshTimer(Sender: TObject);
     procedure SynCompletionProposalChange(Sender: TObject);
@@ -10049,9 +10051,6 @@ procedure TMainForm.menuTreeExpandAllClick(Sender: TObject);
   DBtree.ScrollIntoView(DBtree.FocusedNode, False);
 end;
 
-{**
-  Collapse all db nodes
-}
 procedure TMainForm.menuToggleAllClick(Sender: TObject);
 var
   Grid: TVirtualStringTree;
@@ -10085,6 +10084,31 @@ procedure TMainForm.menuToggleAllClick(Sender: TObject);
 
 end;
 
+procedure TMainForm.menuAutoFitAllClick(Sender: TObject);
+var
+  Grid: TVirtualStringTree;
+begin
+  Grid := PopupComponent(Sender) as TVirtualStringTree;
+  Grid.Header.AutoFitColumnsWithHeaderMin;
+end;
+
+procedure TMainForm.menuCopyColumnNamesClick(Sender: TObject);
+var
+  Grid: TVirtualStringTree;
+  Col: TColumnIndex;
+  List: TStringList;
+begin
+  Grid := PopupComponent(Sender) as TVirtualStringTree;
+  List := TStringList.Create;
+  Col := Grid.Header.Columns.GetFirstVisibleColumn(True);
+  while Col > NoColumn do begin
+    List.Add(Grid.Header.Columns[Col].Text);
+    Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
+  end;
+  Clipboard.TryAsText := List.CommaText;
+  List.Free;
+end;
+
 procedure TMainForm.menuTreeCollapseAllClick(Sender: TObject);
 var
   n: PVirtualNode;
@@ -12723,11 +12747,26 @@ procedure TMainForm.popupListHeaderPopup(Sender: TObject);
 var
   Item: TMenuItem;
 begin
-  // Add toggle all menu item
+  // Add a few items to the top of the grid's header context menu
   Item := TMenuItem.Create(popupListHeader);
   Item.Caption := _('Toggle visibility of all columns');
   Item.OnClick := menuToggleAllClick;
   popupListHeader.Items.Insert(0, Item);
+
+  Item := TMenuItem.Create(popupListHeader);
+  Item.Caption := _('Size &All Columns to Fit');
+  Item.OnClick := menuAutoFitAllClick;
+  popupListHeader.Items.Insert(1, Item);
+
+  Item := TMenuItem.Create(popupListHeader);
+  Item.Caption := _('Copy column names');
+  Item.OnClick := menuCopyColumnNamesClick;
+  Item.ImageIndex := actCopy.ImageIndex;
+  popupListHeader.Items.Insert(2, Item);
+
+  Item := TMenuItem.Create(popupListHeader);
+  Item.Caption := '-';
+  popupListHeader.Items.Insert(3, Item);
 end;
 
 
