Remember previous position of session manager dialog on screen. See h…

…ttps://www.heidisql.com/forum.php?t=24596
HeidiSQL · Dec 26, 2017 · ac1a3cb · ac1a3cb
1 parent dac303d
commit ac1a3cb
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/source/connections.dfm b/source/connections.dfm
@@ -14,7 +14,6 @@ object connform: Tconnform
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
-  Position = poMainFormCenter
   ShowHint = True
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery

diff --git a/source/connections.pas b/source/connections.pas
@@ -226,6 +226,8 @@ procedure Tconnform.FormCreate(Sender: TObject);
   InheritFont(Font);
   Width := AppSettings.ReadInt(asSessionManagerWindowWidth);
   Height := AppSettings.ReadInt(asSessionManagerWindowHeight);
+  Left := AppSettings.ReadInt(asSessionManagerWindowLeft, '', Left);
+  Top := AppSettings.ReadInt(asSessionManagerWindowTop, '', Top);
   ListSessions.Width := AppSettings.ReadInt(asSessionManagerListWidth);
   splitterMain.OnMoved(Sender);
   FixVT(ListSessions);
@@ -290,6 +292,8 @@ procedure Tconnform.FormDestroy(Sender: TObject);
   AppSettings.WriteInt(asSessionManagerListWidth, ListSessions.Width);
   AppSettings.WriteInt(asSessionManagerWindowWidth, Width);
   AppSettings.WriteInt(asSessionManagerWindowHeight, Height);
+  AppSettings.WriteInt(asSessionManagerWindowLeft, Left);
+  AppSettings.WriteInt(asSessionManagerWindowTop, Top);
   MainForm.SaveListSetup(ListSessions);
 end;
 

diff --git a/source/helpers.pas b/source/helpers.pas
@@ -159,7 +159,8 @@   TQueryThread = class(TThread)
     asUpdatecheckInterval, asUpdatecheckLastrun, asTableToolsWindowWidth, asTableToolsWindowHeight, asTableToolsTreeWidth,
     asTableToolsFindText, asTableToolsDatatype, asTableToolsFindCaseSensitive, asTableToolsFindMatchType, asFileImportWindowWidth, asFileImportWindowHeight,
     asEditVarWindowWidth, asEditVarWindowHeight, asUsermanagerWindowWidth, asUsermanagerWindowHeight, asUsermanagerListWidth,
-    asSelectDBOWindowWidth, asSelectDBOWindowHeight, asSessionManagerListWidth, asSessionManagerWindowWidth, asSessionManagerWindowHeight,
+    asSelectDBOWindowWidth, asSelectDBOWindowHeight,
+    asSessionManagerListWidth, asSessionManagerWindowWidth, asSessionManagerWindowHeight, asSessionManagerWindowLeft, asSessionManagerWindowTop,
     asCopyTableWindowHeight, asCopyTableWindowWidth, asCopyTableColumns, asCopyTableKeys, asCopyTableForeignKeys,
     asCopyTableData, asCopyTableRecentFilter, asServerVersion, asServerVersionFull, asLastConnect,
     asConnectCount, asRefusedCount, asSessionCreated, asDoUsageStatistics,
@@ -3371,6 +3372,8 @@ constructor TAppSettings.Create;
   InitSetting(asSessionManagerListWidth,          'SessionManager_ListWidth',              220);
   InitSetting(asSessionManagerWindowWidth,        'SessionManager_WindowWidth',            700);
   InitSetting(asSessionManagerWindowHeight,       'SessionManager_WindowHeight',           420);
+  InitSetting(asSessionManagerWindowLeft,         'SessionManager_WindowLeft',             50);
+  InitSetting(asSessionManagerWindowTop,          'SessionManager_WindowTop',              50);
   InitSetting(asCopyTableWindowHeight,            'CopyTable_WindowHeight',                340);
   InitSetting(asCopyTableWindowWidth,             'CopyTable_WindowWidth',                 380);
   InitSetting(asCopyTableColumns,                 'CopyTable_Columns',                     0, True);