From b06278020cf74c8774be3668a63dcdd0351c8a14 Mon Sep 17 00:00:00 2001
From: dodi <dodi@lazarus-ide.org>
Date: Thu, 22 Apr 2010 20:37:24 +0000
Subject: [PATCH] dockmanager example: try to remove flicker on CreateDockable

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

diff --git a/examples/dockmanager/package/umakesite.pas b/examples/dockmanager/package/umakesite.pas
index c01167182e..329b29a33d 100644
--- a/examples/dockmanager/package/umakesite.pas
+++ b/examples/dockmanager/package/umakesite.pas
@@ -729,7 +729,7 @@ begin
     r.Bottom := r.Top + Client.UndockHeight;
     Site.BoundsRect := r;
     //DebugLn('Before Wrap: ', DbgS(Site.BoundsRect));
-    Site.Visible := True;
+    //Site.Visible := True;
     Client.Align := alNone;
     //Client.Visible := True; //otherwise docking may be rejected - see above
     Client.ManualDock(Site);
@@ -741,6 +741,7 @@ begin
       //Client.Left := 0;
       Site.DockManager.ResetBounds(True);
     end;
+    Site.Visible := True;
   except
     DebugLn('error WrapDockable: ' + Client.Name);
     if Client.HostDockSite <> Site then