From 66ccefcd0f6924bab09266c89ce63b9051450ce0 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sun, 12 Jan 2025 22:17:44 +0100
Subject: [PATCH] Anchordocking: Fix loading. Don't constrain splitter bounds,
 until they are loaded and have a percent position. Issue #41331

---
 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 bb80adbce8..533c11f846 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -7977,7 +7977,10 @@ end;
 
 procedure TAnchorDockSplitter.ConstrainBounds(var ALeft, ATop, AWidth, AHeight: integer);
 begin
-  if Parent = nil then
+  if (Parent = nil) or (not HandleAllocated) or
+     (FPercentPosition <= 0) or
+     ((DockMaster <> nil) and (DockMaster.fUpdateCount > 0))
+  then
     exit;
   if not (akRight in Anchors) then begin
     if ALeft + AWidth > Parent.ClientWidth then