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

Timestamp:

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

Author:

chronos

Message:

• Modified: Apply interface language to all forms.

File:

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

branches/generator/Forms/UFormGrammer.pas

@@ -21 +21 @@
     Label2: TLabel;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -51 +52 @@
 begin
   Core.PersistentForm1.Save(Self);
+end;
+
+procedure TFormGrammer.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;