From ac1a3cb1ad7d0cb4ecbe19af8128c980e8273ca2 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 26 Dec 2017 13:56:33 +0100 Subject: [PATCH] Remember previous position of session manager dialog on screen. See https://www.heidisql.com/forum.php?t=24596 --- source/connections.dfm | 1 - source/connections.pas | 4 ++++ source/helpers.pas | 5 ++++- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/source/connections.dfm b/source/connections.dfm index 4c97254f..f82a266b 100644 --- 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 index 516483a3..d779230d 100644 --- a/source/connections.pas +++ b/source/connections.pas @@ -226,6 +226,8 @@ begin 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 @@ begin 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 index 3dd625bf..b64b5cad 100644 --- a/source/helpers.pas +++ b/source/helpers.pas @@ -159,7 +159,8 @@ type 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 @@ begin 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);