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

IDE: codeexplorer showing roodos in // comments

Browse Source 
git-svn-id: trunk@19508 -
This commit is contained in:
mattias 2009-04-19 11:01:41 +00:00
parent b149223f11
commit c1ed6a09a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/todolist.pas
View File

@ -230,7 +230,7 @@ begin
if CommentStartPos<1 then exit(false); if CommentStartPos<1 then exit(false);
if CommentEndPos-CommentStartPos<5 then exit(false); if CommentEndPos-CommentStartPos<5 then exit(false);
if Src[CommentStartPos]='/' then begin if Src[CommentStartPos]='/' then begin
StartPos:=CommentStartPos+1; StartPos:=CommentStartPos+2;
EndPos:=CommentEndPos-1; EndPos:=CommentEndPos-1;
end else if (Src[CommentStartPos]='{') then begin end else if (Src[CommentStartPos]='{') then begin
StartPos:=CommentStartPos+1; StartPos:=CommentStartPos+1;