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

merged r50784 #d4de0ecf4b: anchordocking: fix wrong monitor restore. Issue #29184

Browse Source 
git-svn-id: branches/fixes_1_6@50787 -
This commit is contained in:
ondrej 2015-12-14 10:28:59 +00:00
parent 031141afd4
commit 2f1e28d82f
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;