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