paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 11:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix TLazSynEditNestedFoldsList. NodeEndLine was not reset when line changed

Browse Source 
git-svn-id: trunk@58606 -
This commit is contained in:
martin 2018-07-23 22:44:24 +00:00
parent 2b595ec973
commit a052343d83
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedithighlighterfoldbase.pas
View File

@ -953,6 +953,7 @@ begin
FPreviousNestInfo := FNestInfo;
FPreviousLine := FLine;
FNestInfo := nil;
FOnLineNestInfo := nil;
FLine := AValue;
FCount := -1; // will trigger InitCount
@ -1017,6 +1018,7 @@ begin
// Warning: storing endlevels, not minlevels
FNestInfo[FCount].FGroupMinLevels := copy(FGroupEndLevelsAtEval,0, length(FGroupEndLevelsAtEval));
FNestInfo[FCount].LineIdx := Line - 1;
FNestInfo[FCount].EndLineIdx := 0;
end;
function TLazSynEditNestedFoldsList.GetHLNode(Index: Integer): TSynFoldNodeInfo;
@ -1555,6 +1557,7 @@ begin
FOnLineNestInfo[j].LineIdx := FLine;
FOnLineNestInfo[j].HNode := nd;
FOnLineNestInfo[j].HNode.NodeIndex := j;
FOnLineNestInfo[j].EndLineIdx := 0;
end;
end;