paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 10:40:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: fixed store selection bounds for mediator, patch from Anton

Browse Source 
git-svn-id: trunk@56281 -
This commit is contained in:
mattias 2017-11-04 14:54:43 +00:00
parent 6dc2571a4c
commit 50a915579e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/controlselection.pp
View File

@ -759,6 +759,7 @@ begin
FOldWidth:=r.Right-r.Left; FOldWidth:=r.Right-r.Left;
FOldHeight:=r.Bottom-r.Top; FOldHeight:=r.Bottom-r.Top;
end; end;
FOldFormRelativeLeftTop:=Owner.Mediator.GetComponentOriginOnForm(TComponent(FPersistent));
end else begin end else begin
GetComponentBounds(TComponent(FPersistent), GetComponentBounds(TComponent(FPersistent),
FOldLeft,FOldTop,FOldWidth,FOldHeight); FOldLeft,FOldTop,FOldWidth,FOldHeight);