Changeset 67 for trunk/Forms/UFormMemory.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/UFormMemory.pas (modified) (3 diffs)

trunk/Forms/UFormMemory.pas

@@ -34 +34 @@
 
 uses
-  UFormMain, UTargetInterpretter;
+  UCore, UTargetInterpretter;
 
 { TFormMemory }
@@ -40 +40 @@
 procedure TFormMemory.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
     ListViewMemory.Items.Count := Trunc(Length(Memory) / RowSize);
     ListViewMemory.Refresh;
@@ -52 +52 @@
   I: Integer;
 begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do
+  if Core.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(Core.CurrentTarget) do
   if (Item.Index >= 0) and (Item.Index < Trunc(Length(Memory) / RowSize)) then begin
     Item.Caption := IntToHex(Item.Index * RowSize, 8);