feat: create opt-in option for displaying columns in database tree

Refs #2069

Author: ansgarbecker

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: 2026-06-14 12:08+0200\n"
+"PO-Revision-Date: 2026-07-27 19:34+0200\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"
@@ -2364,6 +2364,9 @@ msgstr "Horizontal scrollbar"
 msgid "Group objects by type"
 msgstr "Group objects by type"
 
+msgid "Columns below tables in tree"
+msgstr "Columns below tables in tree"
+
 #. MainForm..popupDB..menuEditObject..Caption
 #: main.dfm:8573
 msgid "Edit"

source/apphelpers.pas

@@ -228,7 +228,7 @@   TCustomComboBoxHelper = class helper for TCustomComboBox
     asLogUserSQL, asLogSQL, asLogInfos, asLogDebug, asLogScript, asLogTimestamp, asFieldColorNumeric,
     asFieldColorReal, asFieldColorText, asFieldColorBinary, asFieldColorDatetime, asFieldColorSpatial,
     asFieldColorOther, asFieldEditorBinary, asFieldEditorDatetime, asFieldEditorDatetimePrefill, asFieldEditorEnum,
-    asFieldEditorSet, asFieldNullBackground, asRowBackgroundEven, asRowBackgroundOdd, asGroupTreeObjects, asDisplayObjectSizeColumn, asSQLfile,
+    asFieldEditorSet, asFieldNullBackground, asRowBackgroundEven, asRowBackgroundOdd, asGroupTreeObjects, asTreeShowColumns, asDisplayObjectSizeColumn, asSQLfile,
     asActionShortcut1, asActionShortcut2, asHighlighterForeground, asHighlighterBackground, asHighlighterStyle,
     asListColWidths, asListColsVisible, asListColPositions, asListColSort, asSessionFolder,
     asRecentFilter, asTimestampColumns, asDateTimeEditorCursorPos, asAppLanguage, asAutoExpand, asDoubleClickInsertsNodeText, asForeignDropDown,
@@ -3883,6 +3883,7 @@ constructor TAppSettings.Create;
   InitSetting(asRowBackgroundEven,                'RowBackgroundEven',                     clNone);
   InitSetting(asRowBackgroundOdd,                 'RowBackgroundOdd',                      clNone);
   InitSetting(asGroupTreeObjects,                 'GroupTreeObjects',                      0, False);
+  InitSetting(asTreeShowColumns,                  'TreeShowColumns',                       0, False);
   InitSetting(asDisplayObjectSizeColumn,          'DisplayObjectSizeColumn',               0, True);
   InitSetting(asDisplayLogPanel,                  'DisplayLogPanel',                       0, True);
   InitSetting(asDisplayTreeFilters,               'DisplayTreeFilters',                    0, True);

source/main.lfm

@@ -3693,6 +3693,10 @@ object MainForm: TMainForm
         Action = actDisplayTreeFilters
         AutoCheck = True
       end
+      object menuTreeShowColumns1: TMenuItem
+        Action = actTreeShowColumns
+        AutoCheck = True
+      end
       object menuColorScheme: TMenuItem
         Caption = 'Color scheme'
         ImageIndex = 115
@@ -5117,6 +5121,12 @@ object MainForm: TMainForm
       ImageIndex = 58
       OnExecute = actDataEditWithoutLookupExecute
     end
+    object actTreeShowColumns: TAction
+      Category = 'Various'
+      AutoCheck = True
+      Caption = 'Columns below tables in tree'
+      OnExecute = actTreeShowColumnsExecute
+    end
   end
   object ImageListMain: TImageList
     Scaled = True
@@ -20423,6 +20433,10 @@ object MainForm: TMainForm
         Action = actFavoriteObjectsOnly
         AutoCheck = True
       end
+      object menuTreeShowColumns2: TMenuItem
+        Action = actTreeShowColumns
+        AutoCheck = True
+      end
     end
     object menuPrint: TMenuItem
       Action = actPrintList

source/main.pas

@@ -217,6 +217,7 @@   TQueryHistoryItemComparer = class(TComparer<TQueryHistoryItem>)
   TMainForm = class(TExtForm)
     actCopyColumnNames: TAction;
     actDataEditWithoutLookup: TAction;
+    actTreeShowColumns: TAction;
     actPreferencesSQL: TAction;
     MainMenu1: TMainMenu;
     MainMenuFile: TMenuItem;
