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

IDEIntf: added dockmanager

Browse Source 
git-svn-id: trunk@14394 -
This commit is contained in:
mattias 2008-03-03 20:18:22 +00:00
parent 231cf03bbb
commit ff825a19f2
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/include/ide.inc
View File

@ -34,7 +34,5 @@
{$DEFINE DisableFakeMethods} {$DEFINE DisableFakeMethods}
{$ENDIF} {$ENDIF}
{ $DEFINE EnableDocking}
// end. // end.

6
ide/main.pp
View File

@ -77,6 +77,9 @@ uses
LCLProc, LCLMemManager, LCLType, LCLIntf, LConvEncoding, LMessages, LCLProc, LCLMemManager, LCLType, LCLIntf, LConvEncoding, LMessages,
LResources, StdCtrls, Forms, Buttons, Menus, FileUtil, Controls, GraphType, LResources, StdCtrls, Forms, Buttons, Menus, FileUtil, Controls, GraphType,
Graphics, ExtCtrls, Dialogs, InterfaceBase, Graphics, ExtCtrls, Dialogs, InterfaceBase,
{$IFDEF EnableIDEDocking}
LDockCtrl,
{$ENDIF}
// codetools // codetools
AVL_Tree, Laz_XMLCfg, AVL_Tree, Laz_XMLCfg,
CodeToolsStructs, CodeToolManager, CodeCache, DefineTemplates, CodeToolsStructs, CodeToolManager, CodeCache, DefineTemplates,
@ -1090,6 +1093,8 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Create INHERITED');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Create INHERITED');{$ENDIF}
FDockingManager:=TLazDockingManager.Create(Self);
SetupDialogs; SetupDialogs;
RunExternalTool:=@OnRunExternalTool; RunExternalTool:=@OnRunExternalTool;
{$IFDEF UseAsyncProcess} {$IFDEF UseAsyncProcess}
@ -1260,6 +1265,7 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy C ');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy C ');{$ENDIF}
FreeThenNil(IDEProtocolOpts); FreeThenNil(IDEProtocolOpts);
FreeThenNil(FDockingManager);
DebugLn('[TMainIDE.Destroy] END'); DebugLn('[TMainIDE.Destroy] END');
end; end;

4
ideintf/lazideintf.pas
View File

@ -23,7 +23,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Dialogs, PropEdits, LazHelpHTML, Classes, SysUtils, LCLProc, Forms, Controls, Dialogs, PropEdits, LazHelpHTML,
IDEExternToolIntf, ProjectIntf, SrcEditorIntf; IDEExternToolIntf, ProjectIntf, SrcEditorIntf, LDockCtrl;
type type
// open file flags // open file flags
@ -134,6 +134,7 @@ type
const AMethod: TMethod); const AMethod: TMethod);
protected protected
fOwningComponent: TComponent; fOwningComponent: TComponent;
FDockingManager: TLazDockingManager;
function GetActiveProject: TLazProject; virtual; abstract; function GetActiveProject: TLazProject; virtual; abstract;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType); procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType);
@ -148,6 +149,7 @@ type
// the main window with the IDE menu // the main window with the IDE menu
function GetMainBar: TComponent; virtual; abstract; function GetMainBar: TComponent; virtual; abstract;
property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle; property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle;
property DockingManager: TLazDockingManager read FDockingManager;
// find file // find file
function FindUnitFile(const AFilename: string): string; virtual; abstract; function FindUnitFile(const AFilename: string): string; virtual; abstract;