Changeset 42 for branches/simple/Forms/FormScreen.pas

Timestamp:

Sep 8, 2023, 11:20:27 PM (8 months ago)

Author:

chronos

Message:

• Modified: Improved simple virtual machine.

File:

• branches/simple/Forms/FormScreen.pas (modified) (5 diffs)

branches/simple/Forms/FormScreen.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Machine;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Screen,
+  Channel, Device;
 
 type
@@ -10 +11 @@
   { TFormScreen }
 
-  TFormScreen = class(TForm)
+  TFormScreen = class(TFormDevice)
     Image1: TImage;
     TimerDraw: TTimer;
@@ -17 +18 @@
     DrawPending: Boolean;
   public
-    Machine: TMachine;
+    Screen: TScreen;
     procedure ScreenChange(Sender: TObject);
   end;
@@ -36 +37 @@
   if DrawPending then begin
     DrawPending := False;
-    if Machine is TMachine16 then
-    with TMachine16(Machine).Screen do begin
+    if Screen.BitWidth = bw8 then
+    with Screen.Screen8 do begin
       Image1.Picture.Bitmap.SetSize(Width * CharSize, Height * CharSize);
       Image1.Picture.Bitmap.Canvas.FillRect(0, 0, Image1.Picture.Bitmap.Width,
@@ -46 +47 @@
             Chr(Memory.Read8(Y * Width + X)));
     end else
-    if Machine is TMachine8 then
-    with TMachine8(Machine).Screen do begin
+    if Screen.BitWidth = bw16 then
+    with Screen.Screen16 do begin
       Image1.Picture.Bitmap.SetSize(Width * CharSize, Height * CharSize);
       Image1.Picture.Bitmap.Canvas.FillRect(0, 0, Image1.Picture.Bitmap.Width,