home *** CD-ROM | disk | FTP | other *** search
/ Draw 3 / Draw3.iso / guiaprov.dxr / 00071.ls < prev    next >
Encoding:
Text File  |  1999-06-16  |  893 b   |  29 lines
  1. on mouseUp
  2.   global recordquery, nombre, alias
  3.   set alias to nombre & "a"
  4.   set the picture of member 120 to the picture of member alias
  5.   set provi to the name of member the member of sprite the clickOn
  6.   set longi to length(provi) - 1
  7.   set posicion to integer(char longi of provi)
  8.   set baselina to integer(the text of field "parcial")
  9.   set movimiento to baselina - 1 + posicion
  10.   DGRSMoveFirst(recordquery)
  11.   DGRSMove(movimiento, recordquery)
  12.   cursor(0)
  13.   set provi to the name of member the member of sprite the currentSpriteNum
  14.   set the foreColor of field provi to 4
  15.   go("mostrar")
  16. end
  17.  
  18. on mouseEnter
  19.   set provi to the name of member the member of sprite the currentSpriteNum
  20.   set the foreColor of field provi to 4
  21.   cursor(280)
  22. end
  23.  
  24. on mouseLeave
  25.   set provi to the name of member the member of sprite the currentSpriteNum
  26.   set the foreColor of field provi to 0
  27.   cursor(0)
  28. end
  29.