Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

0003901: uPSComponentExt, intellisense in classes (includes patch)

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@72 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2008-09-10 09:58:59 +00:00
parent 5e608c325b
commit 63a285b23e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/uPSComponentExt.pas
View File

@ -416,6 +416,12 @@ Procedure TPSScriptExtension.GetCodeProps;
Exit;
end;
end;
for i :=0 to Comp.GetTypeCount -1 do begin
if (Comp.GetType(I).NameHash = H) and (Comp.GetType(I).Name = CV) then begin
Result := getTypeDef(Comp.GetType(I), aProcName);
Exit;
end;
end;
result := FindVarProc(cv, aProcName);
If result then exit;
for i :=0 to Comp.GetProcCount -1 do begin