paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 15:30:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix "Improve FindNextUnfoldedLine" (r63414) for hidden lines as very start of file.

Browse Source 
git-svn-id: trunk@63431 -
This commit is contained in:
martin 2020-06-23 19:43:09 +00:00
parent edd19698a4
commit e51e371c7c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -4247,7 +4247,7 @@ function TCustomSynEdit.FindNextUnfoldedLine(iLine: integer; Down: boolean
): Integer; ): Integer;
// iLine is 1 based // iLine is 1 based
begin begin
Result := FTheLinesView.TextToViewIndex(ToIdx(iLine)); Result := Max(0, FTheLinesView.TextToViewIndex(ToIdx(iLine)));
if Down then if Down then
Result := ToPos(FTheLinesView.ViewToTextIndex(Result+1)) Result := ToPos(FTheLinesView.ViewToTextIndex(Result+1))
else else