forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added editable option 'autoDotDelay' 

delay before completion menu automatically appears, 0 disables the feature
This commit is contained in:
Basile Burg 2015-05-22 09:23:13 +02:00
parent 4cc3df3e6f
commit 03d7a52218
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_editoroptions.pas
View File

@ -38,6 +38,7 @@ type
fFont: TFont; fFont: TFont;
// //
fHintDelay: Integer; fHintDelay: Integer;
fAutoDotDelay: Integer;
fTabWidth: Integer; fTabWidth: Integer;
fBlockIdent: Integer; fBlockIdent: Integer;
fLineSpacing: Integer; fLineSpacing: Integer;
@ -58,7 +59,9 @@ type
procedure setTxtSyn(aValue: TPersistent); procedure setTxtSyn(aValue: TPersistent);
procedure setShortcuts(aValue: TCollection); procedure setShortcuts(aValue: TCollection);
procedure setHintDelay(aValue: Integer); procedure setHintDelay(aValue: Integer);
procedure setAutoDotDelay(aValue: Integer);
published published
property autoDotDelay: integer read fAutoDotDelay write SetautoDotDelay;
property hintDelay: Integer read fHintDelay write setHintDelay; property hintDelay: Integer read fHintDelay write setHintDelay;
property bracketMatchColor: TSynSelectedColor read fBracketMatchColor write setBracketMatchColor; property bracketMatchColor: TSynSelectedColor read fBracketMatchColor write setBracketMatchColor;
property mouseLinkColor: TSynSelectedColor read fMouseLinkColor write setMouseLinkColor; property mouseLinkColor: TSynSelectedColor read fMouseLinkColor write setMouseLinkColor;
@ -146,6 +149,7 @@ begin
fTxtSyn.Assign(TxtSyn); fTxtSyn.Assign(TxtSyn);
// //
fHintDelay:=200; fHintDelay:=200;
fAutoDotDelay:=200;
fSelCol := TSynSelectedColor.Create; fSelCol := TSynSelectedColor.Create;
fFoldedColor := TSynSelectedColor.Create; fFoldedColor := TSynSelectedColor.Create;
fMouseLinkColor := TSynSelectedColor.Create; fMouseLinkColor := TSynSelectedColor.Create;
@ -214,6 +218,7 @@ begin
begin begin
srcopt := TCEEditorOptionsBase(src); srcopt := TCEEditorOptionsBase(src);
// //
fAutoDotDelay:=srcopt.fAutoDotDelay;
fHintDelay:=srcopt.fHintDelay; fHintDelay:=srcopt.fHintDelay;
fFont.Assign(srcopt.fFont); fFont.Assign(srcopt.fFont);
fSelCol.Assign(srcopt.fSelCol); fSelCol.Assign(srcopt.fSelCol);
@ -245,6 +250,13 @@ begin
fHintDelay:=aValue; fHintDelay:=aValue;
end; end;
procedure TCEEditorOptionsBase.setAutoDotDelay(aValue: Integer);
begin
if aValue > 2000 then aValue := 2000
else if aValue < 0 then aValue := 0;
fAutoDotDelay:=aValue;
end;
procedure TCEEditorOptionsBase.setShortcuts(aValue: TCollection); procedure TCEEditorOptionsBase.setShortcuts(aValue: TCollection);
begin begin
fShortCuts.Assign(aValue); fShortCuts.Assign(aValue);
@ -443,6 +455,7 @@ var
shc: TCEPersistentShortcut; shc: TCEPersistentShortcut;
kst: TSynEditKeyStroke; kst: TSynEditKeyStroke;
begin begin
anEditor.autoDotDelay:=fAutoDotDelay;
anEditor.hintDelay:=fHintDelay; anEditor.hintDelay:=fHintDelay;
anEditor.defaultFontSize := font.Size; anEditor.defaultFontSize := font.Size;
anEditor.Font.Assign(font); anEditor.Font.Assign(font);