paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Anchordocking: Fix loading. Don't constrain splitter bounds, until they are loaded and have a percent position. Issue #41331

Browse Source 
(cherry picked from commit 66ccefcd0f)
This commit is contained in:
Martin 2025-01-12 22:17:44 +01:00
parent 8d8f095517
commit 264e6ab3d5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/anchordocking/anchordocking.pas
View File

@ -7977,7 +7977,10 @@ end;
procedure TAnchorDockSplitter.ConstrainBounds(var ALeft, ATop, AWidth, AHeight: integer); procedure TAnchorDockSplitter.ConstrainBounds(var ALeft, ATop, AWidth, AHeight: integer);
begin begin
if Parent = nil then if (Parent = nil) or (not HandleAllocated) or
(FPercentPosition <= 0) or
((DockMaster <> nil) and (DockMaster.fUpdateCount > 0))
then
exit; exit;
if not (akRight in Anchors) then begin if not (akRight in Anchors) then begin
if ALeft + AWidth > Parent.ClientWidth then if ALeft + AWidth > Parent.ClientWidth then