From 540bf89b62e94002c284a5bfc5a5e4ac1d6f99cc Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:40:24 +0000
Subject: [PATCH] MG: fixed replacing form resources

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

diff --git a/designer/designer.pp b/designer/designer.pp
index 33ca4e3077..eea6d5928e 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -990,6 +990,7 @@ function TDesigner.GetDesignedComponent(AComponent: TComponent): TComponent;
 begin
   Result:=AComponent;
   while (Result<>nil)
+  and (Result<>Form)
   and (Result.Owner<>Form)
   and (Result is TControl) do
     Result:=TControl(Result).Parent;