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);