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

fix error when dast not found

This commit is contained in:
Basile Burg 2015-09-15 23:07:37 +02:00
parent 7e50d1ba77
commit 22b9b8d47a
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_synmemo.pas
View File

@ -370,11 +370,14 @@ begin
fDefaultFontSize := 10; fDefaultFontSize := 10;
SetDefaultCoeditKeystrokes(Self); // not called in inherited if owner = nil ! SetDefaultCoeditKeystrokes(Self); // not called in inherited if owner = nil !
// //
if dastAvailable then
begin
fAst := newAST(self, @astScanned); fAst := newAST(self, @astScanned);
fAstTimer := TIdleTimer.Create(self); fAstTimer := TIdleTimer.Create(self);
fAstTimer.Interval:= 2000; fAstTimer.Interval:= 2000;
fAstTimer.OnTimer:= @AstTimerEvent; fAstTimer.OnTimer:= @AstTimerEvent;
fAstTimer.Enabled:=true; fAstTimer.Enabled:=true;
end;
// //
ShowHint := false; ShowHint := false;
InitHintWins; InitHintWins;
@ -452,6 +455,7 @@ begin
if fileExists(fTempFileName) then if fileExists(fTempFileName) then
sysutils.DeleteFile(fTempFileName); sysutils.DeleteFile(fTempFileName);
// //
if dastAvailable then
deleteAst(fAst); deleteAst(fAst);
// //
inherited; inherited;