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

Timestamp:

Nov 23, 2023, 10:42:57 PM (6 months ago)

Author:

chronos

Message:

• Added: Settings form.
• Added: Configurable theme and interface language.
• Modified: Improved user interface.
• Added: Allow to select what should be visible as main start up form.

File:

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

branches/ByteArray/Forms/FormMain.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ActnList,
-  FormConsole, FormScreen, Machine, Common.PersistentForm, FormSourceEditor,
-  FormMemory, Common.FormEx, FormDisassembler, FormStorage;
+  FormConsole, FormScreen, Common.PersistentForm, FormSourceEditor,
+  FormMemory, Common.FormEx, FormDisassembler, FormStorage, FormDebugger;
 
 type
@@ -14 +14 @@
   TFormMain = class(TFormEx)
     AConsole: TAction;
+    AAbout: TAction;
+    ASettings: TAction;
     AScreen: TAction;
     AStorage: TAction;
@@ -26 +28 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
+    Separator2: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -33 +39 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
-    PersistentForm1: TPersistentForm;
     Separator1: TMenuItem;
     MenuItem9: TMenuItem;
@@ -39 +44 @@
     MenuItemViewStorage: TMenuItem;
     MenuItemViewConsole: TMenuItem;
+    procedure AAboutExecute(Sender: TObject);
     procedure AConsoleExecute(Sender: TObject);
     procedure ADebuggerExecute(Sender: TObject);
     procedure ADisassemblerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure AFullscreenExecute(Sender: TObject);
     procedure AMemoryExecute(Sender: TObject);
@@ -58 +65 @@
     FormDisassembler: TFormDisassembler;
     FormStorage: TFormStorage;
-    Machine: TMachine;
-    procedure InitMachine;
-  public
+    FormDebugger: TFormDebugger;
   end;
 
@@ -72 +77 @@
 
 uses
-  Cpu, BigInt, Common;
+  Core, Common, FormSettings, Common.FormAbout;
 
 { TFormMain }
@@ -78 +83 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  DockForm(FormScreen, Self);
-  Machine.PowerOn;
+  if Core.Core.StartUpForm = 'Screen' then begin
+    AScreen.Execute;
+    DockForm(FormScreen, Self);
+  end;
+  if Core.Core.StartUpForm = 'Source editor' then begin
+    ASourceEditor.Execute;
+    DockForm(FormSourceEditor, Self);
+  end;
+  if Core.Core.StartUpForm = 'Debugger' then begin
+    ADebugger.Execute;
+    DockForm(FormDebugger, Self);
+  end;
+  if Core.Core.AutoStartMachine then
+    Core.Core.Machine.PowerOn;
 end;
 
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
-  Machine := TMachine.Create;
-  InitMachine;
-  FormScreen := TFormScreen.Create(nil);
-  FormConsole := TFormConsole.Create(nil);
-  Machine.Serial.OnWrite := FormConsole.ConsoleWrite;
-  FormScreen.FrameBuffer := Machine.FrameBuffer;
-  Machine.FrameBuffer.OnChange := FormScreen.ScreenChange;
 end;
 
@@ -101 +111 @@
   if Assigned(FormDisassembler) then FreeAndNil(FormDisassembler);
   if Assigned(FormStorage) then FreeAndNil(FormStorage);
-  FreeAndNil(Machine);
+  if Assigned(FormDebugger) then FreeAndNil(FormDebugger);
 end;
 
@@ -109 +119 @@
 end;
 
+procedure TFormMain.ASettingsExecute(Sender: TObject);
+var
+  FormSettings: TFormSettings;
+begin
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.ShowModal;
+  finally
+    FormSettings.Free;
+  end;
+end;
+
 procedure TFormMain.AFullscreenExecute(Sender: TObject);
 begin
-  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
+  Core.Core.PersistentForm1.SetFullScreen(not Core.Core.PersistentForm1.FormFullScreen);
 end;
 
