Changeset 5 for trunk/Forms/FormMain.lfm

Timestamp:

Apr 18, 2026, 7:24:02 PM (9 days ago)

Author:

chronos

Message:

• Added: Some I/O ports handling.
• Added: Messages form for capturing error messages.
• Added: Go to address action.
• Added: Allow to view all used memory areas in Memory window.
• Added: Allow to reset CPU execution.
• Modified: Improved memory mapping for MZ-700 and MZ-800 modes.
• Fixed: Focusing currently executed instruction position.
• Fixed: Wrong order or 8-bit registers in 16-bit pair.

File:

• trunk/Forms/FormMain.lfm (modified) (8 diffs)

trunk/Forms/FormMain.lfm

@@ -5 +5 @@
   Width = 1061
   Caption = 'SHARP MZ-800 emulator'
-  ClientHeight = 682
+  ClientHeight = 716
   ClientWidth = 1061
   DesignTimePPI = 144
   Menu = MainMenu1
+  LCLVersion = '4.6.0.0'
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.6.0'
   object PanelLeft: TPanel
     Left = 0
-    Height = 682
+    Height = 716
     Top = 0
     Width = 231
@@ -25 +25 @@
   object PanelRight: TPanel
     Left = 806
-    Height = 682
+    Height = 716
     Top = 0
     Width = 255
@@ -34 +34 @@
   object Splitter1: TSplitter
     Left = 231
-    Height = 682
+    Height = 716
     Top = 0
     Width = 8
@@ -40 +40 @@
   object Splitter2: TSplitter
     Left = 798
-    Height = 682
+    Height = 716
     Top = 0
     Width = 8
@@ -48 +48 @@
   object PanelCenter: TPanel
     Left = 239
-    Height = 682
+    Height = 716
     Top = 0
     Width = 559
     Align = alClient
     BevelOuter = bvNone
+    ClientHeight = 716
+    ClientWidth = 559
     TabOrder = 4
+    object PanelBottom: TPanel
+      Left = 0
+      Height = 164
+      Top = 552
+      Width = 559
+      Align = alBottom
+      BevelOuter = bvNone
+      TabOrder = 0
+    end
   end
   object MainMenu1: TMainMenu
     Left = 216
     Top = 64
-    object MenuItem1: TMenuItem
+    object MenuItemFile: TMenuItem
       Caption = 'File'
       object MenuItem4: TMenuItem
@@ -64 +75 @@
       end
     end
-    object MenuItem5: TMenuItem
+    object MenuItemEdit: TMenuItem
+      Caption = 'Edit'
+      object MenuItem1: TMenuItem
+        Action = Core.AGoToAddress
+      end
+    end
+    object MenuItemView: TMenuItem
       Caption = 'View'
       object MenuItem6: TMenuItem
@@ -79 +96 @@
       end
     end
-    object MenuItem2: TMenuItem
+    object MenuItemDebug: TMenuItem
       Caption = 'Debug'
       object MenuItem3: TMenuItem
@@ -86 +103 @@
       object MenuItem8: TMenuItem
         Action = Core.APause
+      end
+      object MenuItem2: TMenuItem
+        Action = Core.AReset
+      end
+      object Separator1: TMenuItem
+        Caption = '-'
       end
       object MenuItem13: TMenuItem