@@ -226,6 +227,8 @@   TMainForm = class(TExtForm)
     menuColorScheme: TMenuItem;
     MenuItem3: TMenuItem;
     menuDataEditWithoutLookup: TMenuItem;
+    menuTreeShowColumns2: TMenuItem;
+    menuTreeShowColumns1: TMenuItem;
     menuRenameSnippet: TMenuItem;
     menuSQLpreferences: TMenuItem;
     menuQFdummy: TMenuItem;
@@ -837,6 +840,7 @@   TMainForm = class(TExtForm)
     procedure actDataEditWithoutLookupExecute(Sender: TObject);
     procedure actNextTabExecute(Sender: TObject);
     procedure actPreviousTabExecute(Sender: TObject);
+    procedure actTreeShowColumnsExecute(Sender: TObject);
     procedure AnyGridContextPopup(Sender: TObject; MousePos: TPoint;
       var Handled: Boolean);
     procedure DataGridContextPopup(Sender: TObject; MousePos: TPoint;
@@ -1831,6 +1835,7 @@ procedure TMainForm.FormDestroy(Sender: TObject);
   AppSettings.WriteInt(asCompletionProposalNbLinesInWindow, SynCompletionProposal.TheForm.ScaleFormToDesign(SynCompletionProposal.LinesInWindow));
   AppSettings.WriteInt(asDbtreewidth, ScaleFormToDesign(pnlLeft.width));
   AppSettings.WriteBool(asGroupTreeObjects, actGroupObjects.Checked);
+  AppSettings.WriteBool(asTreeShowColumns, actTreeShowColumns.Checked);
   AppSettings.WriteInt(asDataPreviewHeight, ScaleFormToDesign(pnlPreview.Height));
   AppSettings.WriteBool(asDataPreviewEnabled, actDataPreview.Checked);
   AppSettings.WriteInt(asLogHeight, ScaleFormToDesign(SynMemoSQLLog.Height));
@@ -2063,6 +2068,7 @@ procedure TMainForm.FormCreate(Sender: TObject);
 
   // Display options, and database tree options
   actGroupObjects.Checked := AppSettings.ReadBool(asGroupTreeObjects);
+  actTreeShowColumns.Checked := AppSettings.ReadBool(asTreeShowColumns);
   actDisplayObjectSize.Checked := AppSettings.ReadBool(asDisplayObjectSizeColumn);
   actDisplayObjectSizeExecute(nil);
   actDisplayLogPanel.Checked := AppSettings.ReadBool(asDisplayLogPanel);
@@ -4573,6 +4579,12 @@ procedure TMainForm.actPreviousTabExecute(Sender: TObject);
   PageControlMain.SelectNextPage(False);
 end;
 
+procedure TMainForm.actTreeShowColumnsExecute(Sender: TObject);
+begin
+  // Show columns in table nodes on tree
+  RefreshTree(nil);
+end;
+
 procedure TMainForm.AnyGridContextPopup(Sender: TObject; MousePos: TPoint;
   var Handled: Boolean);
 var
@@ -9836,6 +9848,14 @@ procedure TMainForm.DBtreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node:
   Item, ParentObj: PDBObject;
   DBObjects: TDBObjectList;
   Columns: TTableColumnList;
+
+  function TreeShowColumns: Boolean;
+  begin
+    Result := Item.NodeType = lntTable;
+    if Sender = DBtree then // optional in dbtree
+      Result := actTreeShowColumns.Checked;
+  end;
+
 begin
   Item := Sender.GetNodeData(Node);
   if (not Assigned(ParentNode)) or (ParentNode = nil) then begin
@@ -9868,14 +9888,14 @@ procedure TMainForm.DBtreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node:
         end else begin
           DBObjects := ParentObj.Connection.GetDBObjects(ParentObj.Database);
           Item^ := DBObjects[Node.Index];
-          if Item.NodeType = lntTable then
+          if TreeShowColumns then
             Include(InitialStates, ivsHasChildren);
         end;
       end;
       lntGroup: begin
         DBObjects := ParentObj.Connection.GetDBObjects(ParentObj.Database, False, ParentObj.GroupType);
         Item^ := DBObjects[Node.Index];
-        if Item.NodeType = lntTable then
+        if TreeShowColumns then
           Include(InitialStates, ivsHasChildren);
       end;
       lntTable: begin