Changeset 5 for trunk/Studio

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.

Location:

trunk/Studio

Files:

• LibreDevelopStudio.lpi (modified) (1 diff)
• LibreDevelopStudio.lpr (modified) (1 diff)
• UCore.lfm (modified) (1 diff)
• UCore.pas (modified) (2 diffs)

trunk/Studio/LibreDevelopStudio.lpi

@@ -33 +33 @@
       </local>
     </RunParams>
-    <RequiredPackages Count="2">
+    <RequiredPackages Count="3">
       <Item1>
-        <PackageName Value="LibreDevelopStudio"/>
+        <PackageName Value="LDModuleDebug"/>
       </Item1>
       <Item2>
+        <PackageName Value="LibreDevelopStudio"/>
+      </Item2>
+      <Item3>
         <PackageName Value="LCL"/>
-      </Item2>
+      </Item3>
     </RequiredPackages>
     <Units Count="2">

trunk/Studio/LibreDevelopStudio.lpr

@@ -17 +17 @@
   Application.CreateForm(TCore, Core);
   Application.CreateForm(TDataModule1, DataModule1);
+  Core.Init;
   Application.Run;
 end.

trunk/Studio/UCore.lfm

@@ -1 +1 @@
 object Core: TCore
+  OnCreate = DataModuleCreate
+  OnDestroy = DataModuleDestroy
   OldCreateOrder = False
   Height = 251

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.