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

SynEdit: Wrapped-view, clean up empty nodes

Browse Source
This commit is contained in:
Martin 2025-01-24 10:25:13 +01:00
parent e331c9fb35
commit a949f2be2e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syneditwrappedview.pp
View File

@ -1149,9 +1149,13 @@ var
dummy, NextLineOffs, PrevLineOffs, NextLineDist, PrevLineDist, c: Integer; dummy, NextLineOffs, PrevLineOffs, NextLineDist, PrevLineDist, c: Integer;
NextPage, PrevPage: TSynEditLineMapPage; NextPage, PrevPage: TSynEditLineMapPage;
begin begin
if (FSynWordWrapLineMap.FirstInvalidLine < 0) and if (FSynWordWrapLineMap.FirstInvalidLine >= 0) then
(RealCount <= Tree.PageJoinSize) exit;
then begin if (RealCount = 0) and (FSize = 0) then begin
Tree.FreeNode(Self);
end
else
if (RealCount <= Tree.PageJoinSize) then begin
NextLineOffs := 0; NextLineOffs := 0;
dummy := 0; dummy := 0;
NextPage := Successor(NextLineOffs, dummy); NextPage := Successor(NextLineOffs, dummy);