paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 08:39:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: changes for deprecated SynEdit-folded-view (debug code only)

Browse Source
This commit is contained in:
Martin 2025-01-21 12:53:30 +01:00
parent bf58a011b8
commit 8602168acd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcesyneditor.pas
View File

@ -1120,7 +1120,7 @@ begin
c := TCustomSynEdit(SynEdit).Lines.Count;
for i := FirstLine to LastLine do
begin
iLine := FoldView.DisplayNumber[i];
iLine := FoldView.ViewToTextIndex[i] + 1;
if (iLine < 0) or (iLine >= c) then break;
// next line rect
rcLine.Top := rcLine.Bottom;
@ -1173,7 +1173,7 @@ begin
c := TCustomSynEdit(SynEdit).Lines.Count;
for i := FirstLine to LastLine do
begin
iLine := FoldView.DisplayNumber[i];
iLine := FoldView.ViewToTextIndex[i] + 1;
if (iLine < 0) or (iLine >= c) then break;
// next line rect
rcLine.Top := rcLine.Bottom;