@@ -118 +140 @@
   if not Assigned(FormMemory) then begin
     FormMemory := TFormMemory.Create(nil);
-    FormMemory.Memory := Machine.Memory;
+    FormMemory.Memory := Core.Core.Machine.Memory;
   end;
   FormMemory.Show;
@@ -125 +147 @@
 procedure TFormMain.AScreenExecute(Sender: TObject);
 begin
+  if not Assigned(FormScreen) then begin
+    FormScreen := TFormScreen.Create(nil);
+    FormScreen.FrameBuffer := Core.Core.Machine.FrameBuffer;
+    Core.Core.Machine.FrameBuffer.OnChange := FormScreen.ScreenChange;
+  end;
   FormScreen.Show;
 end;
@@ -130 +157 @@
 procedure TFormMain.ADebuggerExecute(Sender: TObject);
 begin
+  if not Assigned(FormDebugger) then begin
+    FormDebugger := TFormDebugger.Create(nil);
+  end;
+  FormDebugger.Show;
 end;
 
 procedure TFormMain.AConsoleExecute(Sender: TObject);
 begin
+  if not Assigned(FormConsole) then begin
+    FormConsole := TFormConsole.Create(nil);
+    Core.Core.Machine.Serial.OnWrite := FormConsole.ConsoleWrite;
+  end;
   FormConsole.Show;
+end;
+
+procedure TFormMain.AAboutExecute(Sender: TObject);
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := Core.Core.ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
 end;
 
@@ -141 +189 @@
   if not Assigned(FormDisassembler) then
     FormDisassembler := TFormDisassembler.Create(nil);
-  FormDisassembler.Disassembler.Memory := Machine.Memory;
+  FormDisassembler.Disassembler.Memory := Core.Core.Machine.Memory;
   FormDisassembler.Show;
 end;
@@ -149 +197 @@
   if not Assigned(FormSourceEditor) then begin
     FormSourceEditor := TFormSourceEditor.Create(nil);
-    FormSourceEditor.Machine := Machine;
+    FormSourceEditor.Machine := Core.Core.Machine;
   end;
   FormSourceEditor.Show;
@@ -158 +206 @@
   if not Assigned(FormStorage) then begin
     FormStorage := TFormStorage.Create(nil);
-    FormStorage.Storage := Machine.Storage;
+    FormStorage.Storage := Core.Core.Machine.Storage;
   end;
   FormStorage.Show;
 end;
 
-procedure TFormMain.InitMachine;
-var
-  Loop: TBigInt;
-begin
-  with Machine.Cpu do begin
-    Reset;
-
-    // LD A, 'A'
-    WriteInstruction(inLoadConst);
-    WriteRegister(riA);
-    Write(DataWidth, Ord('A'));
-
-    // LD B, 8
-    WriteInstruction(inLoadConst);
-    WriteRegister(riB);
-    Write(DataWidth, Machine.Serial.BaseAddress);
-
-    // OUT (B), A
-    WriteInstruction(inOutput);
-    WriteRegister(riB);
-    WriteRegister(riA);
-
-    // LD B,
-    WriteInstruction(inLoadConst);
-    WriteRegister(riB);
-    Write(DataWidth, Machine.FrameBuffer.BaseAddress);
-
-    WriteInstruction(inLoadConst);
-    WriteRegister(riC);
-    Write(DataWidth, 10);
-
-    Loop := PC;
-
-    WriteInstruction(inOutput);
-    WriteRegister(riB);
-    WriteRegister(riA);
-
-    WriteInstruction(inInc);
-    WriteRegister(riA);
-
-    WriteInstruction(inDec);
-    WriteRegister(riC);
-
-    WriteInstruction(inJumpNotZero);
-    WriteRegister(riC);
-    Write(AddressWidth, Loop);
-
-    WriteInstruction(inHalt);
-  end;
-end;
-
 end.