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

anchordocking: fix wrong monitor restore. Issue #29184

Browse Source 
git-svn-id: trunk@50784 -
This commit is contained in:
ondrej 2015-12-14 09:07:46 +00:00
parent a04860897f
commit d4de0ecf4b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/anchordocking/anchordockstorage.pas
View File

@ -1098,6 +1098,7 @@ begin
TabPosition:=Node.TabPosition; TabPosition:=Node.TabPosition;
BoundSplitterPos:=Node.BoundSplitterPos; BoundSplitterPos:=Node.BoundSplitterPos;
WorkAreaRect:=Node.WorkAreaRect; WorkAreaRect:=Node.WorkAreaRect;
Monitor:=Node.Monitor;
for a:=low(TAnchorKind) to high(TAnchorKind) do for a:=low(TAnchorKind) to high(TAnchorKind) do
Anchors[a]:=Node.Anchors[a]; Anchors[a]:=Node.Anchors[a];
while Count>Node.Count do Nodes[Count-1].Free; while Count>Node.Count do Nodes[Count-1].Free;