paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 21:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: WordWrap, fix re-wrap. "Validate()" may have validated further nodes, NextBlockForValidation needs to check that before returning a node.

Browse Source
This commit is contained in:
Martin 2025-03-22 18:47:58 +01:00
parent a19d14529d
commit be2125328e
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditviewedlinemap.pp
View File

@ -2159,6 +2159,7 @@ begin
FCurrentValidatingNode.ClearData;
end;
repeat
Result := FInvalidEntryList.FFirstEntry <> nil;
if not Result then
exit;
@ -2169,6 +2170,7 @@ begin
ALowLine := FCurrentValidatingNode.FirstInvalidLine;
AHighLine := FCurrentValidatingNode.FirstInvalidEndLine;
FCurrentValidatingNodeLastLine := -1; // If there was a next node, inval lines would be on that next node, and not on this
until ALowLine >= 0;
end;
procedure TSynLineMapAVLTree.EndValidate;