home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2007 January / maximum-cd-2007-01.iso / main.dxr / Internal_192_scrollDatabaseDown.b.ls < prev    next >
Encoding:
Text File  |  2006-07-19  |  1003 b   |  38 lines
  1. property textH, copyMem
  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.   if ((member(copyMem).line.count * 12) - member(copyMem).scrollTop) > textH then
  12.     sprite(me.spriteNum).visible = 1
  13.   else
  14.     sprite(me.spriteNum).visible = 0
  15.   end if
  16. end
  17.  
  18. on mouseDown me
  19.   repeat while the stillDown
  20.     member(copyMem).scrollTop = member(copyMem).scrollTop + 10
  21.     if member(copyMem).scrollTop > 0 then
  22.       sprite(93).visible = 1
  23.     else
  24.       sprite(93).visible = 0
  25.     end if
  26.     if ((member(copyMem).line.count * 12) - member(copyMem).scrollTop) > textH then
  27.       sprite(me.spriteNum).visible = 1
  28.     else
  29.       sprite(me.spriteNum).visible = 0
  30.     end if
  31.     updateStage()
  32.   end repeat
  33. end
  34.  
  35. on endSprite me
  36.   sprite(me.spriteNum).visible = 1
  37. end
  38.