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

TodoListLaz: fix SynEdit markup for comments, if comments contain PasDoc (one comment returns multiple tokens)

Browse Source
This commit is contained in:
Martin 2025-03-23 00:31:39 +01:00
parent c118272fc2
commit bc80222f69
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/todolist/todosynmarkup.pas
View File

@ -451,6 +451,11 @@ begin
FPasHl.StartAtLineIndex(ToIdx(pos.Y)); FPasHl.StartAtLineIndex(ToIdx(pos.Y));
FPasHl.NextToLogX(pos.X); FPasHl.NextToLogX(pos.X);
TkEnd := ToPos(FPasHl.GetTokenPos) + FPasHl.GetTokenLen; TkEnd := ToPos(FPasHl.GetTokenPos) + FPasHl.GetTokenLen;
while (not FPasHl.GetEol) and (not FPasHl.GetTokenIsCommentEnd) do begin
FPasHl.Next;
if not FPasHl.GetTokenIsComment then break;
TkEnd := ToPos(FPasHl.GetTokenPos) + FPasHl.GetTokenLen;
end;
i := Length(FFoundPos); i := Length(FFoundPos);
SetLength(FFoundPos, i + 1); SetLength(FFoundPos, i + 1);