Changeset 13 for trunk/Forms

Timestamp:

Apr 21, 2026, 2:55:51 PM (3 weeks ago)

Author:

chronos

Message:

• Added: Call stack window.
• Modified: Use reload pending boolean variable and reload from timer instead of Thread.Synchronize to not delay CPU execution.

Location:

trunk/Forms

Files:

• Base.pas (deleted)
• FormCallStack.lfm (added)
• FormCallStack.pas (added)
• FormCpu.lfm (modified) (2 diffs)
• FormDisassembler.lfm (modified) (1 diff)
• FormDisassembler.pas (modified) (12 diffs)
• FormMain.lfm (modified) (2 diffs)
• FormMain.pas (modified) (2 diffs)
• FormMemory.lfm (modified) (1 diff)
• FormMemory.pas (modified) (7 diffs)
• FormMessages.lfm (modified) (2 diffs)
• FormMessages.pas (modified) (3 diffs)

trunk/Forms/FormCpu.lfm

@@ -1 +1 @@
 object FormCpu: TFormCpu
   Left = 834
-  Height = 657
+  Height = 610
   Top = 501
-  Width = 274
+  Width = 302
   Caption = 'CPU'
-  ClientHeight = 657
-  ClientWidth = 274
+  ClientHeight = 610
+  ClientWidth = 302
   DesignTimePPI = 144
   LCLVersion = '4.6.0.0'
   object GroupBox1: TGroupBox
-    Left = 22
+    Left = 8
     Height = 546
     Top = 22
-    Width = 230
+    Width = 256
     Caption = 'Registers'
     ClientHeight = 519
-    ClientWidth = 228
+    ClientWidth = 254
     TabOrder = 0
     object ValueListEditor1: TValueListEditor
@@ -22 +22 @@
       Height = 499
       Top = 5
-      Width = 192
+      Width = 218
       Anchors = [akTop, akLeft, akRight, akBottom]
+      DefaultColWidth = 100
       RowCount = 2
       TabOrder = 0
       ColWidths = (
-        96
-        94
+        100
+        116
       )
     end

trunk/Forms/FormDisassembler.lfm

@@ -65 +65 @@
     end
   end
+  object Timer1: TTimer
+    Interval = 100
+    OnTimer = Timer1Timer
+    Left = 568
+    Top = 352
+  end
 end

trunk/Forms/FormDisassembler.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, Menus, Disassembler, Z80;
+  ExtCtrls, Menus, Disassembler, Base, Debugger;
 
 type
-  TAddressEvent = procedure (Address: Word) of object;
-
   { TFormDisassembler }
 
@@ -18 +16 @@
     MenuItemSetAddress: TMenuItem;
     PopupMenu1: TPopupMenu;
