From e3a13c09b58f253a1f4cfe9d4946e9c92a4c5a1a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 28 May 2010 00:02:34 +0000
Subject: [PATCH] easydock: docking to docksite

git-svn-id: trunk@25723 -
---
 examples/dockmanager/design/registereasydockmgr.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/examples/dockmanager/design/registereasydockmgr.pas b/examples/dockmanager/design/registereasydockmgr.pas
index 8325cb046a..bc191c941e 100644
--- a/examples/dockmanager/design/registereasydockmgr.pas
+++ b/examples/dockmanager/design/registereasydockmgr.pas
@@ -151,6 +151,7 @@ begin
   try
     if not (IsDockSite(AForm) or IsDockable(AForm)) then
     begin
+      AForm.DisableAlign;
       // this form was not yet docked
       // place it at a default position and make it dockable
       GetDefaultBounds(AForm,Creator,NewBounds,DockSiblingName,DockAlign);
@@ -171,7 +172,11 @@ begin
           if DockSibling<>nil then
           begin
             NewDockSite:=DockSibling.HostDockSite;
-            AForm.ManualDock(NewDockSite,DockSibling,DockAlign);
+            debugln(['TIDEEasyDockMaster.ShowForm NewDockSite=',DbgSName(NewDockSite)]);
+            if NewDockSite<>nil then
+              AForm.ManualDock(NewDockSite,nil,DockAlign)
+            else
+              AForm.ManualDock(nil,DockSibling,DockAlign);
           end;
         end;
         if AForm.Parent=nil then begin
@@ -181,6 +186,7 @@ begin
           MakeIDEWindowDockable(AForm);
         end;
       end;
+      AForm.EnableAlign;
     end;
 
   finally
@@ -192,7 +198,7 @@ begin
       else
         Parent.Show;
   end;
-  debugln(['TIDEEasyDockMaster.ShowForm END ',DbgSName(AForm)]);
+  debugln(['TIDEEasyDockMaster.ShowForm END ',DbgSName(AForm),' ',dbgs(AForm.BoundsRect)]);
 end;
 
 initialization