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

fixed real number recognition

Browse Source 
git-svn-id: trunk@3149 -
This commit is contained in:
mattias 2002-08-18 16:50:01 +00:00
parent 6cf183e85d
commit e231ac6cbf
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecompletiontool.pas
View File

@ -2072,15 +2072,13 @@ var CleanCursorPos, Indent, insertPos: integer;
FullTopLvlName:='';
Params.OnTopLvlIdentifierFound:=@OnTopLvlIdentifierFound;
Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors,
fdfTopLvlResolving,fdfFindVariable]
+fdfAllClassVisibilities;
fdfTopLvlResolving,fdfFindVariable];
if (not FindDeclarationOfIdentAtCursor(Params))
or (Params.NewNode.Desc<>ctnProperty) then exit;
PropertyContext:=CreateFindContext(Params);
// identifier is property
// -> check type of property
Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors]
+fdfAllClassVisibilities;
Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors];
ProcContext:=PropertyContext.Tool.FindBaseTypeOfNode(
Params,PropertyContext.Node);
if (ProcContext.Node=nil) or (ProcContext.Node.Desc<>ctnProcedureType)