paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 01:59:16 +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; FPreviousNestInfo := FNestInfo;
FPreviousLine := FLine; FPreviousLine := FLine;
FNestInfo := nil; FNestInfo := nil;
FOnLineNestInfo := nil;
FLine := AValue; FLine := AValue;
FCount := -1; // will trigger InitCount FCount := -1; // will trigger InitCount
@ -1017,6 +1018,7 @@ begin
// Warning: storing endlevels, not minlevels // Warning: storing endlevels, not minlevels
FNestInfo[FCount].FGroupMinLevels := copy(FGroupEndLevelsAtEval,0, length(FGroupEndLevelsAtEval)); FNestInfo[FCount].FGroupMinLevels := copy(FGroupEndLevelsAtEval,0, length(FGroupEndLevelsAtEval));
FNestInfo[FCount].LineIdx := Line - 1; FNestInfo[FCount].LineIdx := Line - 1;
FNestInfo[FCount].EndLineIdx := 0;
end; end;
function TLazSynEditNestedFoldsList.GetHLNode(Index: Integer): TSynFoldNodeInfo; function TLazSynEditNestedFoldsList.GetHLNode(Index: Integer): TSynFoldNodeInfo;
@ -1555,6 +1557,7 @@ begin
FOnLineNestInfo[j].LineIdx := FLine; FOnLineNestInfo[j].LineIdx := FLine;
FOnLineNestInfo[j].HNode := nd; FOnLineNestInfo[j].HNode := nd;
FOnLineNestInfo[j].HNode.NodeIndex := j; FOnLineNestInfo[j].HNode.NodeIndex := j;
FOnLineNestInfo[j].EndLineIdx := 0;
end; end;
end; end;