source: trunk/Packages/Kernel/Kernel.Device.pas

unit Kernel.Device;

interface

uses
  Classes, SysUtils, Generics.Collections, Kernel.List, Kernel.Graphics, syncobjs;

type
  { TDevice }

  TDevice = class(TNamedObject)
    ClassName: string;
    constructor Create; virtual;
  end;

  { TVideoMode }

  TVideoMode = class
    Size: TPoint;
    ColorFormat: TColorFormat;
    function GetBytesPerPixel: Integer;
    function GetBytesPerLine: Integer;
    function GetBytesPerImage: Integer;
    procedure Assign(Source: TVideoMode);
  end;

  TVideoModes = class(TObjectList<TVideoMode>)
  end;

  { TDeviceVideo }

  TDeviceVideo = class(TDevice)
  private
    FVideoMode: TVideoMode;
  protected
    procedure SetVideoMode(Mode: TVideoMode); virtual;
    function GetVideoMemory: PByte; virtual;
  public
    Lock: TCriticalSection;
    constructor Create; override;
    destructor Destroy; override;
    procedure GetSupportedModes(Modes: TVideoModes); virtual;
    procedure VideoMemoryChange; virtual;
    property VideoMode: TVideoMode read FVideoMode write SetVideoMode;
    property VideoMemory: PByte read GetVideoMemory;
  end;

  { TDeviceSerial }

  TDeviceSerial = class(TDevice)
    constructor Create; override;
    procedure WriteText(Text: string); virtual;
  end;


implementation

{ TVideoMode }

function TVideoMode.GetBytesPerPixel: Integer;
begin
  if ColorFormat = cfRGBA8 then Result := 4
  else if ColorFormat = cfGray8 then Result := 1
  else Result := 0;
end;

function TVideoMode.GetBytesPerLine: Integer;
begin
  Result := Size.X * GetBytesPerPixel;
end;

function TVideoMode.GetBytesPerImage: Integer;
begin
  Result := Size.Y * GetBytesPerLine;
end;

procedure TVideoMode.Assign(Source: TVideoMode);
begin
  Size := Source.Size;
  ColorFormat := ColorFormat;
end;

{ TDeviceSerial }

constructor TDeviceSerial.Create;
begin
  inherited;
  ClassName := 'Serial device';
end;

procedure TDeviceSerial.WriteText(Text: string);
begin
end;

{ TDevice }

constructor TDevice.Create;
begin
  inherited;
end;

{ TDeviceVideo }

constructor TDeviceVideo.Create;
begin
  inherited Create;
  ClassName := 'Video device';
  FVideoMode := TVideoMode.Create;
  Lock := TCriticalSection.Create;
end;

destructor TDeviceVideo.Destroy;
begin
  FreeAndNil(Lock);
  FreeAndNil(FVideoMode);
  inherited;
end;

procedure TDeviceVideo.SetVideoMode(Mode: TVideoMode);
begin
end;

procedure TDeviceVideo.GetSupportedModes(Modes: TVideoModes);
begin
  Modes.Clear;
end;

function TDeviceVideo.GetVideoMemory: PByte;
begin
  Result := nil;
end;

procedure TDeviceVideo.VideoMemoryChange;
begin
end;

end.