Changeset 67 for trunk/Forms/UFormCPU.pas

Timestamp:

Jan 17, 2015, 4:08:03 PM (10 years ago)

Author:

chronos

Message:

• Renamed: MainForm class to FormMain.
• Moved: CurrentTarget moved from FormMain to Core class.

File:

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

trunk/Forms/UFormCPU.pas

@@ -34 +34 @@
 
 uses
-  UFormMain, UTargetInterpretter;
+  UCore, UTargetInterpretter;
 
 {$R *.lfm}
@@ -45 +45 @@
 procedure TFormCPU.Reload;
 begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do begin
+  if Core.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(Core.CurrentTarget) do begin
     LabelProgramPointer.Caption := IntToStr(ProgramIndex);
     LabelMemoryPointer.Caption := IntToStr(MemoryPosition);