Changeset 41 for branches/simple/Machine.pas

Timestamp:

Aug 12, 2023, 5:46:27 PM (9 months ago)

Author:

chronos

Message:

• Modified: Screen and console made as separate forms.

Location:

branches/simple

Files:

• . (modified) (1 prop)
• Machine.pas (modified) (3 diffs)

branches/simple/Machine.pas

@@ -8 +8 @@
 type
 
+  { TMachine }
+
+  TMachine = class
+  protected
+    FPoweredOn: Boolean;
+    procedure SetPoweredOn(AValue: Boolean); virtual;
+  published
+    property PoweredOn: Boolean read FPoweredOn write SetPoweredOn;
+  end;
+
   { TMachine8 }
 
-  TMachine8 = class
+  TMachine8 = class(TMachine)
   private
     FPoweredOn: Boolean;
-    procedure SetPoweredOn(AValue: Boolean);
+    procedure SetPoweredOn(AValue: Boolean); override;
   public
     DeviceMapper: TDeviceMapper8;
@@ -22 +32 @@
     constructor Create;
     destructor Destroy; override;
-    property PoweredOn: Boolean read FPoweredOn write SetPoweredOn;
   end;
 
   { TMachine16 }
 
-  TMachine16 = class
+  TMachine16 = class(TMachine)
   private
     FPoweredOn: Boolean;
-    procedure SetPoweredOn(AValue: Boolean);
+    procedure SetPoweredOn(AValue: Boolean); override;
   public
     DeviceMapper: TDeviceMapper16;
@@ -39 +48 @@
     constructor Create;
     destructor Destroy; override;
-    property PoweredOn: Boolean read FPoweredOn write SetPoweredOn;
   end;
 
 
 implementation
+
+{ TMachine }
+
+procedure TMachine.SetPoweredOn(AValue: Boolean);
+begin
+  if FPoweredOn=AValue then Exit;
+  FPoweredOn:=AValue;
+end;
 
 { TMachine16 }