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

codetools: identifier completion: no brackets outside of statements

Browse Source 
git-svn-id: trunk@16670 -
This commit is contained in:
mattias 2008-09-22 09:40:09 +00:00
parent d7a960e8ba
commit b5887faf33
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditprocs.pas
View File

@ -455,6 +455,7 @@ begin
icvProcWithParams: icvProcWithParams:
// add brackets for parameter lists // add brackets for parameter lists
if (AddChar='') if (AddChar='')
and (ilcfStartInStatement in IdentList.ContextFlags)
and (not IdentList.StartUpAtomBehindIs('(')) and (not IdentList.StartUpAtomBehindIs('('))
and (not IdentList.StartUpAtomInFrontIs('@')) then begin and (not IdentList.StartUpAtomInFrontIs('@')) then begin
Result:=Result+'()'; Result:=Result+'()';
@ -465,6 +466,7 @@ begin
icvIndexedProp: icvIndexedProp:
// add brackets for parameter lists // add brackets for parameter lists
if (AddChar='') if (AddChar='')
and (ilcfStartInStatement in IdentList.ContextFlags)
and (not IdentList.StartUpAtomBehindIs('[')) then begin and (not IdentList.StartUpAtomBehindIs('[')) then begin
Result:=Result+'[]'; Result:=Result+'[]';
inc(CursorToLeft); inc(CursorToLeft);