Changeset 96 for trunk/Forms/UFormImportSource.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/UFormImportSource.pas (modified) (2 diffs)

trunk/Forms/UFormImportSource.pas

@@ -44 +44 @@
     procedure ButtonOpenURLClick(Sender: TObject);
     procedure ButtonShowFormatClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -86 +87 @@
     end;
   end;
+end;
+
+procedure TFormImportSource.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;