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

trunk/Forms/UFormExport.pas

@@ -20 +20 @@
     procedure ButtonProcessClick(Sender: TObject);
     procedure ButtonSaveToFileClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     procedure ExportCSV;
@@ -51 +52 @@
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
   end;
+end;
+
+procedure TFormExport.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;