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 WordWrap button on text and hex editor. Fixes issue #2055.

Browse Source
This commit is contained in:
Ansgar Becker
2010-07-02 23:08:06 +00:00
parent ac571734f6
commit ff1467c749
3 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/bineditor.pas
View File

@ -83,6 +83,7 @@ begin
OpenRegistry; OpenRegistry;
MainReg.WriteInteger( REGNAME_EDITOR_WIDTH, Width ); MainReg.WriteInteger( REGNAME_EDITOR_WIDTH, Width );
MainReg.WriteInteger( REGNAME_EDITOR_HEIGHT, Height ); MainReg.WriteInteger( REGNAME_EDITOR_HEIGHT, Height );
MainReg.WriteBool(REGNAME_EDITOR_WORDWRAP, btnWrap.Down);
end; end;
@ -91,6 +92,8 @@ begin
// Restore form dimensions // Restore form dimensions
Width := GetRegValue(REGNAME_EDITOR_WIDTH, DEFAULT_EDITOR_WIDTH); Width := GetRegValue(REGNAME_EDITOR_WIDTH, DEFAULT_EDITOR_WIDTH);
Height := GetRegValue(REGNAME_EDITOR_HEIGHT, DEFAULT_EDITOR_HEIGHT); Height := GetRegValue(REGNAME_EDITOR_HEIGHT, DEFAULT_EDITOR_HEIGHT);
if GetRegValue(REGNAME_EDITOR_WORDWRAP, btnWrap.Down) then
btnWrap.Click;
// Fix label position: // Fix label position:
lblTextLength.Top := tlbStandard.Top + (tlbStandard.Height-lblTextLength.Height) div 2; lblTextLength.Top := tlbStandard.Top + (tlbStandard.Height-lblTextLength.Height) div 2;
SetWindowSizeGrip(Handle, True); SetWindowSizeGrip(Handle, True);

1
source/const.inc
View File

@ -105,6 +105,7 @@ const
DEFAULT_EDITOR_WIDTH = 100; DEFAULT_EDITOR_WIDTH = 100;
REGNAME_EDITOR_HEIGHT = 'MemoEditorHeight'; REGNAME_EDITOR_HEIGHT = 'MemoEditorHeight';
DEFAULT_EDITOR_HEIGHT = 100; DEFAULT_EDITOR_HEIGHT = 100;
REGNAME_EDITOR_WORDWRAP = 'MemoEditorWrap';
REGNAME_DELIMITER = 'Delimiter'; REGNAME_DELIMITER = 'Delimiter';
DEFAULT_DELIMITER = ';'; DEFAULT_DELIMITER = ';';
REGNAME_SQLHELPWINLEFT = 'SQLHelp_WindowLeft'; REGNAME_SQLHELPWINLEFT = 'SQLHelp_WindowLeft';

3
source/texteditor.pas
View File

@ -171,6 +171,7 @@ begin
OpenRegistry; OpenRegistry;
MainReg.WriteInteger( REGNAME_EDITOR_WIDTH, Width ); MainReg.WriteInteger( REGNAME_EDITOR_WIDTH, Width );
MainReg.WriteInteger( REGNAME_EDITOR_HEIGHT, Height ); MainReg.WriteInteger( REGNAME_EDITOR_HEIGHT, Height );
MainReg.WriteBool(REGNAME_EDITOR_WORDWRAP, btnWrap.Down);
end; end;
@ -179,6 +180,8 @@ begin
// Restore form dimensions // Restore form dimensions
Width := GetRegValue(REGNAME_EDITOR_WIDTH, DEFAULT_EDITOR_WIDTH); Width := GetRegValue(REGNAME_EDITOR_WIDTH, DEFAULT_EDITOR_WIDTH);
Height := GetRegValue(REGNAME_EDITOR_HEIGHT, DEFAULT_EDITOR_HEIGHT); Height := GetRegValue(REGNAME_EDITOR_HEIGHT, DEFAULT_EDITOR_HEIGHT);
if GetRegValue(REGNAME_EDITOR_WORDWRAP, btnWrap.Down) then
btnWrap.Click;
// Fix label position: // Fix label position:
lblTextLength.Top := tlbStandard.Top + (tlbStandard.Height-lblTextLength.Height) div 2; lblTextLength.Top := tlbStandard.Top + (tlbStandard.Height-lblTextLength.Height) div 2;
SetWindowSizeGrip(Handle, True); SetWindowSizeGrip(Handle, True);