feat: re-enable menu item on list header context menu: "Toggle visibility of all columns"

ansgarbecker · ansgarbecker · commit 41169f773de7 · 2026-01-22T16:50:18.000+01:00
diff --git a/source/main.lfm b/source/main.lfm
@@ -21109,6 +21109,7 @@ object MainForm: TMainForm
   end
   object popupListHeader: TLazVTHeaderPopupMenu
     Images = ImageListMain
+    OnPopup = popupListHeaderPopup
     Options = [poResizeToFitItem]
     Left = 256
     Top = 264
diff --git a/source/main.pas b/source/main.pas
@@ -790,7 +790,6 @@   TMainForm = class(TExtForm)
     Copywithtabstospaces1: TMenuItem;
     Movelinedown1: TMenuItem;
     Movelineup1: TMenuItem;
-    menuToggleAll: TMenuItem;
     menuCloseTabOnDblClick: TMenuItem;
     Undo1: TMenuItem;
     actSequalSuggest: TAction;
@@ -840,6 +839,7 @@   TMainForm = class(TExtForm)
     procedure actPrintListExecute(Sender: TObject);
     procedure actCopyTableExecute(Sender: TObject);
     procedure PageControlMainCloseTabClicked(Sender: TObject);
+    procedure popupListHeaderPopup(Sender: TObject);
     procedure ShowStatusMsg(Msg: String=''; PanelNr: Integer=6);
     procedure actExecuteQueryExecute(Sender: TObject);
     procedure actCreateDatabaseExecute(Sender: TObject);
@@ -1194,7 +1194,7 @@   TMainForm = class(TExtForm)
     procedure actCopyUpdate(Sender: TObject);
     //procedure FormBeforeMonitorDpiChanged(Sender: TObject; OldDPI,
     //  NewDPI: Integer);
-    //procedure menuToggleAllClick(Sender: TObject);
+    procedure menuToggleAllClick(Sender: TObject);
     //procedure FormAfterMonitorDpiChanged(Sender: TObject; OldDPI,
     //  NewDPI: Integer);
     procedure menuCloseTabOnDblClickClick(Sender: TObject);
@@ -10055,7 +10055,7 @@ procedure TMainForm.menuTreeExpandAllClick(Sender: TObject);
 {**
   Collapse all db nodes
 }
-{procedure TMainForm.menuToggleAllClick(Sender: TObject);
+procedure TMainForm.menuToggleAllClick(Sender: TObject);
 var
   Grid: TVirtualStringTree;
   Col: TColumnIndex;
@@ -10086,7 +10086,7 @@ procedure TMainForm.menuTreeExpandAllClick(Sender: TObject);
     Col := Grid.Header.Columns.GetNextColumn(Col);
   end;
 
-end;}
+end;
 
 procedure TMainForm.menuTreeCollapseAllClick(Sender: TObject);
 var
@@ -12732,6 +12732,17 @@ procedure TMainForm.PageControlMainCloseTabClicked(Sender: TObject);
   TimerCloseTabByButton.Enabled := True;
 end;
 
+procedure TMainForm.popupListHeaderPopup(Sender: TObject);
+var
+  Item: TMenuItem;
+begin
+  // Add toggle all menu item
+  Item := TMenuItem.Create(popupListHeader);
+  Item.Caption := _('Toggle visibility of all columns');
+  Item.OnClick := menuToggleAllClick;
+  popupListHeader.Items.Insert(0, Item);
+end;
+
 
 procedure TMainForm.TimerCloseTabByButtonTimer(Sender: TObject);
 var
