Changeset 10 for branches/ByteArray/Core.pas

Timestamp:

Aug 7, 2024, 12:12:42 AM (2 months ago)

Author:

chronos

Message:

• Modified: Improved serial console handling.

File:

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

branches/ByteArray/Core.pas

@@ -16 +16 @@
     AAbout: TAction;
     AConsole: TAction;
+    ARestart: TAction;
+    APowerOff: TAction;
+    APowerOn: TAction;
     ActionList1: TActionList;
     ADebugger: TAction;
@@ -38 +41 @@
     procedure AFullscreenExecute(Sender: TObject);
     procedure AMemoryExecute(Sender: TObject);
+    procedure APowerOffExecute(Sender: TObject);
+    procedure APowerOnExecute(Sender: TObject);
+    procedure ARestartExecute(Sender: TObject);
     procedure AScreenExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -128 +134 @@
   if not Assigned(FormConsole) then begin
     FormConsole := TFormConsole.Create(nil);
-    Machine.Serial.OnWrite := FormConsole.ConsoleWrite;
+    FormConsole.Serial := Machine.Serial;
   end;
   FormConsole.Show;
@@ -158 +164 @@
   end;
   FormMemory.Show;
+end;
+
+procedure TCore.APowerOffExecute(Sender: TObject);
+begin
+  Machine.PowerOff;
+end;
+
+procedure TCore.APowerOnExecute(Sender: TObject);
+begin
+  Machine.PowerOn;
+end;
+
+procedure TCore.ARestartExecute(Sender: TObject);
+begin
+  Machine.PowerOff;
+  Machine.PowerOn;
 end;