From 30eede4ac86c3949e661dcb510274342967b7752 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 25 Apr 2010 11:22:27 +0000
Subject: [PATCH] LCL: reduce flicker when docking

git-svn-id: trunk@24906 -
---
 lcl/include/control.inc | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 177f555224..547c02c553 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -4008,6 +4008,9 @@ begin
     RaiseAlreadyDocking;
     
   // dock
+  {$IFNDEF OldAutoSize}
+  DisableAutoSizing;
+  {$ENDIF}
   Include(FControlState, csDocking);
   try
     OldHostDockSite:=HostDockSite;
@@ -4020,7 +4023,7 @@ begin
         NewDockSite.FDockClients.Add(Self);
     end;
 
-    //debugln('TControl.Dock A ',DbgSName(Self));
+    //debugln(['TControl.Dock A ',DbgSName(Self),' NewDockSite=',DbgSName(NewDockSite),' ',NewDockSite.Visible]);
 
     DoDock(NewDockSite,ARect);
 
@@ -4037,6 +4040,11 @@ begin
       NewDockSite.FDockClients.Remove(Self);
     Exclude(FControlState, csDocking);
   end;
+  {$IFNDEF OldAutoSize}
+  EnableAutoSizing;
+  {$ENDIF}
+
+  //DebugLn(['TControl.Dock END ',DbgSName(Self),' ',DbgSName(HostDockSite)]);
 end;
 
 {------------------------------------------------------------------------------
@@ -4179,6 +4187,9 @@ var
 begin
   Result := False;
 
+  {$IFNDEF OldAutoSize}
+  DisableAutoSizing;
+  {$ENDIF}
   OldDockSite := Control.HostDockSite;
   if (OldDockSite<>nil) and (not HostDockSiteManagerAvailable(OldDockSite)) then
     exit;
@@ -4192,6 +4203,9 @@ begin
       OldDockSite.DockManager.SetReplacingControl(nil);
   end;
   Result:=Control.ManualDock(NewDockSite,DropControl,ControlSide);
+  {$IFNDEF OldAutoSize}
+  EnableAutoSizing;
+  {$ENDIF}
 end;
 
 procedure TControl.AddHandlerOnResize(const OnResizeEvent: TNotifyEvent;