From 605809f549760cc96ae82a39a40ee42e8eb6de38 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 27 Jun 2013 07:29:43 +0000
Subject: [PATCH] anchordocking: vertical caption

git-svn-id: trunk@41915 -
---
 components/anchordocking/anchordocking.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index c542da06b7..e519211d80 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -5036,12 +5036,15 @@ begin
     if Align in [alLeft,alRight] then begin
       // vertical
       dx:=Max(0,(r.Right-r.Left-TxtH) div 2);
+      {$IFDEF LCLWin32}
+      dec(dx,2);
+      {$ENDIF}
       dy:=Max(0,(r.Bottom-r.Top-TxtW) div 2);
       Canvas.Font.Orientation:=900;
       if TxtW<(r.Bottom-r.Top)then
       begin
         // text fits
-        Canvas.TextOut(r.Left+dx-3,r.Bottom-dy,Caption);
+        Canvas.TextOut(r.Left+dx-1,r.Bottom-dy,Caption);
         DrawADHeader(Canvas,DockMaster.HeaderStyle,Rect(r.Left,r.Top,r.Right,r.Bottom-dy-TxtW-1),false);
         DrawADHeader(Canvas,DockMaster.HeaderStyle,Rect(r.Left,r.Bottom-dy+1,r.Right,r.Bottom),false);
       end else begin