Changeset 143 for trunk/Core.pas

Timestamp:

May 29, 2023, 7:30:31 PM (11 months ago)

Author:

chronos

Message:

Removed U prefix from all units.

File:

• trunk/Core.pas (moved) (moved from trunk/UCore.pas ) (3 diffs)

trunk/Core.pas

@@ -1 @@
-unit UCore;
+unit Core;
 
 interface
 
 uses
-  Classes, SysUtils, UPersistentForm, UTranslator, UTheme;
+  Classes, SysUtils, PersistentForm, Translator, Theme, FormMain;
 
 type
@@ -14 +14 @@
     ThemeManager1: TThemeManager;
     Translator1: TTranslator;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
     procedure Translator1Translate(Sender: TObject);
+  public
+    FormMain: TFormMain;
   end;
 
@@ -47 +51 @@
 end;
 
+procedure TCore.DataModuleCreate(Sender: TObject);
+begin
+  FormMain := TFormMain.Create(nil);
+  FormMain.Show;
+end;
+
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  FreeAndNil(FormMain);
+end;
+
 end.