home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / qtchecker.dxr / 00014_Interface.ls < prev    next >
Encoding:
Text File  |  2005-04-28  |  917 b   |  46 lines
  1. property myEvent, myDefaultstate, Rolloverstate, spriteNum
  2. global activeButton
  3.  
  4. on beginSprite
  5.   activeButton = 0
  6.   myEvent = sprite(spriteNum).member.name
  7.   myDefaultstate = member("NORMAL").foreColor
  8.   sprite(spriteNum).member.foreColor = myDefaultstate
  9.   Rolloverstate = member("HI-LIGHT").foreColor
  10. end
  11.  
  12. on mouseEnter
  13.   sprite(spriteNum).member.foreColor = Rolloverstate
  14.   cursor(280)
  15. end
  16.  
  17. on mouseWithin
  18.   sprite(spriteNum).member.foreColor = Rolloverstate
  19.   cursor(280)
  20. end
  21.  
  22. on mouseUp
  23.   if spriteNum <> activeButton then
  24.     sprite(activeButton).member.foreColor = myDefaultstate
  25.     activeButton = spriteNum
  26.     InterfaceEvent(myEvent)
  27.   end if
  28. end
  29.  
  30. on mouseUpOutSide
  31.   cursor(0)
  32. end
  33.  
  34. on mouseLeave
  35.   if spriteNum = activeButton then
  36.     sprite(spriteNum).member.foreColor = Rolloverstate
  37.   else
  38.     sprite(spriteNum).member.foreColor = myDefaultstate
  39.     cursor(0)
  40.   end if
  41. end
  42.  
  43. on endSprite
  44.   cursor(0)
  45. end
  46.