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