From 279e5674cddf2a49b94710a362ab74b348c3fca2 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sun, 3 Jan 2016 12:44:07 +0000
Subject: [PATCH] Merged revision(s) 51124 #14cc0fc3b7 from trunk:
 anchordocking: fix wrong PercentValue from r51099 #47649a5b56 ........

git-svn-id: branches/fixes_1_6@51153 -
---
 components/anchordocking/anchordocking.pas | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 5dcba929af..c658bf7bb2 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -6065,17 +6065,14 @@ begin
 end;
 
 procedure TAnchorDockSplitter.UpdatePercentPosition;
-var
-  BR: TRect;
 begin
-  BR := BoundsRect;
   case ResizeAnchor of
     akTop, akBottom:
       if FDockParentClientSize.cy > 0 then
-        FPercentPosition := (BR.Top+BR.Bottom) / 2 / FDockParentClientSize.cy;
+        FPercentPosition := Top / FDockParentClientSize.cy;
   else
     if FDockParentClientSize.cx > 0 then
-      FPercentPosition := (BR.Left+BR.Right) / 2 / FDockParentClientSize.cx;
+      FPercentPosition := Left / FDockParentClientSize.cx;
   end;
 end;