paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 02:19:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: fix endless loop

Browse Source 
git-svn-id: trunk@28441 -
This commit is contained in:
paul 2010-11-24 03:54:04 +00:00
parent 7779bd4654
commit 7c9336f367
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/anchordocking/design/registeranchordocking.pas
View File

@ -438,8 +438,10 @@ begin
Parent:=GetParentForm(AForm);
Parent.ShowOnTop;
if (OldActiveControl<>nil) and OldActiveControl.CanFocus then
begin
Parent.ActiveControl:=OldActiveControl;
AForm.SetFocus;
Parent.SetFocus;
end;
//debugln(['TIDEAnchorDockMaster.ShowForm AForm.ActiveControl=',dbgsname(AForm.ActiveControl),' ',DbgSName(Parent.ActiveControl),' ',DbgSName(FindControl(GetFocus))]);
end;
end;