home *** CD-ROM | disk | FTP | other *** search
/ Draw 3 / Draw3.iso / fpc2.dxr / 00044.ls < prev    next >
Encoding:
Text File  |  2000-02-17  |  2.0 KB  |  60 lines
  1. on mouseUp
  2.   global cod, nom, color, color1, tama├▒o1, pulsado2, pulsado3
  3.   set the visible of sprite 7 to 1
  4.   set the locV of sprite 7 to the locV of sprite the clickOn + 7
  5.   set the locH of sprite 7 to the locH of sprite the clickOn - 7
  6.   set pulsado2 to the locV of sprite the clickOn + 7
  7.   set pulsado3 to the locH of sprite the clickOn - 7
  8.   set col1 to integer(color1)
  9.   set tam1 to integer(tama├▒o1)
  10.   set color to "principal1"
  11.   if color = "principal1" then
  12.     set the foreColor of field "sel" to col1
  13.     set the textSize of member "sel" to tam1
  14.     set the foreColor of field "principal0" to col1
  15.     set the textSize of member "principal0" to tam1
  16.     set the foreColor of field "demoss" to col1
  17.     set the textSize of member "demoss" to tam1
  18.     set the foreColor of field "gua" to col1
  19.     set the textSize of member "gua" to tam1
  20.   end if
  21.   set cod to "ap"
  22.   set nom to the text of field "principal1"
  23.   set nom to char 3 to length(nom) of nom
  24.   put nom into field "laplicacion"
  25.   put "Aplicaci├│n Principal" into field "eltema"
  26.   set the visible of sprite 12 to 1
  27.   set the visible of sprite 13 to 1
  28.   seleccionar(cod, nom)
  29.   cursor(0)
  30. end
  31.  
  32. on mouseEnter
  33.   global color11, tama├▒o11
  34.   set col11 to integer(color11)
  35.   set tam11 to integer(tama├▒o11)
  36.   set the foreColor of field "principal1" to col11
  37.   set the textSize of member "principal1" to tam11
  38.   cursor(280)
  39. end
  40.  
  41. on mouseLeave
  42.   global color, color1, tama├▒o1
  43.   set col1 to integer(color1)
  44.   set tam1 to integer(tama├▒o1)
  45.   if color = "principal1" then
  46.     set the foreColor of field "sel" to col1
  47.     set the textSize of member "sel" to tam1
  48.     set the foreColor of field "principal0" to col1
  49.     set the textSize of member "principal0" to tam1
  50.     set the foreColor of field "demoss" to col1
  51.     set the textSize of member "demoss" to tam1
  52.     set the foreColor of field "gua" to col1
  53.     set the textSize of member "gua" to tam1
  54.   else
  55.     set the foreColor of field "principal1" to col1
  56.     set the textSize of member "principal1" to tam1
  57.   end if
  58.   cursor(0)
  59. end
  60.