paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +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}
{$ENDIF}
{ $DEFINE EnableDocking}
// end.

6
ide/main.pp
View File

@ -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;

4
ideintf/lazideintf.pas
View File

@ -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;