paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 02:41:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Ifdef Markup: fix crash when open shared synedit

Browse Source 
git-svn-id: trunk@41437 -
This commit is contained in:
martin 2013-05-27 22:42:59 +00:00
parent 62106a6be3
commit b40fb20f03
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkupifdef.pp
View File

@ -3028,6 +3028,9 @@ begin
LastLine := ScreenRowToRow(LinesInWindow+1);
FAdjustedTop := ToIdx(TopLine);
Highlighter.CurrentLines := Lines;
if Highlighter.NeedScan then DebugLn('******** Highlighter.NeedScan ************');
Highlighter.ScanRanges;
if FMarkupNodes.HasEnabledMarkup then
while (FAdjustedTop > 0) and Highlighter.IsLineStartingInDirective(FAdjustedTop) and
@ -3350,6 +3353,7 @@ begin
exit;
end;
Highlighter.CurrentLines := Lines;
LastLine := ScreenRowToRow(LinesInWindow+1);
if (FLastValidTopLine <= TopLine) and (FLastValidLastLine >= LastLine) and
(FLastValidTreeStep = FIfDefTree.ChangeStep)