paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 19:57:14 +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

21
designer/designer.pp
View File

@ -2063,17 +2063,20 @@ begin
if (ControlSelection.ActiveGrabber <> nil) then // grabber active => resizing
begin
// grabber moving -> size selection
if not (dfHasSized in FFlags) then
if not ControlSelection.LookupRootSelected then // if not current form is selected then resize selection
begin
ControlSelection.SaveBounds;
Include(FFlags, dfHasSized);
if not (dfHasSized in FFlags) then
begin
ControlSelection.SaveBounds;
Include(FFlags, dfHasSized);
end;
OldSnappedMousePos := ControlSelection.SnapGrabberMousePos(OldMouseMovePos);
CurSnappedMousePos:= ControlSelection.SnapGrabberMousePos(LastMouseMovePos);
ControlSelection.SizeSelection(
CurSnappedMousePos.X - OldSnappedMousePos.X,
CurSnappedMousePos.Y - OldSnappedMousePos.Y);
DoModified;
end;
OldSnappedMousePos := ControlSelection.SnapGrabberMousePos(OldMouseMovePos);
CurSnappedMousePos:= ControlSelection.SnapGrabberMousePos(LastMouseMovePos);
ControlSelection.SizeSelection(
CurSnappedMousePos.X - OldSnappedMousePos.X,
CurSnappedMousePos.Y - OldSnappedMousePos.Y);
DoModified;
end
else
begin // no grabber active => moving