From 13d73094393eda38f4cade40e05d8b75e82abe1c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 3 Feb 2019 15:03:29 +0100
Subject: [PATCH] prevent double getter

---
 src/u_main.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/u_main.pas b/src/u_main.pas
index 16c6c0f7..66e4afd9 100644
--- a/src/u_main.pas
+++ b/src/u_main.pas
@@ -1689,6 +1689,7 @@ var
   i: Integer;
   w: TDexedWidget;
   s: TAnchorDockSplitter;
+  h: TAnchorDockHostSite;
 begin
 
   if not reset then
@@ -1727,8 +1728,9 @@ begin
           continue;
         if w = fEditWidg then
           continue;
-        if DockMaster.GetAnchorSite(w).isNotNil then
-          DockMaster.GetAnchorSite(w).ManualFloat(w.ClientRect, false);
+        h := DockMaster.GetAnchorSite(w);
+        if h.isNotNil then
+          h.ManualFloat(w.ClientRect, false);
       end;
     end;