Changeset 220 for branches/CpuSingleSize/Forms/UFormConsole.pas

Timestamp:

Oct 20, 2020, 1:10:09 AM (4 years ago)

Author:

chronos

Message:

• Added: Devices form with tree view of connected devices. Device control form can be opened by double click.
• Modifid: IN/OUT instructions now use also device group index to directly specify which device should be read/written.

File:

• branches/CpuSingleSize/Forms/UFormConsole.pas (modified) (3 diffs)

branches/CpuSingleSize/Forms/UFormConsole.pas

@@ -13 +13 @@
   { TFormConsole }
 
-  TFormConsole = class(TForm)
+  TFormConsole = class(TFormDevice)
     MemoConsole: TMemo;
     Timer1: TTimer;
@@ -20 +20 @@
     procedure MemoConsoleKeyPress(Sender: TObject; var Key: char);
     procedure Timer1Timer(Sender: TObject);
-  private
-
+  protected
+    function GetDevice: TDevice; override;
+    procedure SetDevice(AValue: TDevice); override;
   public
     Console: TConsole;
@@ -55 +56 @@
 end;
 
+function TFormConsole.GetDevice: TDevice;
+begin
+  Result := Console;
+end;
+
+procedure TFormConsole.SetDevice(AValue: TDevice);
+begin
+  if AValue is TConsole then
+    Console := TConsole(AValue);
+end;
+
 procedure TFormConsole.MemoConsoleKeyPress(Sender: TObject; var Key: char);
 begin