From c564a009b31cf911528d00b236d92839b3ad0242 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 27 Nov 2008 02:26:06 +0000
Subject: [PATCH] designer: allow to put controls on a TCustomFrame children

git-svn-id: trunk@17607 -
---
 designer/designer.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 6f04b63fd2..7acc948197 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -1443,7 +1443,7 @@ var
     ControlSelection.Clear;
 
     // find a parent for the new component
-    if FLookupRoot is TCustomForm then begin
+    if (FLookupRoot is TCustomForm) or (FLookupRoot is TCustomFrame) then begin
       if MouseDownComponent is TWinControl then
         NewParentControl:=TWinControl(MouseDownComponent)
       else