Click above to get retro games delivered to your door ever month!

 mousecrel()         Return column where mouse button was last released
------------------------------------------------------------------------------
 Declaration
   mouse.hdr

 Syntax
   func uint mousecrel extern
   param value uint uButton

 Arguments
   uButton is a mouse button number.

 Return
   Column position of the mouse cursor.

 Description
   The mousecrel() function returns the column of the mouse cursor
   position where the specified mouse button was last released.

 Example
   #define EXAMPLE_MOUSE
   #include example.hdr

   proc Test_mousecrel
   vardef
      uint nRow, nCol
   enddef
   if mouseavail()
      clear
      cursor( .f. )
      @ 17, 60 to 19, 65
      @ 18, 61 ?? "Exit"
      mouseon()
      do while .t.
         nRow := mouserrel( MB_LEFT )
         nCol := mousecrel( MB_LEFT )
         if nRow > 17 .and. nRow < 19 .and. ;
            nCol > 60 .and. nCol < 65
            exit
         endif
      enddo
      mouseoff()
   else
      ? "Mouse is not available"
   endif
   endproc

   proc main
   Test_mousecrel()
   endproc