Changeset 38 for trunk/Forms/UFormMemory.pas

Timestamp:

Feb 19, 2012, 10:29:55 AM (13 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/UFormMemory.pas (modified) (2 diffs)

trunk/Forms/UFormMemory.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ComCtrls;
+
+const
+  RowSize = 16;
 
 type
-  TForm3 = class(TForm)
+
+  { TFormMemory }
+
+  TFormMemory = class(TForm)
+    Label6: TLabel;
+    ListViewMemory: TListView;
+    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
   private
     { private declarations }
   public
-    { public declarations }
+    procedure Reload;
   end;
 
 var
-  Form3: TForm3;
+  FormMemory: TFormMemory;
 
 implementation
@@ -23 +33 @@
 {$R *.lfm}
 
+uses
+  UFormMain, UTargetInterpretter;
+
+{ TFormMemory }
+
+procedure TFormMemory.Reload;
+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 TFormMemory.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;
+
+
 end.