source: branches/overos/Os.System.pas

unit Os.System;

interface

uses
  Classes, SysUtils, Os.Window, Os.Mouse;

type

  { TSystem }

  TSystem = class
    Screen: TScreen;
    Mouse: TMouse;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TSystem }

constructor TSystem.Create;
begin
  Screen := TScreen.Create;
  Mouse := TMouse.Create;
  Screen.Mouse := Mouse;
end;

destructor TSystem.Destroy;
begin
  FreeAndNil(Screen);
  FreeAndNil(Mouse);
  inherited;
end;

end.