mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 09:39:13 +02:00
anchordocking: fix endless loop
git-svn-id: trunk@28441 -
This commit is contained in:
parent
7779bd4654
commit
7c9336f367
@ -438,8 +438,10 @@ begin
|
|||||||
Parent:=GetParentForm(AForm);
|
Parent:=GetParentForm(AForm);
|
||||||
Parent.ShowOnTop;
|
Parent.ShowOnTop;
|
||||||
if (OldActiveControl<>nil) and OldActiveControl.CanFocus then
|
if (OldActiveControl<>nil) and OldActiveControl.CanFocus then
|
||||||
|
begin
|
||||||
Parent.ActiveControl:=OldActiveControl;
|
Parent.ActiveControl:=OldActiveControl;
|
||||||
AForm.SetFocus;
|
Parent.SetFocus;
|
||||||
|
end;
|
||||||
//debugln(['TIDEAnchorDockMaster.ShowForm AForm.ActiveControl=',dbgsname(AForm.ActiveControl),' ',DbgSName(Parent.ActiveControl),' ',DbgSName(FindControl(GetFocus))]);
|
//debugln(['TIDEAnchorDockMaster.ShowForm AForm.ActiveControl=',dbgsname(AForm.ActiveControl),' ',DbgSName(Parent.ActiveControl),' ',DbgSName(FindControl(GetFocus))]);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user