paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 07:08:23 +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
This commit is contained in:
Martin 2025-01-12 22:17:44 +01:00
parent 585c3e4abb
commit 66ccefcd0f
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);
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