paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 05:48:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

designer: stop resizing when Esc is pressed (bug #0010981)

Browse Source 
git-svn-id: trunk@18559 -
This commit is contained in:
paul 2009-02-04 14:17:13 +00:00
parent fd4205614a
commit c0d727fb3c
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
designer/designer.pp
View File

@ -549,12 +549,27 @@ procedure TDesigner.SelectParentOfSelection;
var
i: Integer;
begin
if ControlSelection.OnlyInvisiblePersistentsSelected then exit;
if ControlSelection.LookupRootSelected then begin
SelectOnlyThisComponent(FLookupRoot);
exit;
if ControlSelection.ActiveGrabber <> nil then
begin
ControlSelection.ActiveGrabber := nil;
if ControlSelection.RubberbandActive then
ControlSelection.RubberbandActive := False;
LastMouseMovePos.X:=-1;
Exclude(FFlags, dfHasSized);
MouseDownComponent := nil;
MouseDownSender := nil;
Exit;
end;
if ControlSelection.OnlyInvisiblePersistentsSelected then
Exit;
if ControlSelection.LookupRootSelected then
begin
SelectOnlyThisComponent(FLookupRoot);
Exit;
end;
i:=ControlSelection.Count-1;
while (i>=0)
and ( (ControlSelection[i].ParentInSelection)