enhance: position session manager centered over main form, ignore position set by user

ansgarbecker · ansgarbecker · commit 571c671be3f0 · 2025-12-10T16:18:48.000+01:00
diff --git a/source/connections.lfm b/source/connections.lfm
@@ -12,6 +12,7 @@ object connform: Tconnform
   Constraints.MinHeight = 338
   Constraints.MinWidth = 550
   DesignTimePPI = 120
+  Position = poMainFormCenter
   ShowHint = True
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
diff --git a/source/connections.pas b/source/connections.pas
@@ -291,8 +291,6 @@ procedure Tconnform.FormCreate(Sender: TObject);
 begin
   Width := AppSettings.ReadInt(asSessionManagerWindowWidth);
   Height := AppSettings.ReadInt(asSessionManagerWindowHeight);
-  Left := AppSettings.ReadInt(asSessionManagerWindowLeft, '', Left);
-  Top := AppSettings.ReadInt(asSessionManagerWindowTop, '', Top);
   // Move to visible area if window was on a now plugged off monitor previously
   MakeFullyVisible;
   pnlLeft.Width := AppSettings.ReadInt(asSessionManagerListWidth);
@@ -491,8 +489,6 @@ procedure Tconnform.FormDestroy(Sender: TObject);
   AppSettings.WriteInt(asSessionManagerListWidth, ScaleFormToDesign(pnlLeft.Width));
   AppSettings.WriteInt(asSessionManagerWindowWidth, ScaleFormToDesign(Width));
   AppSettings.WriteInt(asSessionManagerWindowHeight, ScaleFormToDesign(Height));
-  AppSettings.WriteInt(asSessionManagerWindowLeft, ScaleFormToDesign(Left));
-  AppSettings.WriteInt(asSessionManagerWindowTop, ScaleFormToDesign(Top));
   SaveListSetup(ListSessions);
 end;
 
