Changeset 553

Timestamp:

Dec 21, 2021, 5:43:40 PM (2 years ago)

Author:

chronos

Message:

• Modified: CoolTranslator occurences replaced by Translator in Common package.

Location:

Common

Files:

• UAboutDialog.pas (modified) (2 diffs)
• UFormAbout.pas (modified) (1 diff)

Common/UAboutDialog.pas

@@ -16 +16 @@
   private
     FApplicationInfo: TApplicationInfo;
-    FCoolTranslator: TTranslator;
+    FTranslator: TTranslator;
     FThemeManager: TThemeManager;
   public
@@ -22 +22 @@
     procedure Show;
   published
-    property CoolTranslator: TTranslator read FCoolTranslator write FCoolTranslator;
+    property Translator: TTranslator read FTranslator write FTranslator;
     property ThemeManager: TThemeManager read FThemeManager write FThemeManager;
     property ApplicationInfo: TApplicationInfo read FApplicationInfo write

Common/UFormAbout.pas

@@ -50 +50 @@
   if Assigned(AboutDialog) then
   with TAboutDialog(AboutDialog) do begin
-    if Assigned(CoolTranslator) then
-      CoolTranslator.TranslateComponentRecursive(Self);
+    if Assigned(Translator) then
+      Translator.TranslateComponentRecursive(Self);
     if Assigned(ThemeManager) then
       ThemeManager.UseTheme(Self);