paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:58:06 +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

20
components/synedit/syneditviewedlinemap.pp
View File

@ -2159,16 +2159,18 @@ begin
FCurrentValidatingNode.ClearData;
end;
Result := FInvalidEntryList.FFirstEntry <> nil;
if not Result then
exit;
repeat
Result := FInvalidEntryList.FFirstEntry <> nil;
if not Result then
exit;
FCurrentValidatingNode := NextNodeForValidation; // TODO: directly fill FCurrentValidatingNode;
Result := FCurrentValidatingNode.HasPage;
assert(result, 'TSynLineMapAVLTree.NextBlockForValidation: result');
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
FCurrentValidatingNode := NextNodeForValidation; // TODO: directly fill FCurrentValidatingNode;
Result := FCurrentValidatingNode.HasPage;
assert(result, 'TSynLineMapAVLTree.NextBlockForValidation: result');
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;