paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +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;
NextPage, PrevPage: TSynEditLineMapPage;
begin
if (FSynWordWrapLineMap.FirstInvalidLine < 0) and
(RealCount <= Tree.PageJoinSize)
then begin
if (FSynWordWrapLineMap.FirstInvalidLine >= 0) then
exit;
if (RealCount = 0) and (FSize = 0) then begin
Tree.FreeNode(Self);
end
else
if (RealCount <= Tree.PageJoinSize) then begin
NextLineOffs := 0;
dummy := 0;
NextPage := Successor(NextLineOffs, dummy);