Changeset 96 for trunk/Forms/UFormAcronym.pas

Timestamp:

Aug 22, 2016, 9:31:44 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Dynamically created forms were not translated.

File:

• trunk/Forms/UFormAcronym.pas (modified) (3 diffs)

trunk/Forms/UFormAcronym.pas

@@ -56 +56 @@
 
 uses
-  UFormMain, UFormCategorySelect;
+  UCore, UFormCategorySelect;
 
 { TFormAcronym }
@@ -63 +63 @@
   );
 begin
-  FormMain.PersistentForm1.Save(Self);
+  Core.PersistentForm1.Save(Self);
 end;
 
 procedure TFormAcronym.FormCreate(Sender: TObject);
 begin
-
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;
 
@@ -110 +110 @@
 procedure TFormAcronym.FormShow(Sender: TObject);
 begin
-  FormMain.PersistentForm1.Load(Self);
+  Core.PersistentForm1.Load(Self);
   UpdateInterface;
 end;