home *** CD-ROM | disk | FTP | other *** search
/ Draw 3 / Draw3.iso / fpc2.dxr / 00056.ls < prev    next >
Encoding:
Text File  |  2000-02-17  |  869 b   |  33 lines
  1. on mouseUp
  2.   global cod, nom, pulsado
  3.   set cod to "de"
  4.   set nom to the text of field "demos0"
  5.   set nom to char 3 to length(nom) of nom
  6.   put nom into field "laplicacion"
  7.   set the visible of sprite 12 to 1
  8.   set the visible of sprite 13 to 1
  9.   set the locV of sprite 7 to the locV of sprite the clickOn + 7
  10.   set pulsado to the locV of sprite the clickOn + 7
  11.   set the visible of sprite 7 to 1
  12.   seleccionar(cod, nom)
  13.   cursor(0)
  14. end
  15.  
  16. on mouseEnter
  17.   global color21, tama├▒o21
  18.   set col21 to integer(color21)
  19.   set tam21 to integer(tama├▒o11)
  20.   set the foreColor of field "demos0" to col21
  21.   set the textSize of member "demos0" to tam21
  22.   cursor(280)
  23. end
  24.  
  25. on mouseLeave
  26.   global color2, tama├▒o2
  27.   set col2 to integer(color2)
  28.   set tam2 to integer(tama├▒o2)
  29.   set the foreColor of field "demos0" to col2
  30.   set the textSize of member "demos0" to tam2
  31.   cursor(0)
  32. end
  33.