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

codetools: GetCompatiblePublishedMethods check if class or property missing

Browse Source 
git-svn-id: trunk@64842 -
This commit is contained in:
mattias 2021-03-20 11:28:01 +00:00
parent 01aadf340e
commit bd5b47ce14
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/eventcodetool.pas
View File

@ -1437,6 +1437,10 @@ begin
BuildTree(lsrImplementationStart);
//debugln(['TEventsCodeTool.GetCompatiblePublishedMethods START']);
ClassNode:=FindClassNodeInInterface(AClassName,true,false,true);
if ClassNode=nil then begin
debugln(['Warning: TEventsCodeTool.GetCompatiblePublishedMethods class ClassName="',AClassName,'" not found in "',MainFilename,'" PropInstance=',DbgSName(PropInstance),' PropName="',PropName,'"']);
exit;
end;
{$IFDEF VerboseMethodPropEdit}
debugln(['TEventsCodeTool.GetCompatiblePublishedMethods ClassName="',AClassName,'" PropInstance=',DbgSName(PropInstance),' PropName="',PropName,'" classnode=',ClassNode.DescAsString]);
{$ENDIF}
@ -1447,6 +1451,10 @@ begin
Params:=TFindDeclarationParams.Create;
try
SearchedExprList:=CreateExprListFromInstanceProperty(PropInstance,PropName);
if SearchedExprList=nil then begin
debugln(['Warning: TEventsCodeTool.GetCompatiblePublishedMethods published property not found: PropInstance=',DbgSName(PropInstance),' PropName="',PropName,'" Unit="',MainFilename,'" ClassName="',AClassName,'"']);
exit;
end;
{$IFDEF VerboseMethodPropEdit}
debugln(['TEventsCodeTool.GetCompatiblePublishedMethods ExprList=',SearchedExprList.AsString]);
{$ENDIF}