force rescan on focus

This commit is contained in:
Basile Burg 2015-04-25 04:43:24 +02:00
parent 1bd72eaf62
commit ac4ce76c4b
1 changed files with 6 additions and 0 deletions

View File

@ -371,6 +371,7 @@ begin
end;
//
Highlighter := D2Syn;
Highlighter.ResetRange;
//
fTempFileName := GetTempDir(false) + 'temp_' + uniqueObjStr(self) + '.d';
fFilename := '<new document>';
@ -412,6 +413,11 @@ procedure TCESynMemo.setFocus;
begin
inherited;
checkFileDate;
if (Highlighter <> nil) then
begin
LineTextChanged(nil, 0, Lines.Count);
Highlighter.ScanRanges;
end;
identifierToD2Syn;
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
end;