Changeset 192 for branches/generator/Forms/UFormLookupTable.pas

Timestamp:

May 17, 2019, 12:08:12 AM (5 years ago)

Author:

chronos

Message:

• Modified: Apply interface language to all forms.

File:

• branches/generator/Forms/UFormLookupTable.pas (modified) (2 diffs)

branches/generator/Forms/UFormLookupTable.pas

@@ -19 +19 @@
     Label1: TLabel;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -45 +46 @@
 end;
 
+procedure TFormLookupTable.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+end;
+
 procedure TFormLookupTable.FormShow(Sender: TObject);
 begin