opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 20:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remember state of "Stop on errors in batch mode" button/action. Fixes issue #1128.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-07 20:13:52 +00:00
parent 7a8477c57f
commit bd4dd71797
3 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/const.inc
View File

@ -97,6 +97,8 @@ const
REGNAME_DBTREEWIDTH = 'dbtreewidth'; REGNAME_DBTREEWIDTH = 'dbtreewidth';
REGNAME_SQLOUTHEIGHT = 'sqloutheight'; REGNAME_SQLOUTHEIGHT = 'sqloutheight';
REGNAME_QUERYHELPERSWIDTH = 'queryhelperswidth'; REGNAME_QUERYHELPERSWIDTH = 'queryhelperswidth';
REGNAME_STOPONERRORSINBATCH = 'StopOnErrorsInBatchMode';
DEFAULT_STOPONERRORSINBATCH = True;
REGNAME_EDITOR_WIDTH = 'MemoEditorWidth'; REGNAME_EDITOR_WIDTH = 'MemoEditorWidth';
DEFAULT_EDITOR_WIDTH = 100; DEFAULT_EDITOR_WIDTH = 100;
REGNAME_EDITOR_HEIGHT = 'MemoEditorHeight'; REGNAME_EDITOR_HEIGHT = 'MemoEditorHeight';

1
source/main.dfm
View File

@ -2111,7 +2111,6 @@ object MainForm: TMainForm
AutoCheck = True AutoCheck = True
Caption = 'Stop on errors in batch mode' Caption = 'Stop on errors in batch mode'
Checked = True Checked = True
Enabled = False
Hint = 'Stop on errors in batch mode' Hint = 'Stop on errors in batch mode'
ImageIndex = 63 ImageIndex = 63
OnExecute = actQueryStopOnErrorsExecute OnExecute = actQueryStopOnErrorsExecute

5
source/main.pas
View File

@ -1064,6 +1064,7 @@ begin
MainReg.WriteInteger(REGNAME_TOOLBARDATATOP, ToolBarData.Top); MainReg.WriteInteger(REGNAME_TOOLBARDATATOP, ToolBarData.Top);
MainReg.WriteInteger(REGNAME_TOOLBARQUERYLEFT, ToolBarQuery.Left); MainReg.WriteInteger(REGNAME_TOOLBARQUERYLEFT, ToolBarQuery.Left);
MainReg.WriteInteger(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top); MainReg.WriteInteger(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top);
MainReg.WriteBool(REGNAME_STOPONERRORSINBATCH, actQueryStopOnErrors.Checked);
// Save delimiter // Save delimiter
MainReg.WriteString( REGNAME_DELIMITER, Delimiter ); MainReg.WriteString( REGNAME_DELIMITER, Delimiter );
@ -1205,6 +1206,7 @@ begin
ToolBarData.Top := GetRegValue(REGNAME_TOOLBARDATATOP, ToolBarData.Top); ToolBarData.Top := GetRegValue(REGNAME_TOOLBARDATATOP, ToolBarData.Top);
ToolBarQuery.Left := GetRegValue(REGNAME_TOOLBARQUERYLEFT, ToolBarQuery.Left); ToolBarQuery.Left := GetRegValue(REGNAME_TOOLBARQUERYLEFT, ToolBarQuery.Left);
ToolBarQuery.Top := GetRegValue(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top); ToolBarQuery.Top := GetRegValue(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top);
actQueryStopOnErrors.Checked := GetRegValue(REGNAME_STOPONERRORSINBATCH, DEFAULT_STOPONERRORSINBATCH);
pnlQueryMemo.Height := GetRegValue(REGNAME_QUERYMEMOHEIGHT, pnlQueryMemo.Height); pnlQueryMemo.Height := GetRegValue(REGNAME_QUERYMEMOHEIGHT, pnlQueryMemo.Height);
pnlQueryHelpers.Width := GetRegValue(REGNAME_QUERYHELPERSWIDTH, pnlQueryHelpers.Width); pnlQueryHelpers.Width := GetRegValue(REGNAME_QUERYHELPERSWIDTH, pnlQueryHelpers.Width);
@ -3843,7 +3845,8 @@ begin
actSaveSQLSelectionSnippet.Enabled := QueryTabActive and HasSelection; actSaveSQLSelectionSnippet.Enabled := QueryTabActive and HasSelection;
actQueryFind.Enabled := QueryTabActive and NotEmpty; actQueryFind.Enabled := QueryTabActive and NotEmpty;
actQueryReplace.Enabled := QueryTabActive and NotEmpty; actQueryReplace.Enabled := QueryTabActive and NotEmpty;
actQueryStopOnErrors.Enabled := QueryTabActive; // We need a pressed button which somehow does not work in conjunction with Enabled=False
// actQueryStopOnErrors.Enabled := QueryTabActive;
actQueryWordWrap.Enabled := QueryTabActive; actQueryWordWrap.Enabled := QueryTabActive;
actClearQueryEditor.Enabled := QueryTabActive and NotEmpty; actClearQueryEditor.Enabled := QueryTabActive and NotEmpty;
actSetDelimiter.Enabled := QueryTabActive; actSetDelimiter.Enabled := QueryTabActive;