From ff825a19f2332464736dea022c859a42ed12825c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 3 Mar 2008 20:18:22 +0000
Subject: [PATCH] IDEIntf: added dockmanager

git-svn-id: trunk@14394 -
---
 ide/include/ide.inc    | 2 --
 ide/main.pp            | 6 ++++++
 ideintf/lazideintf.pas | 4 +++-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/ide/include/ide.inc b/ide/include/ide.inc
index 0c0ddaf936..1c3e1afb45 100644
--- a/ide/include/ide.inc
+++ b/ide/include/ide.inc
@@ -34,7 +34,5 @@
 {$DEFINE DisableFakeMethods}
 {$ENDIF}
 
-{ $DEFINE EnableDocking}
-
 // end.
 
diff --git a/ide/main.pp b/ide/main.pp
index dd122fd9b4..42d8a27246 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -77,6 +77,9 @@ uses
   LCLProc, LCLMemManager, LCLType, LCLIntf, LConvEncoding, LMessages,
   LResources, StdCtrls, Forms, Buttons, Menus, FileUtil, Controls, GraphType,
   Graphics, ExtCtrls, Dialogs, InterfaceBase,
+  {$IFDEF EnableIDEDocking}
+  LDockCtrl,
+  {$ENDIF}
   // codetools
   AVL_Tree, Laz_XMLCfg,
   CodeToolsStructs, CodeToolManager, CodeCache, DefineTemplates,
@@ -1090,6 +1093,8 @@ begin
   inherited Create(TheOwner);
   {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Create INHERITED');{$ENDIF}
 
+  FDockingManager:=TLazDockingManager.Create(Self);
+
   SetupDialogs;
   RunExternalTool:=@OnRunExternalTool;
   {$IFDEF UseAsyncProcess}
@@ -1260,6 +1265,7 @@ begin
   {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy C ');{$ENDIF}
 
   FreeThenNil(IDEProtocolOpts);
+  FreeThenNil(FDockingManager);
   DebugLn('[TMainIDE.Destroy] END');
 end;
 
diff --git a/ideintf/lazideintf.pas b/ideintf/lazideintf.pas
index 1ec732ccdc..c18103f455 100644
--- a/ideintf/lazideintf.pas
+++ b/ideintf/lazideintf.pas
@@ -23,7 +23,7 @@ interface
 
 uses
   Classes, SysUtils, LCLProc, Forms, Controls, Dialogs, PropEdits, LazHelpHTML,
-  IDEExternToolIntf, ProjectIntf, SrcEditorIntf;
+  IDEExternToolIntf, ProjectIntf, SrcEditorIntf, LDockCtrl;
 
 type
   // open file flags
@@ -134,6 +134,7 @@ type
                             const AMethod: TMethod);
   protected
     fOwningComponent: TComponent;
+    FDockingManager: TLazDockingManager;
 
     function GetActiveProject: TLazProject; virtual; abstract;
     procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType);
@@ -148,6 +149,7 @@ type
     // the main window with the IDE menu
     function GetMainBar: TComponent; virtual; abstract;
     property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle;
+    property DockingManager: TLazDockingManager read FDockingManager;
 
     // find file
     function FindUnitFile(const AFilename: string): string; virtual; abstract;