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

Make "Wrap long lines" button work globally, for all SynMemos except the SQL log. Also, store and restore its state when closing/opening HeidiSQL. See forum post: http://www.heidisql.com/forum.php?t=6476

Browse Source
This commit is contained in:
Ansgar Becker
2010-09-19 13:46:55 +00:00
parent 0889281c22
commit 22f9fa176b
3 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/const.inc
View File

@ -96,6 +96,7 @@ const
REGNAME_QUERYHELPERSWIDTH = 'queryhelperswidth';
REGNAME_STOPONERRORSINBATCH = 'StopOnErrorsInBatchMode';
DEFAULT_STOPONERRORSINBATCH = True;
REGNAME_WRAPLINES = 'WrapLongLines';
REGNAME_BLOBASTEXT = 'DisplayBLOBsAsText';
DEFAULT_BLOBASTEXT = False;
REGNAME_EDITOR_WIDTH = 'MemoEditorWidth';

1
source/main.dfm
View File

@ -2445,7 +2445,6 @@ object MainForm: TMainForm
Category = 'SQL'
AutoCheck = True
Caption = 'Wrap long lines'
Enabled = False
Hint = 'Wrap long lines'
ImageIndex = 62
OnExecute = actQueryWordWrapExecute

10
source/main.pas
View File

@ -1201,6 +1201,7 @@ begin
MainReg.WriteBool(REGNAME_PREVIEW_ENABLED, actDataPreview.Checked);
MainReg.WriteInteger( REGNAME_SQLOUTHEIGHT, SynMemoSQLLog.Height );
MainReg.WriteBool(REGNAME_FILTERACTIVE, pnlFilterVT.Tag=Integer(True));
MainReg.WriteBool(REGNAME_WRAPLINES, actQueryWordWrap.Checked);
// Convert set to string.
case WindowState of
wsMinimized: WinState := 'Minimized';
@ -1366,6 +1367,7 @@ begin
ToolBarQuery.Top := GetRegValue(REGNAME_TOOLBARQUERYTOP, ToolBarQuery.Top);
actQueryStopOnErrors.Checked := GetRegValue(REGNAME_STOPONERRORSINBATCH, DEFAULT_STOPONERRORSINBATCH);
actBlobAsText.Checked := GetRegValue(REGNAME_BLOBASTEXT, DEFAULT_BLOBASTEXT);
actQueryWordWrap.Checked := GetRegValue(REGNAME_WRAPLINES, actQueryWordWrap.Checked);
pnlQueryMemo.Height := GetRegValue(REGNAME_QUERYMEMOHEIGHT, pnlQueryMemo.Height);
treeQueryHelpers.Width := GetRegValue(REGNAME_QUERYHELPERSWIDTH, treeQueryHelpers.Width);
@ -3196,7 +3198,8 @@ end;
procedure TMainForm.actQueryWordWrapExecute(Sender: TObject);
begin
ActiveQueryMemo.WordWrap := TAction(Sender).Checked;
// SetupSynEditors applies all customizations to any SynEditor
SetupSynEditors;
end;
@ -4289,9 +4292,6 @@ begin
actSaveSQLselection.Enabled := InQueryTab and HasSelection;
actSaveSQLSnippet.Enabled := InQueryTab and NotEmpty;
actSaveSQLSelectionSnippet.Enabled := InQueryTab and HasSelection;
// We need a pressed button which somehow does not work in conjunction with Enabled=False
// actQueryStopOnErrors.Enabled := QueryTabActive;
actQueryWordWrap.Enabled := InQueryTab;
actClearQueryEditor.Enabled := InQueryTab and NotEmpty;
actSetDelimiter.Enabled := InQueryTab;
actCloseQueryTab.Enabled := IsQueryTab(PageControlMain.ActivePageIndex, False);
@ -8931,6 +8931,8 @@ begin
Editor.Gutter.LeftOffset := BaseEditor.Gutter.LeftOffset;
Editor.Gutter.RightOffset := BaseEditor.Gutter.RightOffset;
Editor.Gutter.ShowLineNumbers := BaseEditor.Gutter.ShowLineNumbers;
if Editor <> SynMemoSQLLog then
Editor.WordWrap := actQueryWordWrap.Checked;
Editor.ActiveLineColor := ActiveLineColor;
Editor.Options := BaseEditor.Options;
Editor.TabWidth := TabWidth;