+    Timer1: TTimer;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -27 +26 @@
     procedure MenuItemSetAddressClick(Sender: TObject);
     procedure PopupMenu1Popup(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
+    FReloadPending: Boolean;
     FOnAddBreakPoint: TAddressEvent;
     FOnChangePC: TAddressEvent;
@@ -33 +34 @@
     procedure DoAddBreakPoint(Address: Word);
   public
-    Cpu: TCpuZ80;
+    Debugger: TDebugger;
     Disassembler: TDisassembler;
     procedure Disassemble(Sender: TObject);
     procedure SelectAddress(Address: Word);
     procedure ReloadList;
+    procedure Reload;
     function GetCurrentAddress: Word;
     property OnChangePC: TAddressEvent read FOnChangePC write FOnChangePC;
@@ -60 +62 @@
 procedure TFormDisassembler.FormCreate(Sender: TObject);
 begin
-  Disassembler := TDisassembler.Create;
 end;
 
 procedure TFormDisassembler.FormDestroy(Sender: TObject);
 begin
-  FreeAndNil(Disassembler);
 end;
 
 procedure TFormDisassembler.FormShow(Sender: TObject);
 begin
-  Disassemble(nil);
+  Reload;
 end;
 
@@ -79 +79 @@
   if Item.Index < Disassembler.DecodedInstructions.Count then
   with TDecodedInstruction(Disassembler.DecodedInstructions[Item.Index]) do begin
-    if Cpu.BreakPoints.Contains(Address) then BreakPoint := ' @'
+    if Debugger.BreakPoints.Contains(Address) then BreakPoint := ' @'
       else BreakPoint := '';
     Item.Caption := IntToHex(Address, 4) + BreakPoint;
@@ -93 +93 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Cpu.BreakPoints.Add(TDecodedInstruction(ListView1.Selected.Data).Address);
+    Debugger.BreakPoints.Add(TDecodedInstruction(ListView1.Selected.Data).Address);
     ReloadList;
   end;
@@ -101 +101 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Cpu.BreakPoints.Remove(TDecodedInstruction(ListView1.Selected.Data).Address);
+    Debugger.BreakPoints.Remove(TDecodedInstruction(ListView1.Selected.Data).Address);
     ReloadList;
   end;
@@ -116 +116 @@
 procedure TFormDisassembler.PopupMenu1Popup(Sender: TObject);
 begin
-
   MenuItemSetAddress.Enabled := Assigned(ListView1.Selected);
   if Assigned(ListView1.Selected) then begin
@@ -127 +126 @@
 end;
 
+procedure TFormDisassembler.Timer1Timer(Sender: TObject);
+begin
+  if FReloadPending then begin
+    FReloadPending := False;
+    Disassembler.Disassemble;
+    ReloadList;
+  end;
+end;
+
 procedure TFormDisassembler.Disassemble(Sender: TObject);
 begin
-  Disassembler.Disassemble;
-  ReloadList;
+  Reload;
 end;
 
@@ -146 +153 @@
 var
   Item: TListItem;
-  DecodedInstruction: TDecodedInstruction;
   Index: Integer;
 begin
   Index := Disassembler.DecodedInstructions.SearchAddressIndex(Address);
   if Index >= 0 then begin
-    DecodedInstruction := Disassembler.DecodedInstructions[Index];
     Item := ListView1.Items[Index];
     if Assigned(Item) then begin
@@ -172 +177 @@
 end;
 
+procedure TFormDisassembler.Reload;
+begin
+  FReloadPending := True;
+end;
+
 function TFormDisassembler.GetCurrentAddress: Word;
 begin

trunk/Forms/FormMain.lfm

@@ -65 +65 @@
       TabOrder = 0
     end
+    object PanelCallStack: TPanel
+      Left = 0
+      Height = 280
+      Top = 272
+      Width = 559
+      Align = alBottom
+      BevelOuter = bvNone
+      TabOrder = 1
+    end
   end
   object MainMenu1: TMainMenu
@@ -94 +103 @@
       object MenuItem15: TMenuItem
         Action = Core.AViewScreen
+      end
+      object MenuItem16: TMenuItem
+        Action = Core.AViewCallStack
+      end
+      object MenuItem17: TMenuItem
+        Action = Core.AViewMessages
       end
     end

trunk/Forms/FormMain.pas

@@ -13 +13 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItemTools: TMenuItem;
+    PanelCallStack: TPanel;
     Separator1: TMenuItem;
     MenuItemFile: TMenuItem;
@@ -74 +77 @@
   Core.Core.AViewScreen.Execute;
   Core.Core.AViewDissssembler.Execute;
+  Core.Core.AViewCallStack.Execute;
   DockForm(Core.Core.FormScreen, PanelCenter);
   DockForm(Core.Core.FormCpu, PanelRight);
   DockForm(Core.Core.FormDisassembler, PanelLeft);
   DockForm(Core.Core.FormMessages, PanelBottom);
+  DockForm(Core.Core.FormCallStack, PanelCallStack);
 end;
 

trunk/Forms/FormMemory.lfm

@@ -59 +59 @@
   end
   object Timer1: TTimer
-    Interval = 500
+    Interval = 100
     OnTimer = Timer1Timer
     Left = 469

trunk/Forms/FormMemory.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
-  StdCtrls, Memory, Generics.Collections;
+  StdCtrls, MemoryTypes, Generics.Collections;
 
 type
@@ -24 +24 @@
     procedure Timer1Timer(Sender: TObject);
   private
-    Memory: TMemory;
-    Size: Integer;
+    FReloadPending: Boolean;
+    FMemory: TMemory;
+    FSize: Integer;
   public
     Areas: TObjectList<TMemory>;
@@ -45 +46 @@
 procedure TFormMemory.Reload;
 begin
-  ListViewMemory.Items.Count := Size div ItemsPerLine;
+  ListViewMemory.Items.Count := FSize div ItemsPerLine;
   ListViewMemory.Refresh;
 end;
@@ -56 +57 @@
   One: Byte;
 begin
-  if Item.Index < Size div ItemsPerLine then begin
+  if Item.Index < FSize div ItemsPerLine then begin
     Line := '';
     Text := '';
     for I := 0 to ItemsPerLine - 1 do begin
-      One := Memory.Read(Item.Index * ItemsPerLine + I);
+      One := FMemory.Read(Item.Index * ItemsPerLine + I);
       Line := Line + IntToHex(One, 2) + ' ';
       if One >= 32 then Text := Text + Char(One)
@@ -75 +76 @@
   ReloadAreas;
   ComboBoxAreaSelect(nil);
+  FReloadPending := True;
 end;
 
@@ -85 +87 @@
 begin
   if ComboBoxArea.ItemIndex >= 0 then begin
-    Memory := TMemory(ComboBoxArea.Items.Objects[ComboBoxArea.ItemIndex]);
-    Size := Memory.Size;
+    FMemory := TMemory(ComboBoxArea.Items.Objects[ComboBoxArea.ItemIndex]);
+    FSize := FMemory.Size;
   end else begin
-    Memory := nil;
-    Size := 0;
+    FMemory := nil;
+    FSize := 0;
   end;
   Reload;
@@ -101 +103 @@
 procedure TFormMemory.Timer1Timer(Sender: TObject);
 begin
-  if Visible then Reload;
+  if FReloadPending then begin
+    FReloadPending := False;
+    Reload;
+  end;
 end;
 

trunk/Forms/FormMessages.lfm

@@ -9 +9 @@
   DesignTimePPI = 144
   LCLVersion = '4.6.0.0'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   object Memo1: TMemo
     Left = 8
@@ -20 +22 @@
     TabOrder = 0
   end
+  object Timer1: TTimer
+    Interval = 100
+    OnTimer = Timer1Timer
+    Left = 357
+    Top = 284
+  end
 end

trunk/Forms/FormMessages.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
+  Generics.Collections;
 
 type
+  TMessage = class
+    Text: string;
+  end;
+
+  { TMessages }
+
+  TMessages = class(TObjectList<TMessage>)
+    function AddNew(Text: string): TMessage;
+  end;
 
   { TFormMessages }
@@ -12 +22 @@
   TFormMessages = class(TForm)
     Memo1: TMemo;
+    Timer1: TTimer;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
-
+    FMessages: TMessages;
+    FReloadPending: Boolean;
   public
     procedure AddMessage(Text: string);
@@ -23 +38 @@
 {$R *.lfm}
 
+{ TMessages }
+
+function TMessages.AddNew(Text: string): TMessage;
+begin
+  Result := TMessage.Create;
+  Result.Text := Text;
+  Add(Result);
+end;
+
 { TFormMessages }
+
+procedure TFormMessages.Timer1Timer(Sender: TObject);
+var
+  I: Integer;
+begin
+  if FReloadPending then begin
+    FReloadPending := False;
+    Memo1.Lines.BeginUpdate;
+    Memo1.Lines.Clear;
+    for I := 0 to FMessages.Count - 1 do
+      Memo1.Lines.Add(FMessages[I].Text);
+    Memo1.Lines.EndUpdate;
+  end;
+end;
+
+procedure TFormMessages.FormCreate(Sender: TObject);
+begin
+  FMessages := TMessages.Create;
+end;
+
+procedure TFormMessages.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(FMessages);
+end;
 
 procedure TFormMessages.AddMessage(Text: string);
 begin
-  Memo1.Lines.Add(Text);
+  FMessages.AddNew(Text);
+  FReloadPending := True;
 end;