home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2007 February / maximum-cd-2007-02.iso / main.dxr / Internal_184_scrollTextDown.b.ls < prev    next >
Encoding:
Text File  |  2006-07-19  |  1.0 KB  |  43 lines
  1. property textH, copyMem, sNum
  2.  
  3. on getPropertyDescriptionList me
  4.   description = [:]
  5.   addProp(description, #textH, [#default: 0, #format: #integer, #comment: "Text Height: "])
  6.   addProp(description, #copyMem, [#default: "bodyCopy", #format: #string, #comment: "Body Copy Member Name:"])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   sNum = me.spriteNum
  12.   selfUpdate()
  13. end
  14.  
  15. on selfUpdate
  16.   if (member(copyMem).height - member(copyMem).scrollTop) > textH then
  17.     sprite(sNum).visible = 1
  18.   else
  19.     sprite(sNum).visible = 0
  20.   end if
  21. end
  22.  
  23. on mouseDown me
  24.   repeat while the stillDown
  25.     member(copyMem).scrollTop = member(copyMem).scrollTop + 2
  26.     if member(copyMem).scrollTop > 0 then
  27.       sprite(85).visible = 1
  28.     else
  29.       sprite(85).visible = 0
  30.     end if
  31.     if (member(copyMem).height - member(copyMem).scrollTop) > textH then
  32.       sprite(me.spriteNum).visible = 1
  33.     else
  34.       sprite(me.spriteNum).visible = 0
  35.     end if
  36.     updateStage()
  37.   end repeat
  38. end
  39.  
  40. on endSprite me
  41.   sprite(me.spriteNum).visible = 1
  42. end
  43.