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

anchordocking: BringToFront: focus child form

Browse Source 
git-svn-id: trunk@26206 -
This commit is contained in:
mattias 2010-06-20 13:51:19 +00:00
parent 22d9391ac8
commit 94629674b8
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/anchordocking/anchordocking.pas
View File

@ -1793,8 +1793,10 @@ begin
AControl.EnableAutoSizing;
end;
// BringToFront
if BringToFront and (Site<>nil) then
if BringToFront and (Site<>nil) then begin
GetParentForm(Site).BringToFront;
Site.SetFocus;
end;
end;
procedure TAnchorDockMaster.MakeDockSite(AForm: TCustomForm; Sites: TAnchors;
@ -4627,7 +4629,7 @@ begin
WidthDiff:=FSiteClientRect.Right-OldSiteClientRect.Right;
HeightDiff:=FSiteClientRect.Bottom-OldSiteClientRect.Bottom;
debugln(['TAnchorDockManager.ResetBounds ',DbgSName(Site),' ',dbgs(Child.BaseBounds),' ',WidthDiff,',',HeightDiff]);
//debugln(['TAnchorDockManager.ResetBounds ',DbgSName(Site),' ',dbgs(Child.BaseBounds),' ',WidthDiff,',',HeightDiff]);
case ResizePolicy of
admrpChild:
begin

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

@ -353,6 +353,7 @@ begin
Parent:=GetParentForm(AForm);
if Parent<>nil then
Parent.ShowOnTop;
AForm.SetFocus;
end;
end;
//debugln(['TIDEAnchorDockMaster.ShowForm END ',DbgSName(AForm),' ',dbgs(AForm.BoundsRect)]);