Changeset 107 for trunk/Core.pas

Timestamp:

Jul 19, 2024, 11:24:06 PM (2 months ago)

Author:

chronos

Message:

• Fixed: Full screen mode switching on Windows.
• Modified: Updated Common package.

File:

• trunk/Core.pas (modified) (3 diffs)

trunk/Core.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Theme, ApplicationInfo, Translator;
+  Classes, SysUtils, Theme, ApplicationInfo, Translator, FormEx, PersistentForm;
 
 type
@@ -12 +12 @@
   TCore = class(TDataModule)
     ApplicationInfo: TApplicationInfo;
+    PersistentForm1: TPersistentForm;
     Translator1: TTranslator;
     ThemeManager1: TThemeManager;
+    procedure DataModuleCreate(Sender: TObject);
   end;
 
@@ -24 +26 @@
 {$R *.lfm}
 
+{ TCore }
+
+procedure TCore.DataModuleCreate(Sender: TObject);
+begin
+  PersistentForm1.RegistryContext := ApplicationInfo.GetRegistryContext;
+
+  TFormEx.Translator := Translator1;
+  TFormEx.ThemeManager := ThemeManager1;
+  TFormEx.PersistentForm := PersistentForm1;
+end;
+
 end.