Minor comfort enhancement as described in rfe #619: Recall last manually set LIMIT values in top menu on startup.

This commit is contained in:
Ansgar Becker
2008-07-16 21:26:06 +00:00
parent 19533a23f9
commit 2d12725550
2 changed files with 10 additions and 0 deletions

View File

@ -52,6 +52,10 @@ const
DEFAULT_DATAFONTNAME = 'Tahoma';
REGNAME_DATAFONTSIZE = 'DataFontSize';
DEFAULT_DATAFONTSIZE = 8;
REGNAME_DATALIMITSTART = 'DataLimitStart';
DEFAULT_DATALIMITSTART = 0;
REGNAME_DATALIMITEND = 'DataLimitEnd';
DEFAULT_DATALIMITEND = 5000;
REGNAME_LOGSQLNUM = 'logsqlnum';
DEFAULT_LOGSQLNUM = 300;
REGNAME_LOGSQLWIDTH = 'logsqlwidth';

View File

@ -489,6 +489,9 @@ begin
WriteInteger(REGNAME_TOOLBARQUERYLEFT, ToolBarQuery.Left);
WriteInteger(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top);
WriteInteger(REGNAME_DATALIMITSTART, UpdownLimitStart.Position);
WriteInteger(REGNAME_DATALIMITEND, UpdownLimitEnd.Position);
// Save delimiter
WriteString( REGNAME_DELIMITER, Delimiter );
end;
@ -563,6 +566,9 @@ begin
ToolBarQuery.Left := GetRegValue(REGNAME_TOOLBARQUERYLEFT, ToolBarQuery.Left);
ToolBarQuery.Top := GetRegValue(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top);
UpdownLimitStart.Position := GetRegValue(REGNAME_DATALIMITSTART, DEFAULT_DATALIMITSTART);
UpdownLimitEnd.Position := GetRegValue(REGNAME_DATALIMITEND, DEFAULT_DATALIMITEND);
// Delimiter
Delimiter := GetRegValue(REGNAME_DELIMITER, DEFAULT_DELIMITER);