Changeset 9 for trunk/Studio/UCore.pas

Timestamp:

Aug 3, 2012, 1:34:09 PM (12 years ago)

Author:

chronos

Message:

• Added: Form for application runtime module management.

File:

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

trunk/Studio/UCore.pas

@@ -18 +18 @@
     procedure RegisterModules;
   public
-    ModuleManager: TModuleManager;
-    API: TLDStudioAPI;
     procedure Init;
   end;
@@ -38 +36 @@
 begin
   DataModule1 := TDataModule1.Create(nil);
-  API := TLDStudioAPI.Create;
-  ModuleManager := TModuleManager.Create(nil);
-  ModuleManager.API := API;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  FreeAndNil(ModuleManager);
-  FreeAndNil(API);
   FreeAndNil(DataModule1);
 end;
@@ -52 +45 @@
 procedure TCore.RegisterModules;
 begin
-  ModuleManager.RegisterModule(TLDModuleDebug.Create, True);
-  ModuleManager.RegisterModule(TLDModuleBrainfuck.Create, True);
-  ModuleManager.RegisterModule(TLDModulePascal.Create, True);
-  ModuleManager.InstallMarked;
+  with DataModule1.ModuleManager do begin
+    RegisterModule(TLDModuleDebug.Create, True);
+    RegisterModule(TLDModuleBrainfuck.Create, True);
+    RegisterModule(TLDModulePascal.Create, True);
+    InstallMarked;
+  end;
 end;
 
 procedure TCore.Init;
 begin
-  TLDStudioAPI(ModuleManager.API).MainForm := FormMain;
-  TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu;
-  TLDStudioAPI(ModuleManager.API).FileTypes := DataModule1.FileTypes;
   RegisterModules;
 end;