diff --git a/components/anchordocking/design/ADLayoutDefault.lrs b/components/anchordocking/design/ADLayoutDefault.lrs index 8320b28655..3bd4a4abee 100644 --- a/components/anchordocking/design/ADLayoutDefault.lrs +++ b/components/anchordocking/design/ADLayoutDefault.lrs @@ -1,51 +1,52 @@ LazarusResources.Add('ADLayoutDefault','XML',[ - ''#13#10''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' - +' '#13#10' '#13#10 - +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13 - +#10' '#13#10'
'#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10 - +' '#13#10 - +' '#13#10 - +' '#13#10' '#13#10' '#13 - +#10' '#13#10' '#13 - +#10' '#13#10' <' - +'Bounds Width="932" Height="119"/>'#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' - +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' - +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13 - +#10' '#13#10' '#13 - +#10' '#13#10' ' - +' '#13#10' '#13#10' '#13#10' '#13#10' ' - +' '#13#10' ' - +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' - +''#13#10' '#13#10' '#13#10' ' + ''#13#10''#13#10' '#13#10' ' + +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' + +'
'#13#10' '#13#10' ' + +' '#13#10' ' + +' '#13#10' ' + +' ' + +#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' + +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10 + +' '#13#10' '#13#10 + +' '#13#10' ' + +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' + +' '#13#10' '#13#10' '#13#10' '#13#10 + +' '#13#10 + +' '#13#10' '#13#10' '#13#10' ' + +#13#10' '#13#10' ' + +''#13#10' '#13#10' ' + +#13#10' '#13#10' '#13#10' '#13 + +#10' '#13#10' '#13 + +#10' '#13#10' '#13#10' '#13#10' ' + +' '#13#10' ' + +#13#10' ' + +#13#10' '#13#10' ' + +' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' ' +#13#10''#13#10 ]); diff --git a/components/anchordocking/design/ADLayoutDefault.xml b/components/anchordocking/design/ADLayoutDefault.xml index 2bf9be3daa..6da6c03eeb 100644 --- a/components/anchordocking/design/ADLayoutDefault.xml +++ b/components/anchordocking/design/ADLayoutDefault.xml @@ -1,5 +1,6 @@ + @@ -70,4 +71,5 @@ + diff --git a/components/anchordocking/design/anchordesktopoptions.pas b/components/anchordocking/design/anchordesktopoptions.pas index 0d5fbd1f1d..e77e989454 100644 --- a/components/anchordocking/design/anchordesktopoptions.pas +++ b/components/anchordocking/design/anchordesktopoptions.pas @@ -134,8 +134,8 @@ end; procedure TAnchorDesktopOpt.LoadDefaults; begin - LoadDefaultLayout; LoadLegacyAnchorDockOptions; + LoadDefaultLayout; end; procedure TAnchorDesktopOpt.ImportSettingsFromIDE; diff --git a/components/anchordocking/design/registeranchordocking.pas b/components/anchordocking/design/registeranchordocking.pas index 38a6cf9428..82de0b4a36 100644 --- a/components/anchordocking/design/registeranchordocking.pas +++ b/components/anchordocking/design/registeranchordocking.pas @@ -83,6 +83,7 @@ type const AAdjustHeight: Boolean; const ANewHeight: Integer); override; procedure CloseAll; override; procedure ResetSplitters; override; + procedure SetMainDockWindow(AForm: TCustomForm); override; end; { TAnchorDockIDEFrame } @@ -237,6 +238,14 @@ begin DockMaster.ResetSplitters; end; +procedure TIDEAnchorDockMaster.SetMainDockWindow(AForm: TCustomForm); +begin + {$IFDEF VerboseAnchorDocking} + debugln(['TIDEAnchorDockMaster.SetMainDockWindow ',DbgSName(AForm)]); + {$ENDIF} + DockMaster.MainDockForm := AForm; +end; + procedure TIDEAnchorDockMaster.MakeIDEWindowDockable(AControl: TWinControl); begin {$IFDEF VerboseAnchorDocking} diff --git a/components/ideintf/idewindowintf.pas b/components/ideintf/idewindowintf.pas index 854d65a1f4..cb2a939169 100644 --- a/components/ideintf/idewindowintf.pas +++ b/components/ideintf/idewindowintf.pas @@ -446,6 +446,7 @@ type procedure CloseAll; virtual; // close all forms, called after IDE has saved all and shuts down procedure ResetSplitters; virtual; abstract; // if the dock site has been resized after loading, you have to reset (percentual) splitters function DockedDesktopOptClass: TAbstractDesktopDockingOptClass; virtual; abstract; + procedure SetMainDockWindow(AForm: TCustomForm); virtual; abstract; end; TIDEWindowGlobalOption = class diff --git a/ide/mainbar.pas b/ide/mainbar.pas index 95ccf50141..14800be778 100644 --- a/ide/mainbar.pas +++ b/ide/mainbar.pas @@ -623,6 +623,8 @@ begin AllowDropFiles:=true; Scaled:=true; OnDropFiles:=@MainIDEBarDropFiles; + if Assigned(IDEDockMaster) then + IDEDockMaster.SetMainDockWindow(Self); {$IFNDEF LCLGtk2} try Icon.LoadFromResourceName(HInstance, 'WIN_MAIN');