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

SynEdit: FoldedView, fix accessing out of range lines (due to wrong internal fTopViewPos). Introduced in 86abcd75d9

Browse Source
This commit is contained in:
Martin 2025-03-09 12:44:46 +01:00
parent 482124d17e
commit 847f6ab0e4
1 changed files with 37 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
components/synedit/syneditfoldedview.pp
View File

@ -3429,40 +3429,48 @@ begin
CurFoldedBefore := node.FoldedBefore;
ViewIdx := ToIdx(fTopViewPos + CurFoldedBefore);
TxtIdx := NextLines.DisplayView.ViewToTextIndexEx(ViewIdx, ViewRange);
cnt := NextLines.Count;
// Prepare data for line one above fTopViewPos
If ViewIdx > ViewRange.Top then begin
// Need CurLine.... data for wrapped lines
CurLineCapability := FFoldProvider.LineCapabilities[TxtIdx];
CurLineClassifications := FFoldProvider.LineClassification[TxtIdx];
NewCapability := CurLineCapability;
NewClassifications := CurLineClassifications;
TmpRange := ViewRange;
TmpViewIdx := ViewIdx - 1;
if (TxtIdx >= cnt) or (TxtIdx < -1) then begin
// Past end of Text
NewCapability := [];
NewClassifications := [];
end
else begin
TmpTxtIdx := TxtIdx - 1;
if node.IsInFold then tmpnode := node.Prev
else tmpnode := fFoldTree.LastPage;
if tmpnode.IsInFold and (tmpnode.StartLine + tmpnode.MergedLineCount - 1 = ToPos(TmpTxtIdx))
then TmpTxtIdx := TmpTxtIdx - node.MergedLineCount // Line before is in fold
else tmpnode.Init(nil, 0, 0);
NewCapability := FFoldProvider.LineCapabilities[TmpTxtIdx];
NewClassifications := FFoldProvider.LineClassification[TmpTxtIdx];
if (tmpnode.IsInFold) then begin
if tmpnode.IsHide then include(NewCapability, cfCollapsedHide)
else include(NewCapability, cfCollapsedFold);
include(NewClassifications, tmpnode.Page._Classification);
If ViewIdx > ViewRange.Top then begin
// Need CurLine.... data for wrapped lines
CurLineCapability := FFoldProvider.LineCapabilities[TxtIdx];
CurLineClassifications := FFoldProvider.LineClassification[TxtIdx];
NewCapability := CurLineCapability;
NewClassifications := CurLineClassifications;
TmpRange := ViewRange;
TmpViewIdx := ViewIdx - 1;
end
else begin
TmpTxtIdx := TxtIdx - 1;
if node.IsInFold then tmpnode := node.Prev
else tmpnode := fFoldTree.LastPage;
if tmpnode.IsInFold and (tmpnode.StartLine + tmpnode.MergedLineCount - 1 = ToPos(TmpTxtIdx))
then TmpTxtIdx := TmpTxtIdx - node.MergedLineCount // Line before is in fold
else tmpnode.Init(nil, 0, 0);
NewCapability := FFoldProvider.LineCapabilities[TmpTxtIdx];
NewClassifications := FFoldProvider.LineClassification[TmpTxtIdx];
if (tmpnode.IsInFold) then begin
if tmpnode.IsHide then include(NewCapability, cfCollapsedHide)
else include(NewCapability, cfCollapsedFold);
include(NewClassifications, tmpnode.Page._Classification);
end;
TmpRange := NextLines.DisplayView.TextToViewIndex(TmpTxtIdx);
TmpViewIdx := TmpRange.Bottom;
end;
if TmpViewIdx <> TmpRange.Bottom then
exclude(NewCapability, cfFoldEnd);
if TmpViewIdx <> TmpRange.Top then begin
if NewCapability * [cfFoldStart, cfHideStart] <> [] then
NewCapability := NewCapability + [cfFoldBody];
NewCapability := NewCapability - [cfFoldStart, cfHideStart];
end;
TmpRange := NextLines.DisplayView.TextToViewIndex(TmpTxtIdx);
TmpViewIdx := TmpRange.Bottom;
end;
if TmpViewIdx <> TmpRange.Bottom then
exclude(NewCapability, cfFoldEnd);
if TmpViewIdx <> TmpRange.Top then begin
if NewCapability * [cfFoldStart, cfHideStart] <> [] then
NewCapability := NewCapability + [cfFoldBody];
NewCapability := NewCapability - [cfFoldStart, cfHideStart];
end;
// Add entry for line one above virtual topViewPos
@ -3478,7 +3486,6 @@ begin
{$IFDEF SynFoldDebug}debugln(['FOLD-- CalculateMaps fTopViewPos:=', fTopViewPos, ' TxtIdx=',TxtIdx]);{$ENDIF}
cnt := NextLines.Count;
for i := 1 to fLinesInWindow + 2 do begin
if (TxtIdx >= cnt) or (TxtIdx < -1) then begin
// Past end of Text