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

ToDoList: Recognize a plain ToDo better inside comment start/end marks. Issue #41437.

Browse Source
This commit is contained in:
Juha 2025-03-28 13:25:19 +02:00
parent 2706015949
commit 9613485cf8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/todolist/todolistcore.pas
View File

@ -263,13 +263,15 @@ begin
if LazStartsText(TheToken, lParsingString) then
begin
if (Length(lParsingString)=Length(TheToken)) // Don't match with 'ToDoX'
or (lParsingString[Length(TheToken)+1] in [#9,' ',':']) then
begin
or (lParsingString[Length(TheToken)+1] in [#9,#10,#13,' ',':'])
or ((aEndComment <> '') and
(Copy(lParsingString,Length(TheToken)+1,Length(aEndComment))=aEndComment))
then begin
lTokenFound := True; // Token match
lFoundToDoType := lTodoType;
lFoundTokenStyle := lTokenStyle;
Break;
end;
Break;
end;
end;
end;