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

increased idle timer frequency for ast rescan

This commit is contained in:
Basile Burg 2015-09-17 02:57:54 +02:00
parent 95fae8efbb
commit f6eae34679
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_synmemo.pas
View File

@ -112,6 +112,7 @@ type
function getAstHandle: TAstHandle;
function getMouseFileBytePos: Integer;
procedure changeNotify(Sender: TObject);
procedure editedNotify(Sender: TSynEditStrings;aLinePos, aBytePos, aCount, aLineBrkCnt: Integer; aText: string);
procedure identifierToD2Syn;
procedure saveCache;
procedure loadCache;
@ -374,7 +375,7 @@ begin
begin
fAst := newAST(self, @astScanned);
fAstTimer := TIdleTimer.Create(self);
fAstTimer.Interval:= 2000;
fAstTimer.Interval:= 200;
fAstTimer.OnTimer:= @AstTimerEvent;
fAstTimer.Enabled:=true;
fAstTimer.AutoEnabled:=true;
@ -437,6 +438,7 @@ begin
fFilename := '<new document>';
fModified := false;
TextBuffer.AddNotifyHandler(senrUndoRedoAdded, @changeNotify);
//TextBuffer.AddEditHandler(@editedNotify);
//
fPositions := TCESynMemoPositions.create(self);
fMultiDocSubject := TCEMultiDocSubject.create;
@ -789,6 +791,11 @@ begin
subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self);
end;
procedure TCESynMemo.editedNotify(Sender: TSynEditStrings;aLinePos, aBytePos, aCount, aLineBrkCnt: Integer; aText: string);
begin
fCanScan := true;
end;
procedure TCESynMemo.loadFromFile(const aFilename: string);
var
ext: string;