From e7126c8d193342fdd3260018057741e675c1206e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 16 Dec 2022 13:44:09 +0100
Subject: [PATCH] IDE: consistent check and typecast

---
 designer/designer.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 536d866cc8..5a28ffbba2 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -661,12 +661,12 @@ begin
   inherited Create;
   //debugln(['TDesigner.Create Self=',dbgs(Pointer(Self)),' TheDesignerForm=',DbgSName(TheDesignerForm)]);
   FForm := TheDesignerForm;
-  if FForm is BaseFormEditor1.NonFormProxyDesignerForm[NonControlProxyDesignerFormId] then begin
+  if FForm is INonControlDesigner then begin
     LNonControlDesigner := FForm as INonControlDesigner;
     FLookupRoot := LNonControlDesigner.LookupRoot;
     Mediator := LNonControlDesigner.Mediator;
   end
-  else if FForm is BaseFormEditor1.NonFormProxyDesignerForm[FrameProxyDesignerFormId] then
+  else if FForm is IFrameDesigner then
     FLookupRoot := (FForm as IFrameDesigner).LookupRoot
   else
     FLookupRoot := FForm;
@@ -784,6 +784,7 @@ procedure TDesigner.AddComponentCheckParent(var NewParent: TComponent;
 var
   NewParentControl: TWinControl;
 begin
+  //debugln(['TDesigner.AddComponentCheckParent Mediator=',DbgSName(Mediator),' NewParent=',DbgSName(NewParent),' NewComponentClass=',NewComponentClass.ClassName]);
   if Mediator<>nil then begin
     // mediator, non LCL components
     if NewParent=nil then