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

trunk/Forms/UFormImport.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UAcronym;
+  UAcronym, Types;
 
 type
@@ -22 +22 @@
     procedure ButtonProcessClick(Sender: TObject);
     procedure ButtonLoadFromFileClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     procedure ImportMediaWiki;
@@ -57 +58 @@
   if OpenDialog1.Execute then
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
+end;
+
+procedure TFormImport.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;