Changeset 50 for branches/ByteArray/Forms/FormMain.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (7 months ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

• branches/ByteArray/Forms/FormMain.pas (modified) (8 diffs)

branches/ByteArray/Forms/FormMain.pas

@@ -6 +6 @@
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ActnList,
   FormConsole, FormScreen, Machine, Common.PersistentForm, FormSourceEditor,
-  FormMemory, Common.FormEx;
+  FormMemory, Common.FormEx, FormDisassembler, FormStorage;
 
 type
@@ -13 +13 @@
 
   TFormMain = class(TFormEx)
+    AConsole: TAction;
+    AScreen: TAction;
+    AStorage: TAction;
+    ADisassembler: TAction;
     AFullscreen: TAction;
     AMemory: TAction;
@@ -28 +32 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     PersistentForm1: TPersistentForm;
     Separator1: TMenuItem;
@@ -34 +39 @@
     MenuItemViewStorage: TMenuItem;
     MenuItemViewConsole: TMenuItem;
+    procedure AConsoleExecute(Sender: TObject);
     procedure ADebuggerExecute(Sender: TObject);
+    procedure ADisassemblerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AFullscreenExecute(Sender: TObject);
     procedure AMemoryExecute(Sender: TObject);
+    procedure AScreenExecute(Sender: TObject);
     procedure ASourceEditorExecute(Sender: TObject);
+    procedure AStorageExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure MenuItemViewConsoleClick(Sender: TObject);
-    procedure MenuItemViewScreenClick(Sender: TObject);
   private
     FormScreen: TFormScreen;
@@ -49 +56 @@
     FormMemory: TFormMemory;
     FormSourceEditor: TFormSourceEditor;
+    FormDisassembler: TFormDisassembler;
+    FormStorage: TFormStorage;
     Machine: TMachine;
     procedure InitMachine;
@@ -70 +79 @@
 begin
   DockForm(FormScreen, Self);
-  Machine.Run;
+  Machine.PowerOn;
 end;
 
@@ -84 +93 @@
 end;
 
-procedure TFormMain.AExitExecute(Sender: TObject);
-begin
-  Close;
-end;
-
-procedure TFormMain.AFullscreenExecute(Sender: TObject);
-begin
-  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
-end;
-
-procedure TFormMain.AMemoryExecute(Sender: TObject);
-begin
-  if not Assigned(FormMemory) then begin
-    FormMemory := TFormMemory.Create(nil);
-    FormMemory.Memory := Machine.Memory;
-  end;
-  FormMemory.Show;
-end;
-
-procedure TFormMain.ADebuggerExecute(Sender: TObject);
-begin
-
-end;
-
-procedure TFormMain.ASourceEditorExecute(Sender: TObject);
-begin
-  if not Assigned(FormSourceEditor) then begin
-    FormSourceEditor := TFormSourceEditor.Create(nil);
-  end;
-  FormSourceEditor.Show;
-end;
-
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
@@ -122 +99 @@
   if Assigned(FormConsole) then FreeAndNil(FormConsole);
   if Assigned(FormMemory) then FreeAndNil(FormMemory);
+  if Assigned(FormDisassembler) then FreeAndNil(FormDisassembler);
+  if Assigned(FormStorage) then FreeAndNil(FormStorage);
   FreeAndNil(Machine);
 end;
 
-procedure TFormMain.MenuItemViewConsoleClick(Sender: TObject);
+procedure TFormMain.AExitExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFormMain.AFullscreenExecute(Sender: TObject);
+begin
+  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
+end;
+
+procedure TFormMain.AMemoryExecute(Sender: TObject);
+begin
+  if not Assigned(FormMemory) then begin
+    FormMemory := TFormMemory.Create(nil);
+    FormMemory.Memory := Machine.Memory;
+  end;
+  FormMemory.Show;
+end;
+
+procedure TFormMain.AScreenExecute(Sender: TObject);
+begin
+  FormScreen.Show;
+end;
+
+procedure TFormMain.ADebuggerExecute(Sender: TObject);
+begin
+end;
+
+procedure TFormMain.AConsoleExecute(Sender: TObject);
 begin
   FormConsole.Show;
 end;
 
-procedure TFormMain.MenuItemViewScreenClick(Sender: TObject);
-begin
-  FormScreen.Show;
+procedure TFormMain.ADisassemblerExecute(Sender: TObject);
+begin
+  if not Assigned(FormDisassembler) then
+    FormDisassembler := TFormDisassembler.Create(nil);
+  FormDisassembler.Disassembler.Memory := Machine.Memory;
+  FormDisassembler.Show;
+end;
+
+procedure TFormMain.ASourceEditorExecute(Sender: TObject);
+begin
+  if not Assigned(FormSourceEditor) then begin
+    FormSourceEditor := TFormSourceEditor.Create(nil);
+    FormSourceEditor.Machine := Machine;
+  end;
+  FormSourceEditor.Show;
+end;
+
+procedure TFormMain.AStorageExecute(Sender: TObject);
+begin
+  if not Assigned(FormStorage) then begin
+    FormStorage := TFormStorage.Create(nil);
+    FormStorage.Storage := Machine.Storage;
+  end;
+  FormStorage.Show;
 end;