TMouseDriver

type TMouseDriver = record

  UseDefaultQueue: Boolean;

Should the default event queue mechanism be used.

  InitDriver: procedure;

Called when the driver must be initialized

  DoneDriver: procedure;

Called when the driver will be unloaded.

  DetectMouse: function: Byte;

Function called when the mouse must be detected.

  ShowMouse: procedure;

Function called when the mouse cursor must be shown.

  HideMouse: procedure;

Function called when the mouse cursor must be hidden.

  GetMouseX: function: Word;

Called to get the mouse cursors horizontal position.

  GetMouseY: function: Word;

Called to get the mouse cursors vertical position.

  GetMouseButtons: function: Word;

Called to get the currently pressed mouse buttons.

  SetMouseXY: procedure(

Called when the current mouse position must be set.

  x: Word;

  y: Word

);

  GetMouseEvent: procedure(

Called to get the next mouse event. Waits if needed.

  var MouseEvent: TMouseEvent

);

  PollMouseEvent: function(

Called to get the next mouse event. Does not wait.

  var MouseEvent: TMouseEvent

):Boolean;

  PutMouseEvent: procedure(

Called to put a mouse event back in the queue.

  const MouseEvent: TMouseEvent

);

end;

SetMouseDriver

Set a new mouse driver.