From 3e1080ac8f643973d8f049a85873f7ee979237e7 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 29 Apr 2013 15:32:28 +0000
Subject: [PATCH] Anchordocking: Calculate docksite coordinates right after
 undocking. Issue #23596, patch from B4Z1l3

git-svn-id: trunk@40931 -
---
 components/anchordocking/anchordocking.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 6175c65450..67dc07978a 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -4190,9 +4190,10 @@ var
 begin
   if Parent=nil then exit;
   DisableAutoSizing;
-  p:=ClientOrigin;
+  p := Point(0,0);
+  p := ClientToScreen(p);
   Parent:=nil;
-  SetBounds(Left+p.x,Top+p.y,Width,Height);
+  SetBounds(p.x,p.y,Width,Height);
   EnableAutoSizing;
 end;