Make preferences dialog resizable, and store/restore its dimensions f…

…or the next time it opens
HeidiSQL · Mar 10, 2019 · 0ef9b64 · 0ef9b64
1 parent 7ae1599
commit 0ef9b64
Show file tree

Hide file tree

Showing 4 changed files with 134 additions and 156 deletions.
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -182,6 +182,7 @@   TQueryThread = class(TThread)
     asRecentFilter, asTimestampColumns, asDateTimeEditorCursorPos, asAppLanguage, asAutoExpand, asDoubleClickInsertsNodeText, asForeignDropDown,
     asQueryHistoryEnabled, asQueryHistoryKeepDays,
     asColumnSelectorWidth, asColumnSelectorHeight, asDonatedEmail, asFavoriteObjects, asFavoriteObjectsOnly, asFullTableStatus, asLineBreakStyle,
+    asPreferencesWindowWidth, asPreferencesWindowHeight,
     asFileDialogEncoding,
     asUnused);
   TAppSetting = record
@@ -3671,6 +3672,8 @@ constructor TAppSettings.Create;
   InitSetting(asFavoriteObjectsOnly,              'FavoriteObjectsOnly',                   0, False);
   InitSetting(asFullTableStatus,                  'FullTableStatus',                       0, True, '', True);
   InitSetting(asLineBreakStyle,                   'LineBreakStyle',                        Integer(lbsWindows));
+  InitSetting(asPreferencesWindowWidth,           'PreferencesWindowWidth',                740);
+  InitSetting(asPreferencesWindowHeight,          'PreferencesWindowHeight',               500);
   InitSetting(asFileDialogEncoding,               'FileDialogEncoding_%s',                 0);
 end;
 

diff --git a/source/exportgrid.dfm b/source/exportgrid.dfm
@@ -1,6 +1,7 @@
 object frmExportGrid: TfrmExportGrid
   Left = 0
   Top = 0
+  BorderIcons = [biSystemMenu]
   Caption = 'Export grid rows'
   ClientHeight = 422
   ClientWidth = 373