feat: new attempt to leave the main window invisible behind the session manager

ansgarbecker · ansgarbecker · commit be5322c69d11 · 2026-02-06T19:26:15.000+01:00
Refs #2395
diff --git a/source/main.pas b/source/main.pas
@@ -1419,7 +1419,6 @@   TMainForm = class(TExtForm)
   SysLanguage: String;
   MainFormCreated: Boolean = False;
   MainFormAfterCreateDone: Boolean = False;
-  SessionManagerStartupDone: Boolean = False;
   PostponedLogItems: TDBLogItems;
 
 const
@@ -2723,12 +2722,22 @@ procedure TMainForm.FormResize(Sender: TObject);
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);
+var
+  DlgResult: TModalResult;
+  SessionManager: TConnForm;
 begin
-  {LogSQL(f_('Scaling controls to screen DPI: %d%%', [Round(ScaleFactor*100)]));
-  if TStyleManager.IsCustomStyleActive and (ScaleFactor<>1) then begin
-    LogSQL(f_('Caution: Style "%s" selected and non-default DPI factor - be aware that some styles appear broken with high DPI settings!', [TStyleManager.ActiveStyle.Name]));
-  end;}
-
+  // Display session manager
+  if Connections.Count = 0 then begin
+    // Cannot be done in OnCreate because we need ready forms here:
+    SessionManager := TConnForm.Create(Self);
+    DlgResult := SessionManager.ShowModal;
+    SessionManager.Free;
+    if DlgResult = mrCancel then begin
+      actExitApplicationExecute(nil);
+      Visible := False;
+      Exit;
+    end;
+  end;
 
   // Restore width of columns of all VirtualTrees
   RestoreListSetup(ListDatabases);
@@ -14473,23 +14482,7 @@ procedure TMainForm.RefreshHelperNode(NodeIndex: Cardinal);
 
 
 procedure TMainForm.ApplicationIdle(Sender: TObject; var Done: Boolean);
-var
-  DlgResult: TModalResult;
-  SessionManager: TConnForm;
 begin
-  // Display session manager
-  // Cannot be done in OnCreate because we need ready forms here
-  if (not SessionManagerStartupDone) and (Connections.Count = 0) then begin
-    SessionManagerStartupDone := True;
-    SessionManager := TConnForm.Create(Self);
-    DlgResult := SessionManager.ShowModal;
-    SessionManager.Free;
-    if DlgResult = mrCancel then begin
-      actExitApplicationExecute(nil);
-    end;
-  end;
-  SessionManagerStartupDone := True;
-
   // Sort list tables in idle time, so ListTables.TreeOptions.AutoSort does not crash the list
   // when dropping a right-clicked database
   if (PageControlMain.ActivePage = tabDatabase) and (not FListTablesSorted) then begin
