Skip to content
Permalink
Browse files

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

…or the next time it opens
  • Loading branch information...
ansgarbecker committed Mar 10, 2019
1 parent 7ae1599 commit 0ef9b64947a8e1c4325b93a606852d91131102f4
Showing with 134 additions and 156 deletions.
  1. +3 −0 source/apphelpers.pas
  2. +1 −0 source/exportgrid.dfm
  3. +118 −154 source/options.dfm
  4. +12 −2 source/options.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;

@@ -1,6 +1,7 @@
object frmExportGrid: TfrmExportGrid
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = 'Export grid rows'
ClientHeight = 422
ClientWidth = 373
Oops, something went wrong.

0 comments on commit 0ef9b64

Please sign in to comment.
You can’t perform that action at this time.