home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / MUISRYKL.PRG < prev    next >
Encoding:
Text File  |  1993-05-18  |  1.6 KB  |  54 lines
  1. PROCEDURE Muisrykl
  2. *--------------------------------------------------------------------
  3. * OMSCHRIJVING
  4. *   MRowCol toont hoe de MROW() en MCOL() functies te gebruiken zijn
  5. *   om de plaats van de muiscursor te bepalen. MRowCol toony de 
  6. *   coordinaten van elke muisklik. Gebruik de Stopknop om te stoppen
  7. *   of druk op 'S'.
  8. *--------------------------------------------------------------------
  9.  
  10.   SET TALK OFF
  11.   SET ESCAPE OFF
  12.   SET TRAP OFF
  13.  
  14.   IF ISMOUSE()
  15.     *-- Instellen van het venster
  16.     SET COLOR TO w+/b
  17.     CLEAR
  18.     @ 3, 26 TO 8, 54 DOUBLE
  19.     @ 4, 29 SAY "Laatste muisklik op:"
  20.     @ 5, 30 SAY "MRow(): "
  21.     @ 6, 30 SAY "MCol(): "
  22.     @ 10, 36 SAY "  Stop  " COLOR w+/g
  23.     lQuit = .F.
  24.     DO WHILE .NOT. lQuit
  25.       SET CONSOLE OFF
  26.       SET CURSOR OFF
  27.       WAIT                              && Wacht op een muisklik
  28.       SET CURSOR ON
  29.       SET CONSOLE ON
  30.       nMRow = MRow()                    && Neem de muisrij en -kolom
  31.       nMCol = MCol()                    && over bij de eerste gelegenheid
  32.       nLKey = LASTKEY()
  33.       IF nLKey = 83 .OR. nLKey = 115    && Bij 'S' of 's'
  34.         lQuit = .T.
  35.       ELSE
  36.         *-- Controleer of de Stopknop is aangeklikt
  37.         IF nMRow = 10 .AND. nMCol >= 36 .AND. nMCol <= 43
  38.           lQuit = .T.                   && Ja? dan stoppen
  39.         ENDIF
  40.       ENDIF
  41.       *-- Toon de rij en kolom van de muisklik
  42.       @ 5, 38 SAY STR( nMRow, 2 )
  43.       @ 6, 38 SAY STR( nMCol, 2 )
  44.     ENDDO
  45.   ENDIF
  46.   SET TALK ON
  47.   SET ESCAPE ON
  48.   SET TRAP ON
  49.   CLEAR
  50.  
  51. RETURN
  52. *-- EOP: Muisrykl
  53.  
  54.