Changeset 220 for branches/CpuSingleSize/Forms/UFormScreen.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/UFormScreen.pas (modified) (4 diffs)

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;