Changeset 5 for trunk/Studio/UCore.pas

Timestamp:

Aug 2, 2012, 3:23:38 PM (12 years ago)

Author:

chronos

Message:

• Added: LibreDevelopCommon package which supply API unit ULDStudioAPI.
• Modified: Module LDStudioCommon now register forms, actions and menu items using API.

File:

• trunk/Studio/UCore.pas (modified) (2 diffs)

trunk/Studio/UCore.pas

@@ -1 +1 @@
 unit UCore;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil;
+  Classes, SysUtils, FileUtil, UModularSystem, ULDStudioAPI;
 
 type
+
+  { TCore }
+
   TCore = class(TDataModule)
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
-    { private declarations }
+    procedure RegisterModules;
   public
-    { public declarations }
+    ModuleManager: TModuleManager;
+    API: TLDStudioAPI;
+    procedure Init;
   end;
 
@@ -23 +30 @@
 {$R *.lfm}
 
+uses
+  ULDModuleDebug, UFormMain;
+
+{ TCore }
+
+procedure TCore.DataModuleCreate(Sender: TObject);
+begin
+  API := TLDStudioAPI.Create;
+  ModuleManager := TModuleManager.Create(nil);
+  ModuleManager.API := API;
+end;
+
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  FreeAndNil(ModuleManager);
+  FreeAndNil(API);
+end;
+
+procedure TCore.RegisterModules;
+begin
+  ModuleManager.RegisterModule(TLDModuleDebug.Create, True);
+  ModuleManager.InstallMarked;
+end;
+
+procedure TCore.Init;
+begin
+  TLDStudioAPI(ModuleManager.API).MainForm := FormMain;
+  TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu1;
+  RegisterModules;
+end;
+
 end.