source: branches/overos/Os.Mouse.pas

unit Os.Mouse;

interface

uses
  Classes, SysUtils, Os.Types;

type
  TMouseButton = (mbLeft, mbMiddle, mbRight);

  TButtonEvent = procedure (Pos: TPosition; Button: TMouseButton) of object;
  TMoveEvent = procedure (Pos: TPosition) of object;

  { TMouse }

  TMouse = class
  private
    FOnButtonDown: TButtonEvent;
    FOnButtonUp: TButtonEvent;
    FOnMove: TMoveEvent;
  public
    procedure ButtonDown(Pos: TPosition; Button: TMouseButton);
    procedure ButtonUp(Pos: TPosition; Button: TMouseButton);
    procedure Move(Pos: TPosition);
    property OnButtonDown: TButtonEvent read FOnButtonDown write FOnButtonDown;
    property OnButtonUp: TButtonEvent read FOnButtonUp write FOnButtonUp;
    property OnMove: TMoveEvent read FOnMove write FOnMove;
  end;


implementation

{ TMouse }

procedure TMouse.ButtonDown(Pos: TPosition; Button: TMouseButton);
begin
  if Assigned(FOnButtonDown) then
    FOnButtonDown(Pos, Button);
end;

procedure TMouse.ButtonUp(Pos: TPosition; Button: TMouseButton);
begin
  if Assigned(FOnButtonUp) then
    FOnButtonUp(Pos, Button);
end;

procedure TMouse.Move(Pos: TPosition);
begin
  if Assigned(FOnMove) then
    FOnMove(Pos);
end;

end.