Changeset 135 for trunk/UCore.pas

Timestamp:

Mar 5, 2022, 9:44:18 AM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: More translated strings.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -25 +25 @@
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure TranslatorTranslate(Sender: TObject);
   private
     FCurrentTarget: TTarget;
@@ -102 +103 @@
 end;
 
+procedure TCore.TranslatorTranslate(Sender: TObject);
+begin
+  UTarget.UpdateTranslation;
+end;
+
 procedure TCore.InitTargets;
 var