Changeset 38 for trunk/Forms/UFormCPU.pas

Timestamp:

Feb 19, 2012, 10:29:55 AM (12 years ago)

Author:

chronos

Message:

• Modified: Used manual docked forms for better code separation.
• Modified: Used tabbed layout with PageControl and TabSheets for better usability.

File:

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

trunk/Forms/UFormCPU.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, ComCtrls;
-
-const
-  RowSize = 16;
+  ExtCtrls;
 
 type
 
-  { TInterpreterForm }
+  { TFormCPU }
 
-  TInterpreterForm = class(TForm)
-    Label1: TLabel;
-    Label2: TLabel;
+  TFormCPU = class(TForm)
     Label3: TLabel;
     Label4: TLabel;
-    Label6: TLabel;
+    Label5: TLabel;
     Label7: TLabel;
+    LabelMemoryPointer: TLabel;
+    LabelProgramPointer: TLabel;
     LabelStepCounter: TLabel;
-    LabelProgramPointer: TLabel;
-    Label5: TLabel;
-    LabelMemoryPointer: TLabel;
     LabelStepSpeed: TLabel;
-    ListViewMemory: TListView;
-    MemoInput: TMemo;
-    MemoOutput: TMemo;
-    Panel1: TPanel;
-    Panel2: TPanel;
-    Panel3: TPanel;
-    Panel4: TPanel;
-    Splitter1: TSplitter;
-    Splitter2: TSplitter;
-    Timer1: TTimer;
-    ToolBar1: TToolBar;
-    ToolButton1: TToolButton;
-    ToolButton2: TToolButton;
-    ToolButton3: TToolButton;
-    ToolButton4: TToolButton;
-    ToolButton5: TToolButton;
-    ToolButton6: TToolButton;
-    ToolButton7: TToolButton;
-    procedure FormHide(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
-    procedure MemoInputKeyPress(Sender: TObject; var Key: char);
-    procedure Timer1Timer(Sender: TObject);
   private
   public
     LastStepCounter: Integer;
-    procedure RefreshListViewMemory;
-    procedure UpadateInterface;
+    procedure Reload;
   end;
 
 var
-  InterpreterForm: TInterpreterForm;
+  FormCPU: TFormCPU;
 
 implementation
@@ -71 +41 @@
   SStepsPerSecond = ' steps/s';
 
-{ TInterpreterForm }
+{ TFormCPU }
 
-procedure TInterpreterForm.Timer1Timer(Sender: TObject);
+procedure TFormCPU.Reload;
 begin
   if MainForm.CurrentTarget is TTargetInterpretter then
@@ -82 +52 @@
     LabelStepSpeed.Caption := IntToStr(StepCount - LastStepCounter) + SStepsPerSecond;
     LastStepCounter := StepCount;
-    MemoOutput.Lines.Text := Output;
   end;
-  RefreshListViewMemory;
-end;
-
-procedure TInterpreterForm.RefreshListViewMemory;
-begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do begin
-    ListViewMemory.Items.Count := Trunc(Length(Memory) / RowSize);
-    ListViewMemory.Refresh;
-  end;
-end;
-
-procedure TInterpreterForm.UpadateInterface;
-begin
-  MainForm.UpdateInterface;
-end;
-
-procedure TInterpreterForm.ListViewMemoryData(Sender: TObject; Item: TListItem);
-var
-  Row: string;
-  I: Integer;
-begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do
-  if (Item.Index >= 0) and (Item.Index < Trunc(Length(Memory) / RowSize)) then begin
-    Item.Caption := IntToHex(Item.Index * RowSize, 8);
-    Row := '';
-    for I := 0 to RowSize - 1 do
-      Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
-    Item.SubItems.Add(Row);
-  end;
-end;
-
-procedure TInterpreterForm.FormHide(Sender: TObject);
-begin
-  Timer1.Enabled := False;
-end;
-
-procedure TInterpreterForm.FormShow(Sender: TObject);
-begin
-  Timer1.Enabled := True;
-end;
-
-procedure TInterpreterForm.MemoInputKeyPress(Sender: TObject; var Key: char);
-begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do
-    Input := Input + Key;
 end;