Changeset 145 for trunk/Forms/FormOutput.pas

Timestamp:

Jun 5, 2023, 6:44:57 PM (18 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Forms/FormOutput.pas (moved) (moved from trunk/Forms/UFormOutput.pas ) (3 diffs)

trunk/Forms/FormOutput.pas

@@ -1 @@
-unit UFormOutput;
+unit FormOutput;
 
 interface
@@ -13 +13 @@
     Label2: TLabel;
     MemoOutput: TMemo;
-  private
-    { private declarations }
+    procedure FormCreate(Sender: TObject);
   public
     procedure Reload;
   end;
-
-var
-  FormOutput: TFormOutput;
 
 
@@ -28 +24 @@
 
 uses
-  UCore, UTargetInterpretter;
+  Core, TargetInterpretter;
 
 { TFormOutput }
 
+procedure TFormOutput.FormCreate(Sender: TObject);
+begin
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager.UseTheme(Self);
+end;
+
 procedure TFormOutput.Reload;
 begin
-  if Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.CurrentTarget) do begin
+  if Core.Core.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(Core.Core.CurrentTarget) do begin
     if OutputChanged then begin
       OutputChanged := False;