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

SynEdit: FoldedView, fix internal setting of TopViewPos (Only visible lines)

Browse Source
This commit is contained in:
Martin 2025-03-09 13:55:24 +01:00
parent 847f6ab0e4
commit a61fd69df0
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/syneditfoldedview.pp
View File

@ -412,7 +412,7 @@ type
procedure SetHighLighter(AValue: TSynCustomHighlighter);
procedure SetTopViewPos(const ALine : integer);
function GetTopTextIndex : integer;
procedure SetTopTextIndex(const AIndex : integer);
procedure SetTopTextIndex(AIndex : integer);
procedure SetLinesInWindow(const AValue : integer);
procedure DoFoldChanged(AnIndex: Integer);
function TextIndexAddLines(aTextIndex, LineOffset : Integer) : Integer; (* Add/Sub to/from TextIndex (0-based) skipping folded *)
@ -3349,9 +3349,17 @@ begin
Result := fTopViewPos + fFoldTree.FindFoldForFoldedLine(fTopViewPos).FoldedBefore - 1;
end;
procedure TSynEditFoldedView.SetTopTextIndex(const AIndex : integer);
procedure TSynEditFoldedView.SetTopTextIndex(AIndex: integer);
var
n: TSynTextFoldAVLNode;
begin
TopViewPos := AIndex + 1 - fFoldTree.FindFoldForLine(AIndex+1).FoldedBefore;
n := fFoldTree.FindFoldForLine(AIndex+1);
if n.IsInFold then begin
assert(AIndex >= ToIdx(n.StartLine), 'TSynEditFoldedView.SetTopTextIndex: AIndex > n.StartLine');
if AIndex < n.StartLine + n.MergedLineCount then
AIndex := Max(0, ToIdx(n.StartLine) - 1);
end;
TopViewPos := AIndex + 1 - n.FoldedBefore;
end;
(* LinesInWindow*)