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

Implement preference option to adjust tab width in SynMemos. Fixes issue #857.

Browse Source
This commit is contained in:
Ansgar Becker
2009-11-24 19:34:48 +00:00
parent e5771ad084
commit 0c83491ed5
4 changed files with 46 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/main.pas
View File

@ -8812,7 +8812,7 @@ var
Editors: TObjectList;
BaseEditor, Editor: TSynMemo;
FontName: String;
FontSize: Integer;
FontSize, TabWidth: Integer;
KeyStroke: TSynEditKeyStroke;
ActiveLineColor: TColor;
Attri: TSynHighlighterAttributes;
@ -8844,6 +8844,7 @@ begin
FontName := GetRegValue(REGNAME_FONTNAME, DEFAULT_FONTNAME);
FontSize := GetRegValue(REGNAME_FONTSIZE, DEFAULT_FONTSIZE);
TabWidth := GetRegValue(REGNAME_TABWIDTH, DEFAULT_TABWIDTH);
ActiveLineColor := StringToColor(GetRegValue(REGNAME_SQLCOLACTIVELINE, ColorToString(DEFAULT_SQLCOLACTIVELINE)));
for i:=0 to Editors.Count-1 do begin
Editor := Editors[i] as TSynMemo;
@ -8853,7 +8854,7 @@ begin
Editor.Gutter.Font.Size := FontSize;
Editor.ActiveLineColor := ActiveLineColor;
Editor.Options := BaseEditor.Options;
Editor.TabWidth := BaseEditor.TabWidth;
Editor.TabWidth := TabWidth;
Editor.MaxScrollWidth := BaseEditor.MaxScrollWidth;
// Shortcuts
if Editor = BaseEditor then for j:=0 to Editor.Keystrokes.Count-1 do begin