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

add options for the dynamic linting

This commit is contained in:
Basile Burg 2017-07-07 15:34:44 +02:00
parent 70537efa12
commit 5edd71a909
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ce_editoroptions.pas
View File

@ -69,6 +69,8 @@ type
fCloseCompletionCharsWithSpace: AnsiString;
fCloseCompletionChars: AnsiString;
fTransparentGutter: boolean;
fDscannerDelay: integer;
fDscannerEnabled: boolean;
//
procedure setPhobosDocRoot(value: TCEPathname);
procedure setFont(value: TFont);
@ -82,6 +84,7 @@ type
procedure setTxtSyn(value: TPersistent);
procedure setShortcuts(value: TCollection);
procedure setDDocDelay(value: Integer);
procedure setDscannerDelay(value: Integer);
procedure setAutoDotDelay(value: Integer);
procedure setCompletionMenuLines(value: byte);
procedure setLineNumEvery(value: integer);
@ -103,6 +106,8 @@ type
property completionMenuWidth: integer read fCompletionMenuWidth write fCompletionMenuWidth;
property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs;
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
property dscannerDelay: integer read fDscannerDelay write setDscannerDelay;
property dscannerEnabled: boolean read fDscannerEnabled write fDscannerEnabled;
property detectIndentMode: boolean read fDetectIndentationMode write fDetectIndentationMode;
property folding: TSynSelectedColor read fFoldedColor write setFoldedColor;
property font: TFont read fFont write setFont;
@ -245,6 +250,9 @@ begin
fBackground := clWhite;
fRightEdgeColor := clSilver;
//
fDscannerEnabled:=true;
fDscannerDelay:= 2200;
//
fCurrLineAttribs.Background := 15789545;
fCurrLineAttribs.Foreground := clNone;
//
@ -297,6 +305,8 @@ begin
begin
srcopt := TCEEditorOptionsBase(source);
//
fDscannerDelay:=srcopt.fDscannerDelay;
fDscannerEnabled:=srcopt.dscannerEnabled;
fTransparentGutter:=srcopt.fTransparentGutter;
fAlwaysAdvancedFeatures:=srcopt.fAlwaysAdvancedFeatures;
fResetFontSize:=srcopt.fResetFontSize;
@ -352,6 +362,13 @@ begin
fDDocDelay:=value;
end;
procedure TCEEditorOptionsBase.setDscannerDelay(value: Integer);
begin
if value > 10000 then value := 10000
else if value < 500 then value := 500;
fDscannerDelay:=value;
end;
procedure TCEEditorOptionsBase.setAutoDotDelay(value: Integer);
begin
if value > 2000 then value := 2000
@ -701,6 +718,7 @@ begin
anEditor.autoCallCompletion:= fAutoCallCompletion;
anEditor.completionMenuAutoClose:=fCompletionMenuAutoClose;
anEditor.transparentGutter:=fTransparentGutter;
anEditor.setDscannerOptions(fDscannerEnabled, fDscannerDelay);
cs := [];
for c in fCloseCompletionCharsWithSpace do