feat: sort session folders at top per setting

ansgarbecker · ansgarbecker · commit 93dc93680327 · 2025-10-29T19:19:29.000+01:00
Refs: #1828
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -203,7 +203,7 @@   TWinControlHelper = class helper for TWinControl
     asTableToolsFindTextTab, asTableToolsFindText, asTableToolsFindSQL, asTableToolsDatatype, asTableToolsFindCaseSensitive, asTableToolsFindMatchType, asFileImportWindowWidth, asFileImportWindowHeight,
     asEditVarWindowWidth, asEditVarWindowHeight, asUsermanagerWindowWidth, asUsermanagerWindowHeight, asUsermanagerListWidth,
     asSelectDBOWindowWidth, asSelectDBOWindowHeight,
-    asSessionManagerListWidth, asSessionManagerWindowWidth, asSessionManagerWindowHeight, asSessionManagerWindowLeft, asSessionManagerWindowTop,
+    asSessionManagerListWidth, asSessionManagerListFoldersAtTop, asSessionManagerWindowWidth, asSessionManagerWindowHeight, asSessionManagerWindowLeft, asSessionManagerWindowTop,
     asCopyTableWindowHeight, asCopyTableWindowWidth, asCopyTableColumns, asCopyTableKeys, asCopyTableForeignKeys,
     asCopyTableData, asCopyTableRecentFilter, asServerVersion, asServerVersionFull, asLastConnect,
     asConnectCount, asRefusedCount, asSessionCreated, asDoUsageStatistics,
@@ -2192,7 +2192,7 @@ function CompareAnyNode(Text1, Text2: String): Integer;
   end;
   if (not NumberMode) or (Result=0) then begin
     // Compare Strings
-    Result := CompareText(Text1, Text2);
+    Result := CompareText(Text1, Text2, loUserLocale);
   end;
 end;
 
@@ -3855,6 +3855,7 @@ constructor TAppSettings.Create;
   InitSetting(asSelectDBOWindowWidth,             'SelectDBO_WindowWidth',                 250);
   InitSetting(asSelectDBOWindowHeight,            'SelectDBO_WindowHeight',                350);
   InitSetting(asSessionManagerListWidth,          'SessionManager_ListWidth',              220);
+  InitSetting(asSessionManagerListFoldersAtTop,   'SessionManager_ListFoldersAtTop',       0, True);
   InitSetting(asSessionManagerWindowWidth,        'SessionManager_WindowWidth',            700);
   InitSetting(asSessionManagerWindowHeight,       'SessionManager_WindowHeight',           490);
   InitSetting(asSessionManagerWindowLeft,         'SessionManager_WindowLeft',             50);
diff --git a/source/connections.lfm b/source/connections.lfm
@@ -1103,6 +1103,7 @@ object connform: Tconnform
       TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
       TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
       OnBeforeCellPaint = ListSessionsBeforeCellPaint
+      OnCompareNodes = ListSessionsCompareNodes
       OnCreateEditor = ListSessionsCreateEditor
       OnFocusChanged = ListSessionsFocusChanged
       OnFocusChanging = ListSessionsFocusChanging
@@ -1248,6 +1249,11 @@ object connform: Tconnform
     object Filter1: TMenuItem
       Action = actFilter
     end
+    object menuFoldersAtTop: TMenuItem
+      AutoCheck = True
+      Caption = 'Folders at top'
+      OnClick = menuFoldersAtTopClick
+    end
   end
   object TimerStatistics: TTimer
     Interval = 60000
diff --git a/source/connections.pas b/source/connections.pas
