paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 03:27:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: do not mainform

Browse Source 
git-svn-id: trunk@26006 -
This commit is contained in:
mattias 2010-06-09 08:05:36 +00:00
parent 380b22cd1b
commit ec121147e9
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -121,12 +121,14 @@ end;
procedure TIDEAnchorDockMaster.MakeIDEWindowDockSite(AForm: TCustomForm);
begin
// ToDo DockMaster.MakeDockable(AForm,false);
if AForm<>Application.MainForm then
DockMaster.MakeDockable(AForm,false);
end;
procedure TIDEAnchorDockMaster.MakeIDEWindowDockable(AControl: TWinControl);
begin
DockMaster.MakeDockable(AControl,false);
if AControl<>Application.MainForm then
DockMaster.MakeDockable(AControl,false);
end;
function TIDEAnchorDockMaster.GetDefaultLayoutFilename: string;
@ -232,7 +234,10 @@ begin
end;
finally
DockMaster.MakeDockable(AForm,true,false);
if AForm=Application.MainForm then
AForm.Show
else
DockMaster.MakeDockable(AForm,true,false);
AForm.EnableAlign;
if BringToFront then begin