TMouseDriver

type TMouseDriver = record

  UseDefaultQueue: Boolean;

  InitDriver: procedure;

  DoneDriver: procedure;

  DetectMouse: function: Byte;

  ShowMouse: procedure;

  HideMouse: procedure;

  GetMouseX: function: Word;

  GetMouseY: function: Word;

  GetMouseButtons: function: Word;

  SetMouseXY: procedure(

  x: Word;

  y: Word

);

  GetMouseEvent: procedure(

  var MouseEvent: TMouseEvent

);

  PollMouseEvent: function(

  var MouseEvent: TMouseEvent

):Boolean;

  PutMouseEvent: procedure(

  const MouseEvent: TMouseEvent

);

end;