From fa51206f3049e3d72a9996de96cc8ae7ceabce34 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 20 Jun 2011 01:13:14 +0000
Subject: [PATCH] IDE: searching component classes in classes registered via
 FCL RegisterClass

git-svn-id: trunk@31293 -
---
 ide/checklfmdlg.pas | 3 +++
 1 file changed, 3 insertions(+)

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