Get_Mouse_Action


Purpose   Determines mouse activity, i.e. movement and button presses.

Decln.    Get_Mouse_Action(var But:button;var Hor,Ver:integer);

Remarks   But is updated with one of the following constants: NoB, LeftB,
          RightB, BothB.
          Hor, Ver are updated with the mouse movement in columns and rows
          (not pixels). The movement is returned relative to the last time
          the procedure was called.

Example

VAR
  B : BUTTON;
  X,Y : BYTE;
BEGIN
    REPEAT
         GET_MOUSE_ACTION(B,X,Y);
    UNTIL B = LEFTB;
END;

The program continues looping until the left button is pressed.