Changeset 147 for trunk/Forms/FormInput.pas

Timestamp:

Jun 14, 2023, 9:56:49 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Forms/FormInput.pas (modified) (2 diffs)

trunk/Forms/FormInput.pas

@@ -13 +13 @@
     Label1: TLabel;
     MemoInput: TMemo;
+    procedure FormCreate(Sender: TObject);
     procedure MemoInputKeyPress(Sender: TObject; var Key: char);
   end;
@@ -31 +32 @@
 end;
 
+procedure TFormInput.FormCreate(Sender: TObject);
+begin
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager.UseTheme(Self);
+end;
 
 end.