Viva Clipper !

SP_RAT_EQMCOL

Advertisements
RAT_EQMCOL()

  Short:
  ------
  RAT_EQMCOL() Returns mouse column at last press

  Returns:
  --------
  <nRow> => mouse column at last button press (left or
  right)

  Syntax:
  -------
  RAT_EQMCOL()

  Description:
  ------------
  Returns mouse column at last press (LEFT OR RIGHT).
  S_MOOSE.PRG has two static variables, 'mouserow' and 'mousecol'.
  These are set each time RAT_EVENT() determines that the mouse
  has been depressed.

  Examples:
  ---------
   e := 0

   while e#27
      e := rat_event(30)
      do case
      case e == 0
        ? "Timed out after 30 seconds"
      case e < 400
        ? "Key press with inkey() value of :",e
      case e == 400
        ? "Left mouse button pressed at :"
        ?? "row-> ",rat_eqmrow()
        ?? "col-> ",rat_eqmcol()
      case e == 500
        ? "Right mouse button pressed at :"
        ?? "row-> ",rat_eqmrow()
        ?? "col-> ",rat_eqmcol()
      endcase
   end

  Source:
  -------
  S_MOOSE.PRG

See Also : RAT_ELBHD(),RAT_EQMROW(), RAT_ERBHD(), RAT_EVENT(), 
           RAT_ISMOUSE(), RAT_LASTEV(), RAT_MENU2(), RAT_READ()
 

Advertisements

Advertisements