Changeset 58 for trunk

Timestamp:

Nov 16, 2012, 9:05:08 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Application divided to separate package ChronisPlatform and test application which use this package and define test module.

Location:

trunk

Files:

• Application/URegistredModules.pas (deleted)
• ChronIS.ico (deleted)
• ChronIS.lpi (deleted)
• ChronIS.lpr (deleted)
• ChronIS.res (deleted)
• ChronISPlatform.lpk (added)
• ChronISPlatform.pas (added)
• Demo (added)
• Demo/ChronisDemo.ico (added)
• Demo/ChronisDemo.lpi (added)
• Demo/ChronisDemo.lpr (added)
• Demo/ChronisDemo.lps (added)
• Demo/ChronisDemo.res (added)
• Demo/Languages (added)
• Demo/Modules (added)
• Demo/Modules/Test (added)
• Demo/Modules/Test/UModuleTest.lfm (added)
• Demo/Modules/Test/UModuleTest.pas (added)
• Demo/UDataModuleDemo.lfm (added)
• Demo/UDataModuleDemo.pas (added)
• Demo/URegistredModules.pas (added)
• Modules (deleted)
• UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -36 +36 @@
   end;
 
+  { TChronisPlatform }
+
+  TChronisPlatform = class(TComponent)
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Init;
+    procedure Done;
+  end;
+
+procedure Register;
+
 var
   Core: TCore;
@@ -44 +56 @@
 
 uses
-  URegistredModules, UFormMain;
+  UFormMain, UFormConnection;
+
+procedure Register;
+begin
+  RegisterComponents('Chronis', [TChronisPlatform]);
+end;
+
+{ TChronisPlatform }
+
+constructor TChronisPlatform.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+end;
+
+destructor TChronisPlatform.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TChronisPlatform.Init;
+begin
+  Application.CreateForm(TCore, Core);
+  Application.CreateForm(TFormMain, FormMain);
+  Application.CreateForm(TFormConnection, FormConnection);
+  //Core := TCore.Create(Application);
+  //FormMain := TFormMain.Create(Application);
+  //FormConnection := TFormConnection.Create(Application);
+end;
+
+procedure TChronisPlatform.Done;
+begin
+  FormConnection.Free;
+  FormMain.Free;
+  Core.Free;
+end;
 
 
@@ -80 +126 @@
     try
       Context := RegistryContext;
-      RegisterModules(ModuleManager);
+      //RegisterModules(ModuleManager);
       if ReadBoolWithDefault('ModuleManagerInstalled', False) then
         ModuleManager.LoadFromRegistry(RegContext(RegistryContext.RootKey, RegistryContext.Key + '\Modules'))
@@ -105 +151 @@
   if Assigned(FormModuleList) then FreeAndNil(FormModuleList);
   ModuleManager.OnUpdate := nil;
-  UnregisterModules(ModuleManager);
+  //UnregisterModules(ModuleManager);
 end;