From c1a20347a35b144e3e7b0c69b099f9dcf69946c9 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 22 Oct 2017 22:25:38 +0000
Subject: [PATCH] AnchorDocking: Use async call for SimplifyPendingLayouts
 always. Issue #32591.

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

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 1981cc72f0..ac7edd0be6 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -3436,7 +3436,7 @@ begin
     RaiseGDBException('');
   dec(fUpdateCount);
   if fUpdateCount=0 then
-    SimplifyPendingLayouts;
+    QueueSimplify:=True;
 end;
 
 procedure TAnchorDockMaster.NeedSimplify(AControl: TControl);
@@ -3736,7 +3736,7 @@ begin
   try
     BeginUpdateLayout;
     try
-      DockMaster.SimplifyPendingLayouts;
+      DockMaster.QueueSimplify:=True;
       NewControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockHostSite.ExecuteDock NewControl'){$ENDIF};
 
       if (NewControl.Parent=Self) and (SiteType=adhstLayout) then begin
@@ -6706,7 +6706,7 @@ begin
   if Site=nil then exit;
   DockMaster.RestoreLayouts.Add(DockMaster.CreateRestoreLayout(Site),true);
   Site.CloseSite;
-  DockMaster.SimplifyPendingLayouts;
+  DockMaster.QueueSimplify:=True;
 end;
 
 procedure TAnchorDockPageControl.MoveLeftButtonClick(Sender: TObject);