editor options, dont reset font size to default

but still stores what's size should be default (CTRL+.)
This commit is contained in:
Basile Burg 2015-12-11 04:27:18 +01:00
parent b977e9a092
commit e2765665eb
2 changed files with 4 additions and 1 deletions

View File

@ -538,6 +538,7 @@ var
shc: TCEPersistentShortcut;
kst: TSynEditKeyStroke;
dup: boolean;
savedSize: integer;
begin
anEditor.D2Highlighter.Assign(D2Syn);
anEditor.TxtHighlighter.Assign(TxtSyn);
@ -545,8 +546,10 @@ begin
anEditor.autoDotDelay:=fAutoDotDelay;
anEditor.ddocDelay:=fDDocDelay;
savedSize := anEditor.Font.Size;
anEditor.defaultFontSize := font.Size;
anEditor.Font.Assign(font);
anEditor.Font.Size := savedSize;
anEditor.completionMenu.TheForm.Height := fCompletionMenuHeight;
anEditor.completionMenu.TheForm.Width := fCompletionMenuWidth;

View File

@ -441,7 +441,7 @@ begin
fDDocTimer.Interval := fDDocDelay;
fDDocTimer.OnTimer := @DDocTimerEvent;
//
fAutoDotDelay := 200;
fAutoDotDelay := 20;
fAutoDotTimer := TIdleTimer.Create(self);
fAutoDotTimer.AutoEnabled:=true;
fAutoDotTimer.Interval := fAutoDotDelay;