Changeset 567 for Common/FormEx.pas

Timestamp:

Jun 30, 2023, 10:09:00 PM (16 months ago)

Author:

chronos

Message:

• Modified: Improved TFormEx class.

File:

• Common/FormEx.pas (modified) (4 diffs)

Common/FormEx.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, PersistentForm, Theme, Translator;
+  Classes, SysUtils, Forms, PersistentForm, Theme, Translator, ScaleDPI;
 
 type
@@ -13 +13 @@
   private
     FCounter: Integer; static;
+  protected
+    procedure DoShow; override;
+    procedure DoCreate; override;
+    procedure DoClose(var CloseAction: TCloseAction); override;
+    procedure DoDestroy; override;
   public
     PersistentForm: TPersistentForm; static;
     ThemeManager: TThemeManager; static;
     Translator: TTranslator; static;
-    procedure DoShow; override;
-    procedure DoCreate; override;
-    procedure DoClose(var CloseAction: TCloseAction); override;
-    procedure DoDestroy; override;
+    ScaleDPI: TScaleDPI; static;
+    OwnsPersistentForm: Boolean; static;
+    OwnsThemeManager: Boolean; static;
+    OwnsTranslator: Boolean; static;
+    OwnsScaleDPI: Boolean; static;
   end;
 
@@ -43 +49 @@
 procedure TFormEx.DoCreate;
 begin
-  if not Assigned(PersistentForm) then
+  if not Assigned(PersistentForm) then begin
+    OwnsPersistentForm := True;
     PersistentForm := TPersistentForm.Create(nil);
-  if not Assigned(ThemeManager) then
+  end;
+  if not Assigned(ThemeManager) then begin
+    OwnsThemeManager := True;
     ThemeManager := TThemeManager.Create(nil);
+  end;
   if not Assigned(Translator) then begin
     Translator := TTranslator.Create(nil);
     Translator.POFilesFolder := 'Languages';
     Translator.Language := Translator.Languages.SearchByCode('');
+    OwnsTranslator := True;
   end;
+  if not Assigned(ScaleDPI) then begin
+    OwnsScaleDPI := True;
+    ScaleDPI := TScaleDPI.Create(nil);
+  end;
+
   Translator.TranslateComponentRecursive(Self);
   ThemeManager.UseTheme(Self);
@@ -68 +84 @@
   Dec(FCounter);
   if FCounter <= 0 then begin
-    FreeAndNil(PersistentForm);
-    FreeAndNil(ThemeManager);
-    FreeAndNil(Translator);
+    if OwnsPersistentForm then begin
+      FreeAndNil(PersistentForm);
+      OwnsPersistentForm := False;
+    end;
+    if OwnsThemeManager then begin
+      FreeAndNil(ThemeManager);
+      OwnsThemeManager := False;
+    end;
+    if OwnsTranslator then begin
+      FreeAndNil(Translator);
+      OwnsTranslator := False;
+    end;
+    if OwnsScaleDPI then begin
+      FreeAndNil(ScaleDPI);
+      OwnsScaleDPI := False;
+    end;
   end;
   inherited;