source: branches/ByteArray/Devices/Device.pas

unit Device;

interface

uses
  Classes, SysUtils, Channel, Forms, Int, FormEx, Generics.Collections;

type
  TDeviceClass = (dcNone, dcKeyboard, dcMouse, dcStorage, dcScreen, dcConsole,
    dcTimer);

  TFormDevice = class;

  TReadEvent = function (DataSize: TIntSize): TInt of object;
  TWriteEvent = procedure (DataSize: TIntSize; Value: TInt) of object;
  TReadEvents = TList<TReadEvent>;
  TWriteEvents = TList<TWriteEvent>;

  { THandlers }

  THandlers = class
    ReadHandlers: TReadEvents;
    WriteHandlers: TWriteEvents;
    constructor Create;
    destructor Destroy; override;
  end;

  { TDevice }

  TDevice = class
    Name: string;
    DeviceClass: TDeviceClass;
    Form: TFormDevice;
    function GetHandlers: THandlers; virtual;
  end;

  { TFormDevice }

  TFormDevice = class(TFormEx)
  protected
    function GetDevice: TDevice; virtual;
    procedure SetDevice(AValue: TDevice); virtual;
  public
    property Device: TDevice read GetDevice write SetDevice;
  end;

resourcestring
  SNone = 'None';
  SKeyboard = 'Keyboard';
  SMouse = 'Mouse';
  SStorage = 'Storage';
  SScreen = 'Screen';
  SConsole = 'Console';
  STimer = 'Timer';

const
  DeviceClassText: array[TDeviceClass] of string = (SNone, SKeyboard, SMouse,
    SStorage, SScreen, SConsole, STimer);


implementation

{ TFormDevice }

function TFormDevice.GetDevice: TDevice;
begin
  Result := nil;
end;

procedure TFormDevice.SetDevice(AValue: TDevice);
begin
end;

{ THandlers }

constructor THandlers.Create;
begin
  ReadHandlers := TReadEvents.Create;
  WriteHandlers := TWriteEvents.Create;
end;

destructor THandlers.Destroy;
begin
  FreeAndNil(ReadHandlers);
  FreeAndNil(WriteHandlers);
  inherited;
end;

{ TDevice }

function TDevice.GetHandlers: THandlers;
begin
  Result := nil;
end;

end.