Contents

Scroll Buttons

Added on 6/7/1999

Compatibilities:
behavior D6_5 Mac

This item has not yet been rated

For use with the Scroll Thumb, Scroll Thumb Track, and the Scrollable Sprites behaviors This behavior allows the author to select direction for which the button (sprite) will act upon the slider thumb. It uses a global variable which is accessed by the opposite scroll button, as well as the thumb and other sprites which will be scrolled.

property pMyDirection -- options are UP, DOWN, LEFT & RIGHT
property pThumbSprite  -- sprite number of the corresponding scroll thumb
property pThumbRange -- range of motion for the scroll thumb sprite
property pMyIncrement -- converts pMyDirection to an integer value
global gScrollV  -- amount scroll has been incremented Vertically from initial value
global gScrollH  -- amount scroll has been incremented Horizontally from initial value

on getPropertyDescriptionList
  set directionList = [#UP, #DOWN, #LEFT, #RIGHT]
  set p_list = [¬
  #pMyDirection: [ #comment:   "Direction of Button Arrow",¬
  #format:   #symbol,¬
  #range:    directionList,¬
  #default:   #UP]¬
  ]
  return p_list
end

on beginSprite me
  case pMyDirection of     -- converts string direction into integer increment
    #UP: set pMyIncrement = -1
    #DOWN: set pMyIncrement = 1
    #LEFT: set pMyIncrement = -1
    #RIGHT: set pMyIncrement = 1
  end case
end

on setThumbV me, range, thumbSprite
  if pMyDirection = #UP or pMyDirection = #DOWN then
    set pThumbRange = range
  end if
  set pThumbSprite = thumbSprite
end

on setThumbH me, range, thumbsprite
  if pMyDirection = #LEFT or pMyDirection = #RIGHT then
    set pThumbRange = range
  end if
  set pThumbSprite = thumbSprite
end

on mouseDown me
  case pMyDirection of
    #UP:
      repeat while the stillDown and gScrollV > 0
        set gScrollV = gScrollV + pMyIncrement
        sendSprite(pThumbSprite, #ScrollThumbV)
        sendAllSprites(#ScrollV)
        updateStage
      end repeat
    #DOWN:
      repeat while the stillDown and gScrollV < pThumbRange
        set gScrollV = gScrollV + pMyIncrement
        sendSprite(pThumbSprite, #ScrollThumbV)
        sendAllSprites(#ScrollV)
        updateStage
      end repeat
    #LEFT:
      repeat while the stillDown and gScrollH > 0
        set gScrollH = gScrollH + pMyIncrement
        sendSprite(pThumbSprite, #ScrollThumbH)
        sendAllSprites(#ScrollH)
        updateStage
      end repeat
    #RIGHT:
      repeat while the stillDown and gScrollH < pThumbRange
        set gScrollH = gScrollH + pMyIncrement
        sendSprite(pThumbSprite, #ScrollThumbH)
        sendAllSprites(#ScrollH)
        updateStage
      end repeat
  end case
end

Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail