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

codetools: fix ShowCodeContext for predefined functions

Browse Source 
(e.g. "L := Length(|A)")

git-svn-id: trunk@51355 -
This commit is contained in:
ondrej 2016-01-20 14:16:59 +00:00
parent c91dcd1309
commit 06fb297a2c
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/identcompletiontool.pas
View File

@ -2896,11 +2896,19 @@ var
Item.Params.DelimitedText:=Params;
end;
var
IsPointedSystem: Boolean = False;
begin
MoveCursorToAtomPos(ProcNameAtom);
ReadPriorAtom;
if (CurPos.Flag in [cafEnd,cafSemicolon,cafColon,
cafRoundBracketOpen,cafEdgedBracketOpen])
if (CurPos.Flag = cafPoint) then
begin
ReadPriorAtom;
IsPointedSystem := UpAtomIs('SYSTEM');
end;
if (CurPos.Flag in [cafEnd,cafSemicolon,cafEqual,cafComma,cafColon,
cafRoundBracketOpen,cafEdgedBracketOpen,cafOtherOperator])
or IsPointedSystem
or UpAtomIs('BEGIN')
or UpAtomIs('TRY') or UpAtomIs('FINALLY') or UpAtomIs('EXCEPT')
or UpAtomIs('REPEAT') or UpAtomIs('ASM') then begin