Changeset 220 for branches/CpuSingleSize/Forms

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.

Location:

branches/CpuSingleSize/Forms

Files:

• UFormConsole.pas (modified) (3 diffs)
• UFormDevices.lfm (added)
• UFormDevices.pas (added)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (1 diff)
• UFormScreen.pas (modified) (4 diffs)
• UFormStorage.lfm (added)
• UFormStorage.pas (added)

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

branches/CpuSingleSize/Forms/UFormMain.lfm

@@ -105 +105 @@
     object MenuItem12: TMenuItem
       Caption = 'View'
-      object MenuItem13: TMenuItem
-        Action = Core.AConsole
-      end
       object MenuItem14: TMenuItem
         Action = Core.ACpu
       end
       object MenuItem15: TMenuItem
-        Action = Core.AScreen
+        Action = Core.ADevices
       end
       object MenuItem16: TMenuItem

branches/CpuSingleSize/Forms/UFormMain.pas

@@ -22 +22 @@
     MenuItem11: TMenuItem;
     MenuItem12: TMenuItem;
-    MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
     MenuItem15: TMenuItem;

branches/CpuSingleSize/Forms/UFormScreen.pas

@@ -12 +12 @@
   { TFormScreen }
 
-  TFormScreen = class(TForm)
+  TFormScreen = class(TFormDevice)
     PaintBox1: TPaintBox;
     Timer1: TTimer;
@@ -21 +21 @@
   private
     TempBitmap: TBitmap;
+  protected
+    function GetDevice: TDevice; override;
+    procedure SetDevice(AValue: TDevice); override;
   public
     Screen: TScreen;
@@ -46 +49 @@
       P := TempBitmap.ScanLine[Y];
       for X := 0 to Screen.Size.X - 1 do begin
-        P^ := Screen.Data[Y * Screen.Size.Y + X] * $010101;
+        P^ := Screen.VideoMem[Y * Screen.Size.Y + X] * $010101;
         Inc(P);
       end;
@@ -53 +56 @@
     PaintBox1.Refresh;
   end;
+end;
+
+function TFormScreen.GetDevice: TDevice;
+begin
+  Result := Screen;
+end;
+
+procedure TFormScreen.SetDevice(AValue: TDevice);
+begin
+  if AValue is TScreen then
+    Screen := TScreen(AValue);
 end;