Changeset 5 for trunk/Forms/FormDisassembler.pas

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/FormDisassembler.pas (modified) (1 diff)

trunk/Forms/FormDisassembler.pas

@@ -71 +71 @@
   Item: TListItem;
   DecodedInstruction: TDecodedInstruction;
+  Index: Integer;
 begin
-  DecodedInstruction := Disassembler.DecodedInstructions.SearchAddress(Address);
-  if Assigned(DecodedInstruction) then begin
-    Item := ListView1.Items[Disassembler.DecodedInstructions.IndexOf(DecodedInstruction)];
+  Index := Disassembler.DecodedInstructions.SearchAddressIndex(Address);
+  if Index >= 0 then begin
+    DecodedInstruction := Disassembler.DecodedInstructions[Index];
+    Item := ListView1.Items[Index];
     if Assigned(Item) then begin
       Item.MakeVisible(False);
-      Item.Focused := True;
-      Item.Selected := True;
+      //Item.Focused := False;
+      //Item.Selected := False;
+      //Item.Focused := True;
+      //Item.Selected := True;
+      ListView1.ItemIndex := Index;
+      ListView1.Selected := ListView1.Items[Index];
+      ListView1.Items[Index].Focused := True;
     end;
   end;