paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 14:39:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Fix order of new site size assignment. Issue #32303, patch from Andrey Zubarev.

Browse Source 
git-svn-id: trunk@55724 -
This commit is contained in:
juha 2017-08-20 20:05:54 +00:00
parent eccae5b11c
commit ca797fbb73
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/anchordocking/anchordocking.pas
View File

@ -1770,6 +1770,13 @@ var
aMonitor: TMonitor;
aHostSite: TAnchorDockHostSite;
begin
if Site is TCustomForm then begin
if AParent=nil then
TCustomForm(Site).WindowState:=ANode.WindowState
else
TCustomForm(Site).WindowState:=wsNormal;
end else
GetParentForm(Site).WindowState:=ANode.WindowState;
if Site is TAnchorDockPanel then
GetParentForm(Site).BoundsRect:=ANode.BoundsRect
else begin
@ -1835,14 +1842,6 @@ begin
if (ANode.NodeType<>adltnPages) and (aHostSite.Pages<>nil) then
aHostSite.FreePages;
end;
if Site is TCustomForm then begin
if AParent=nil then
TCustomForm(Site).WindowState:=ANode.WindowState
else
TCustomForm(Site).WindowState:=wsNormal;
end else
GetParentForm(Site).WindowState:=ANode.WindowState;
end;
function TAnchorDockMaster.GetNodeSite(Node: TAnchorDockLayoutTreeNode): TAnchorDockHostSite;