From cb9458c6c0ee96c26945a9b3c3d7cf3d0b681baf Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 6 Feb 2008 14:38:21 +0000
Subject: [PATCH] LCL: anchordocking: enlargecontrol: updating title

git-svn-id: trunk@14003 -
---
 lcl/ldocktree.pas | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/lcl/ldocktree.pas b/lcl/ldocktree.pas
index 45ae5f0062..fdd52870bb 100644
--- a/lcl/ldocktree.pas
+++ b/lcl/ldocktree.pas
@@ -1,4 +1,3 @@
-{  $Id$  }
 {
  /***************************************************************************
                                LDockTree.pas
@@ -1450,7 +1449,7 @@ end;
 function TCustomAnchoredDockManager.GetPreferredTitlePosition(AWidth,
   AHeight: integer): TAnchorKind;
 begin
-  if (AWidth<=AHeight) and (AWidth<200) then
+  if AWidth>((AHeight*3) div 2) then
     Result:=akLeft
   else
     Result:=akTop;
@@ -1460,13 +1459,18 @@ procedure TCustomAnchoredDockManager.UpdateTitlePosition(Control: TControl);
 var
   TitlePos: TAnchorKind;
 begin
-  TitlePos:=GetPreferredTitlePosition(Control.Width,Control.Height);
-  if TitlePos=akLeft then begin
-    Control.BorderSpacing.Left:=TitleWidth;
-    Control.BorderSpacing.Top:=0;
+  if Control.Parent is TLazDockForm then begin
+    TitlePos:=GetPreferredTitlePosition(Control.Width,Control.Height);
+    if TitlePos=akLeft then begin
+      Control.BorderSpacing.Left:=TitleWidth;
+      Control.BorderSpacing.Top:=0;
+    end else begin
+      Control.BorderSpacing.Left:=0;
+      Control.BorderSpacing.Top:=TitleHeight;
+    end;
   end else begin
     Control.BorderSpacing.Left:=0;
-    Control.BorderSpacing.Top:=TitleHeight;
+    Control.BorderSpacing.Top:=0;
   end;
 end;
 
@@ -2205,6 +2209,7 @@ begin
             end;
           end;
         end;
+        UpdateTitlePosition(Control);
       end;
       
     end else begin
@@ -2253,6 +2258,8 @@ begin
         MainSplitter.AnchorToNeighbour(ShrinkSide,0,EnlargeSplitter);
         EnlargeSplitter.AnchorSame(Side,Neighbour);
         Control.AnchorSame(Side,Neighbour);
+        UpdateTitlePosition(Control);
+        UpdateTitlePosition(Neighbour);
       end;
     end;
   finally