Changeset 145 for trunk/Forms/FormCPU.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/FormCPU.pas (moved) (moved from trunk/Forms/UFormCPU.pas ) (4 diffs)

trunk/Forms/FormCPU.pas

@@ -1 @@
-unit UFormCPU;
+unit FormCPU;
 
 interface
@@ -20 +20 @@
     LabelStepCounter: TLabel;
     LabelStepSpeed: TLabel;
-  private
+    procedure FormCreate(Sender: TObject);
   public
     LastStepCounter: Integer;
@@ -29 +29 @@
   FormCPU: TFormCPU;
 
+
 implementation
 
 uses
-  UCore, UTargetInterpretter;
+  Core, TargetInterpretter;
 
 {$R *.lfm}
@@ -41 +42 @@
 { TFormCPU }
 
+procedure TFormCPU.FormCreate(Sender: TObject);
+begin
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager.UseTheme(Self);
+end;
+
 procedure TFormCPU.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
     LabelProgramPointer.Caption := IntToStr(ProgramIndex);
     LabelMemoryPointer.Caption := IntToStr(MemoryPosition);