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

IDE: searching component classes in classes registered via FCL RegisterClass

Browse Source 
git-svn-id: trunk@31293 -
This commit is contained in:
mattias 2011-06-20 01:13:14 +00:00
parent 7610b2ca91
commit fa51206f30
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/checklfmdlg.pas
View File

@ -193,12 +193,15 @@ var
if SysUtils.CompareText(AClassName,MissingClasses[i])=0 then if SysUtils.CompareText(AClassName,MissingClasses[i])=0 then
exit; exit;
end; end;
// ToDo: search only in used packages
// search in designer base classes // search in designer base classes
if BaseFormEditor1.FindDesignerBaseClassByName(AClassName,true)<>nil then if BaseFormEditor1.FindDesignerBaseClassByName(AClassName,true)<>nil then
exit; exit;
// search in registered classes // search in registered classes
RegComp:=IDEComponentPalette.FindComponent(ObjNode.TypeName); RegComp:=IDEComponentPalette.FindComponent(ObjNode.TypeName);
if (RegComp<>nil) and (RegComp.GetUnitName<>'') then exit; if (RegComp<>nil) and (RegComp.GetUnitName<>'') then exit;
if GetClass(ObjNode.TypeName) <> nil then
Exit;
// class is missing // class is missing
DebugLn(['FindMissingClass ',ObjNode.Name,':',ObjNode.TypeName,' IsInherited=',ObjNode.IsInherited]); DebugLn(['FindMissingClass ',ObjNode.Name,':',ObjNode.TypeName,' IsInherited=',ObjNode.IsInherited]);
if MissingClasses=nil then if MissingClasses=nil then