paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: TLazSynEditNestedFoldsList fix crash with cached data

Browse Source 
git-svn-id: branches/fixes_1_8@57812 -
This commit is contained in:
mattias 2018-05-07 18:16:29 +00:00
parent 3d4acf662c
commit bb0d8a9a63
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedithighlighterfoldbase.pas
View File

@ -1297,7 +1297,7 @@ begin
if (FEvaluationIndex = FCount) then begin
FPreviousMergeLine := -1;
i := FPreviousCount; // + 1 - 1
if i > 0 then begin
if (i > 0) and (FPreviousEvaluationIndex < i) then begin
if i >= Length(FPreviousNestInfo) then
exit;
if (i > FPreviousEvaluationIndex) and

15
components/synedit/test/testfoldedview.pas
View File

@ -2463,6 +2463,21 @@ begin
end;
{%endregion TestText12}
{%region cache from previous access}
PushBaseName('cache');
TstSetText('TestText1', TestText1);
TheList := FoldedView.FoldProvider.NestedFoldsList;
EnableFolds([cfbtBeginEnd..cfbtNone]);
PrepareLine := -1;
InitList('All Enabled ', TheList, 1, 0, [], False, True);
TheList.Count; // only access count
TheList.Line := 8;
TheList.HLNode[0]; // do not crash // group levels are not initialized
PopBaseName;
{%endregion cache}
PopBaseName;PopBaseName;
end;