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

designer: don't resize a LookupRoot (bug #0014361)

Browse Source 
git-svn-id: trunk@21777 -
This commit is contained in:
paul 2009-09-20 04:47:06 +00:00
parent d6a6f487a7
commit aab41d4aea
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/designer.pp
View File

@ -2063,6 +2063,8 @@ begin
if (ControlSelection.ActiveGrabber <> nil) then // grabber active => resizing
begin
// grabber moving -> size selection
if not ControlSelection.LookupRootSelected then // if not current form is selected then resize selection
begin
if not (dfHasSized in FFlags) then
begin
ControlSelection.SaveBounds;
@ -2074,6 +2076,7 @@ begin
CurSnappedMousePos.X - OldSnappedMousePos.X,
CurSnappedMousePos.Y - OldSnappedMousePos.Y);
DoModified;
end;
end
else
begin // no grabber active => moving