From 2947939f602d9c4d590893d0eb963e33ef601e75 Mon Sep 17 00:00:00 2001
From: dodi <dodi@lazarus-ide.org>
Date: Fri, 23 Apr 2010 13:35:18 +0000
Subject: [PATCH] dockmanager example: made Close button hide the docked
 control

git-svn-id: trunk@24851 -
---
 examples/dockmanager/package/easydocksite.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/examples/dockmanager/package/easydocksite.pas b/examples/dockmanager/package/easydocksite.pas
index 1ad12d50a9..f274fd0467 100644
--- a/examples/dockmanager/package/easydocksite.pas
+++ b/examples/dockmanager/package/easydocksite.pas
@@ -949,7 +949,8 @@ begin
         {$ELSE}
           Control.ManualDock(nil, nil, alNone); //do float
         { TODO -cLCL : OnEndDock not called by ManualDock? }
-          TWinControlAccess(Control).DoEndDock(nil, Control.Left, Control.Top);
+          //TWinControlAccess(Control).DoEndDock(nil, Control.Left, Control.Top);
+          Control.Visible := False;
         {$ENDIF}
         end;
       end;