Changeset 14 for trunk/StudioPackage/UDataModule.pas

Timestamp:

Aug 6, 2012, 10:49:50 AM (12 years ago)

Author:

chronos

Message:

• Modified: API revised to slave proxy model.
• Added: Modules can control docking of forms.

File:

• trunk/StudioPackage/UDataModule.pas (modified) (5 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, SpecializedList, USource,
-  UModularSystem, ULDStudioAPI;
+  Classes, SysUtils, FileUtil, Forms, ActnList, Controls, SpecializedList,
+  USource, UModularSystem, ULDStudioAPI, Menus, ComCtrls;
 
 type
@@ -40 +40 @@
 
   TDataModule1 = class(TDataModule)
+  published
+    ActionListRegistred: TActionList;
+    ImageListMain: TImageList;
+    API: TLDStudioAPI;
+    procedure APIDockForm(Form: TForm; Target: TDockTarget);
+    procedure APIRegisterFileType(FileType: TSourceType);
+    procedure APIRegisterForm(Form: TForm);
+    procedure APIRegisterMainMenuItem(MenuItem: TMenuItem;
+      ParentItem: TMenuItem; Index: Integer);
+    procedure APIUnregisterAction(Action: TAction);
+    procedure APIUnregisterFileType(FileType: TSourceType);
+    procedure APIUnregisterForm(Form: TForm);
+    procedure APIUnregisterMainMenuItem(MenuItem: TMenuItem);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure APIOpenFile(FileName: string);
+    procedure APIRegisterAction(Action: TAction);
   private
-    API: TLDStudioAPI;
+    procedure DockToPageControl(PageControl: TPageControl; Form: TForm);
   public
     ModuleManager: TModuleManager;
@@ -127 +142 @@
   FileTypes.OwnsObjects := False;
   OpenedFiles := TOpenedFiles.Create;
-  API := TLDStudioAPI.Create;
   ModuleManager := TModuleManager.Create(nil);
   ModuleManager.API := API;
@@ -138 +152 @@
   FormModuleList := TFormModuleList.Create(nil);
 
-  TLDStudioAPI(ModuleManager.API).MainForm := FormMain;
-  TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu;
-  TLDStudioAPI(ModuleManager.API).FileTypes := FileTypes;
   FormMain.Show;
 end;
 
+procedure TDataModule1.APIUnregisterMainMenuItem(MenuItem: TMenuItem);
+begin
+  MenuItem.Parent.Delete(MenuItem.Parent.IndexOf(MenuItem));
+end;
+
+procedure TDataModule1.APIRegisterMainMenuItem(MenuItem: TMenuItem;
+  ParentItem: TMenuItem; Index: Integer);
+begin
+  if Assigned(ParentItem) then ParentItem.Insert(Index, MenuItem)
+    else FormMain.MainMenu.Items.Insert(Index, MenuItem);
+end;
+
+procedure TDataModule1.APIRegisterForm(Form: TForm);
+begin
+  Form.Parent := FormMain;
+end;
+
+procedure TDataModule1.APIRegisterFileType(FileType: TSourceType);
+begin
+  FileTypes.Add(FileType);
+end;
+
+procedure TDataModule1.DockToPageControl(PageControl: TPageControl; Form: TForm
+  );
+var
+  NewTabSheet: TTabSheet;
+begin
+  NewTabSheet := TTabSheet.Create(PageControl);
+  NewTabSheet.Parent := PageControl;
+  NewTabSheet.Visible := True;
+  NewTabSheet.Caption := Form.Caption;
+  Form.Align := alClient;
+  Form.ManualDock(NewTabSheet, nil, alClient);
+  Form.Visible := True;
+end;
+
+procedure TDataModule1.APIDockForm(Form: TForm; Target: TDockTarget);
+begin
+  with FormMain do
+  case Target of
+    dtCenter: DockToPageControl(PageControlCenter, Form);
+//    dtTop: DockToPageControl(PageControlTop, Form);
+    dtLeft: DockToPageControl(PageControlLeft, Form);
+    dtRight: DockToPageControl(PageControlRight, Form);
+    dtBottom: DockToPageControl(PageControlBottom, Form);
+  end;
+end;
+
+procedure TDataModule1.APIUnregisterAction(Action: TAction);
+begin
+  Action.ActionList := nil;
+end;
+
+procedure TDataModule1.APIUnregisterFileType(FileType: TSourceType);
+begin
+  FileTypes.Remove(FileType);
+end;
+
+procedure TDataModule1.APIUnregisterForm(Form: TForm);
+begin
+  Form.Parent := nil;
+end;
+
 procedure TDataModule1.DataModuleDestroy(Sender: TObject);
 begin
   FreeAndNil(ModuleManager);
-  FreeAndNil(API);
   FreeAndNil(FormMain);
   FreeAndNil(FormSourceCode);
@@ -156 +229 @@
 end;
 
+procedure TDataModule1.APIOpenFile(FileName: string);
+begin
+  OpenedFiles.OpenFile(FileName);
+end;
+
+procedure TDataModule1.APIRegisterAction(Action: TAction);
+begin
+  Action.ActionList := ActionListRegistred;
+end;
+
 end.