IDE: Don't enlarge IDE if MessagesView or CodeExplorerView is shown. Issue #34447

git-svn-id: trunk@59830 -

components/anchordocking/design/registeranchordocking.pas

@@ -361,7 +361,7 @@ begin
               {$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)}
               debugln(['TIDEAnchorDockMaster.ShowForm NewDockSite=',DbgSName(NewDockSite),'="',NewDockSite.Caption,'"']);
               {$ENDIF}
-              DockMaster.ManualDock(Site,NewDockSite,DockAlign);
+              DockMaster.ManualDock(Site,NewDockSite,DockAlign,NewDockSite);
               {$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)}
               debugln(['TIDEAnchorDockMaster.ShowForm after docking: ',DbgSName(AControl),' Floating=',DockMaster.IsFloating(AControl)]);
               {$ENDIF}

ide/main.pp

@@ -2429,7 +2429,7 @@ begin
     NonModalIDEWindowNames[nmiwSourceNoteBookName],alBottom,false,@GetLayoutHandler);
   IDEWindowCreators.Add(NonModalIDEWindowNames[nmiwCodeExplorerName],
     nil,@CreateIDEWindow,'72%','120','+170','-200',
-    NonModalIDEWindowNames[nmiwSourceNoteBookName],alRight);
+    NonModalIDEWindowNames[nmiwMainIDEName],alRight);
 
   IDEWindowCreators.Add(NonModalIDEWindowNames[nmiwUnitDependenciesName],
     nil,@CreateIDEWindow,'200','200','','');