source: branches/bigint/Devices/Mouse.pas

unit Mouse;

interface

uses
  Classes, SysUtils, Device, Int;

type
  TGetPositionEvent = function : TPoint of object;

  { TMouse }

  TMouse = class(TDevice)
  private
    FOnGetPosition: TGetPositionEvent;
    function ReadX: TInt;
    function ReadY: TInt;
    function ReadButtonsState: TInt;
  public
    function GetHandlers: THandlers; override;
    property OnGetPosition: TGetPositionEvent read FOnGetPosition write FOnGetPosition;
  end;

implementation

{ TMouse }

function TMouse.ReadX: TInt;
var
  Pos: TPoint;
begin
  if Assigned(FOnGetPosition) then begin
    Pos := FOnGetPosition;
    Result := Pos.X;
  end else Result := 0;
end;

function TMouse.ReadY: TInt;
var
  Pos: TPoint;
begin
  if Assigned(FOnGetPosition) then begin
    Pos := FOnGetPosition;
    Result := Pos.Y;
  end else Result := 0;
end;

function TMouse.ReadButtonsState: TInt;
begin

end;

function TMouse.GetHandlers: THandlers;
begin
  Result := THandlers.Create;
  Result.ReadHandlers.Add(ReadX);
  Result.ReadHandlers.Add(ReadY);
  Result.ReadHandlers.Add(ReadButtonsState);
end;

end.