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

trunk/Forms/UFormCategorySelect.pas

@@ -17 +17 @@
     ButtonCancel: TButton;
     ListBox1: TListBox;
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListBox1DblClick(Sender: TObject);
@@ -45 +46 @@
 procedure TFormCategorySelect.FormShow(Sender: TObject);
 begin
+end;
+
+procedure TFormCategorySelect.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;