fix: bad anchors on "start" tab of session manager, plus add an info label for portable users

ansgarbecker · ansgarbecker · commit a140b199d5a4 · 2025-12-29T21:04:50.000+01:00
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -3704,7 +3704,7 @@ constructor TAppSettings.Create;
   InitSetting(asUsermanagerListWidth,             'Usermanager_ListWidth',                 180);
   InitSetting(asSelectDBOWindowWidth,             'SelectDBO_WindowWidth',                 250);
   InitSetting(asSelectDBOWindowHeight,            'SelectDBO_WindowHeight',                350);
-  InitSetting(asSessionManagerListWidth,          'SessionManager_ListWidth',              220);
+  InitSetting(asSessionManagerListWidth,          'SessionManager_ListWidth',              300);
   InitSetting(asSessionManagerListFoldersAtTop,   'SessionManager_ListFoldersAtTop',       0, True);
   InitSetting(asSessionManagerWindowWidth,        'SessionManager_WindowWidth',            700);
   InitSetting(asSessionManagerWindowHeight,       'SessionManager_WindowHeight',           490);
diff --git a/source/connections.lfm b/source/connections.lfm
@@ -45,26 +45,50 @@ object connform: Tconnform
       ClientWidth = 648
       ImageIndex = 112
       object lblHelp: TLabel
-        Left = 0
-        Height = 201
-        Top = 0
-        Width = 648
-        Align = alTop
-        AutoSize = False
+        AnchorSideLeft.Control = tabStart
+        AnchorSideTop.Control = tabStart
+        AnchorSideRight.Control = tabStart
+        AnchorSideRight.Side = asrBottom
+        Left = 6
+        Height = 20
+        Top = 6
+        Width = 636
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Around = 6
         Caption = 'lblHelp'
         WordWrap = True
       end
       object btnImportSettings: TSpeedButton
-        Left = 12
-        Height = 31
-        Top = 230
-        Width = 597
-        Anchors = [akTop, akLeft, akRight]
+        AnchorSideLeft.Control = tabStart
+        AnchorSideTop.Control = lblHelp
+        AnchorSideTop.Side = asrBottom
+        Left = 6
+        Height = 30
+        Top = 32
+        Width = 143
+        AutoSize = True
+        BorderSpacing.Around = 6
         Caption = 'Import settings ...'
         Images = MainForm.ImageListMain
         ImageIndex = 101
         OnClick = btnImportSettingsClick
       end
+      object lblHelpPortable: TLabel
+        AnchorSideLeft.Control = tabStart
+        AnchorSideTop.Control = btnImportSettings
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = tabStart
+        AnchorSideRight.Side = asrBottom
+        Left = 6
+        Height = 40
+        Top = 68
+        Width = 636
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Around = 6
+        Caption = 'Previous portable settings must be imported once in this version. To do this, click on the button above and open your old .txt file.'
+        Visible = False
+        WordWrap = True
+      end
     end
     object tabSettings: TTabSheet
       Caption = 'Settings'
diff --git a/source/connections.pas b/source/connections.pas
@@ -26,6 +26,7 @@   Tconnform = class(TExtForm)
     btnSave: TBitBtn;
     btnNew: TBitBtn;
     btnDelete: TBitBtn;
+    lblHelpPortable: TLabel;
     lblSshPassHint: TLabel;
     pnlBottom: TPanel;
     popupSessions: TPopupMenu;
@@ -1029,12 +1030,16 @@ procedure Tconnform.ListSessionsFocusChanged(Sender: TBaseVirtualTree;
 
   if not SessionFocused then begin
     PageControlDetails.ActivePage := tabStart;
-    if ListSessions.RootNodeCount = 0 then
+    if ListSessions.RootNodeCount = 0 then begin
       lblHelp.Caption := f_('New here? In order to connect to a server, you have to create a so called '+
         '"session" at first. Just click the "New" button on the bottom left to create your first session. '+
-        'Give it a friendly name (e.g. "Local DB server") so you''ll recall it the next time you start %s.', [APPNAME])
-    else
+        'Give it a friendly name (e.g. "Local DB server") so you''ll recall it the next time you start %s.', [APPNAME]);
+      lblHelpPortable.Visible := AppSettings.PortableMode;
+    end
+    else begin
       lblHelp.Caption := _('Please click a session on the left list to edit parameters, doubleclick to open it.');
+      lblHelpPortable.Visible := False;
+    end;
   end else begin
     PageControlDetails.ActivePage := tabSettings;
 
