From de02d06ad9533ab0c7b3c6c98779fc8f82427053 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Jan 2009 21:53:59 +0000
Subject: [PATCH] IDE: OI: disable moving controls onto frame

git-svn-id: trunk@18323 -
---
 ideintf/componenttreeview.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ideintf/componenttreeview.pas b/ideintf/componenttreeview.pas
index 169d49c4da..7d84202c6c 100644
--- a/ideintf/componenttreeview.pas
+++ b/ideintf/componenttreeview.pas
@@ -182,8 +182,10 @@ begin
   begin
     AnObject := TObject(Node.Data);
     if (AnObject is TWinControl) and 
-       (csAcceptsControls in TWinControl(AnObject).ControlStyle) then
-    begin
+       (csAcceptsControls in TWinControl(AnObject).ControlStyle)
+    and (TWinControl(AnObject).Owner<>nil) // TReader/TWriter only supports this
+    and (TWinControl(AnObject).Owner.Owner=nil) // TReader/TWriter only supports this
+    then begin
       AContainer := TWinControl(AnObject);
       AcceptContainer := True;
     end;