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

Codetools: Class completion now ignores empty parenthesis. Issue #19668, patch from Anton

Browse Source 
git-svn-id: trunk@31960 -
This commit is contained in:
juha 2011-08-12 11:50:11 +00:00
parent 9ccda3b3ec
commit a3b74ddd78
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/pascalparsertool.pas
View File

@ -1214,8 +1214,16 @@ begin
end;
if not Extract then
ReadNextAtom
else
else begin
ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr);
if (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose])
and (Src[CurPos.StartPos] = CloseBracket)
then begin // skip parenthesis
ExtractMemStream.Position := ExtractMemStream.Position - 1;
ReadNextAtom;
Exit(True);
end;
end;
end else
CloseBracket:=#0;
if not (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose]) then begin