home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / ioProg.exe / ioProg.DXR / Internal_169_ScriptFieldTips.ls < prev    next >
Encoding:
Text File  |  2003-09-30  |  978 b   |  29 lines
  1. global riga, oldLocV, nRighe, pagina, car2, sinistra, caratteri, caratteri2, righeMissing, evidenzia, rsCerca, vaiAvanti, progr, listTips, posto
  2.  
  3. on mouseDown me
  4.   evidenzia = the mouseLine
  5.   if member(sprite(me.spriteNum).member).line[evidenzia] <> EMPTY then
  6.     hilite member(sprite(me.spriteNum).member).line[evidenzia]
  7.     progr = sprite(me.spriteNum).member.line[evidenzia]
  8.     importFileInto(member(1, "Tip"), the moviePath & "tips\" & getAt(listTips, getOne(listTips, chars(progr, 3, the number of chars in progr) & ".rtf")))
  9.     member(member(1, "tip")).boxType = #fixed
  10.     member(member(1, "tip")).width = 339
  11.     member(member(1, "tip")).height = 221
  12.     sprite(76).member = member(1, "tip")
  13.     member(sprite(76).member).scrollTop = 0
  14.     sprite(13).locV = sprite(76).top
  15.   end if
  16. end
  17.  
  18. on mouseWithin me
  19.   if member(sprite(me.spriteNum).member).line[the mouseLine] <> EMPTY then
  20.     cursor(280)
  21.   else
  22.     cursor(-1)
  23.   end if
  24. end
  25.  
  26. on mouseLeave me
  27.   cursor(-1)
  28. end
  29.