Changeset 58 for branches/ByteArray/Core.pas

Timestamp:

Nov 23, 2023, 11:18:42 PM (13 months ago)

Author:

chronos

Message:

• Modified: Source editor with main menu can't be docked into another form with main menu. Source enditor and Screen have own main menu.

File:

• branches/ByteArray/Core.pas (modified) (6 diffs)

branches/ByteArray/Core.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Machine, Common.PersistentForm, Common.ApplicationInfo,
-  Common.RegistryEx, Common.Translator, Common.Theme;
+  Classes, SysUtils, Machine, ActnList, Forms, Common.PersistentForm,
+  Common.ApplicationInfo, Common.RegistryEx, Common.Translator, Common.Theme,
+  FormConsole, FormScreen, FormSourceEditor, FormMemory, FormDisassembler,
+  FormStorage, FormDebugger;
 
 type
@@ -12 +14 @@
 
   TCore = class(TDataModule)
+    AAbout: TAction;
+    AConsole: TAction;
+    ActionList1: TActionList;
+    ADebugger: TAction;
+    ADevices: TAction;
+    ADisassembler: TAction;
+    AExit: TAction;
+    AFullscreen: TAction;
+    AMemory: TAction;
     ApplicationInfo1: TApplicationInfo;
+    AScreen: TAction;
+    ASettings: TAction;
+    ASourceEditor: TAction;
+    AStorage: TAction;
     PersistentForm1: TPersistentForm;
     ThemeManager1: TThemeManager;
     Translator1: TTranslator;
+    procedure AAboutExecute(Sender: TObject);
+    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 ASettingsExecute(Sender: TObject);
+    procedure ASourceEditorExecute(Sender: TObject);
+    procedure AStorageExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -23 +49 @@
     procedure SaveConfig;
   public
+    MainForm: TForm;
+    FormScreen: TFormScreen;
+    FormConsole: TFormConsole;
+    FormMemory: TFormMemory;
+    FormSourceEditor: TFormSourceEditor;
+    FormDisassembler: TFormDisassembler;
+    FormStorage: TFormStorage;
+    FormDebugger: TFormDebugger;
     StartUpForm: string;
     AutoStartMachine: Boolean;
@@ -37 +71 @@
 
 uses
-  BigInt, Cpu, Common.FormEx;
+  BigInt, Cpu, Common.FormEx, FormSettings, Common.FormAbout;
 
 { TCore }
@@ -50 +84 @@
   TFormEx.ThemeManager := ThemeManager1;
   TFormEx.PersistentForm := PersistentForm1;
+
+  if StartUpForm = 'Screen' then begin
+    AScreen.Execute;
+  end;
+  if StartUpForm = 'Source editor' then begin
+    ASourceEditor.Execute;
+  end;
+  if StartUpForm = 'Debugger' then begin
+    ADebugger.Execute;
+  end;
+  if AutoStartMachine then
+    Machine.PowerOn;
+end;
+
+procedure TCore.AExitExecute(Sender: TObject);
+begin
+  Application.Terminate;
+end;
+
+procedure TCore.ADebuggerExecute(Sender: TObject);
+begin
+  if not Assigned(FormDebugger) then begin
+    FormDebugger := TFormDebugger.Create(nil);
+  end;
+  FormDebugger.Show;
+end;
+
+procedure TCore.ADisassemblerExecute(Sender: TObject);
+begin
+  if not Assigned(FormDisassembler) then begin
+    FormDisassembler := TFormDisassembler.Create(nil);
+    if not Assigned(MainForm) then MainForm := FormDisassembler;
+  end;
+  FormDisassembler.Disassembler.Memory := Machine.Memory;
+  FormDisassembler.Show;
+end;
+
+procedure TCore.AConsoleExecute(Sender: TObject);
+begin
+  if not Assigned(FormConsole) then begin
+    FormConsole := TFormConsole.Create(nil);
+    Machine.Serial.OnWrite := FormConsole.ConsoleWrite;
+  end;
+  FormConsole.Show;
+end;
+
+procedure TCore.AAboutExecute(Sender: TObject);
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
+end;
+
+procedure TCore.AFullscreenExecute(Sender: TObject);
+begin
+  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
+end;
+
+procedure TCore.AMemoryExecute(Sender: TObject);
+begin
+  if not Assigned(FormMemory) then begin
+    FormMemory := TFormMemory.Create(nil);
+    FormMemory.Memory := Machine.Memory;
+  end;
+  FormMemory.Show;
+end;
+
+procedure TCore.AScreenExecute(Sender: TObject);
+begin
+  if not Assigned(FormScreen) then begin
+    FormScreen := TFormScreen.Create(nil);
+    if not Assigned(MainForm) then MainForm := FormScreen;
+    FormScreen.FrameBuffer := Machine.FrameBuffer;
+    Machine.FrameBuffer.OnChange := FormScreen.ScreenChange;
+  end;
+  FormScreen.Show;
+end;
+
+procedure TCore.ASettingsExecute(Sender: TObject);
+var
+  FormSettings: TFormSettings;
+begin
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.ShowModal;
+  finally
+    FormSettings.Free;
+  end;
+end;
+
+procedure TCore.ASourceEditorExecute(Sender: TObject);
+begin
+  if not Assigned(FormSourceEditor) then begin
+    FormSourceEditor := TFormSourceEditor.Create(nil);
+    if not Assigned(MainForm) then MainForm := FormSourceEditor;
+    FormSourceEditor.Machine := Machine;
+  end;
+  FormSourceEditor.Show;
+end;
+
+procedure TCore.AStorageExecute(Sender: TObject);
+begin
+  if not Assigned(FormStorage) then begin
+    FormStorage := TFormStorage.Create(nil);
+    FormStorage.Storage := Machine.Storage;
+  end;
+  FormStorage.Show;
 end;
 
@@ -55 +202 @@
 begin
   SaveConfig;
+  if Assigned(FormSourceEditor) then FreeAndNil(FormSourceEditor);
+  if Assigned(FormScreen) then FreeAndNil(FormScreen);
+  if Assigned(FormConsole) then FreeAndNil(FormConsole);
+  if Assigned(FormMemory) then FreeAndNil(FormMemory);
+  if Assigned(FormDisassembler) then FreeAndNil(FormDisassembler);
+  if Assigned(FormStorage) then FreeAndNil(FormStorage);
+  if Assigned(FormDebugger) then FreeAndNil(FormDebugger);
+
   FreeAndNil(Machine);
 end;