Behaviors

ALSO SEE:


WHAT IS IT
FEATURES
UPDATE HISTORY
PRICING & LICENSING
SYSTEM REQUIREMENTS
ONLINE HELP
USER INTERFACE
TUTORIALS & SAMPLES
BEHAVIORS
DOWNLOAD

MPEG ADVANCE XTRA:

VOLUME SLIDER HANDLER


	Volume Slider Handler Used to create an horizontal or vertical slider handler to control the rate of playback of an Mpeg Advance Xtra sprite. Drag this behavior to a sprite that can be dragged to control the current volume.

	-- Mpeg Advance Xtra Volume Slider Handler Behavior -- controls and monitors the volume of a target Mpeg Advance Xtra sprite -- based on the Video Time Slider from Director's behavior library version 1.1 -- You are free to use, modify and redistribute this code with your Director projects property pMaximumVolume, pCurrentVolume property pExtentSprite property pHiliteMember property pTracking property pNewLocH property pNewLocV property pPlayAfterTracking property pMinScreen, pMaxScreen property pCurrentScreenVal property pExtentlength property pOrientation on beginSprite me me.pTracking = false me.pExtentSprite = 0 pMaximumVolume = 255 pCurrentVolume = 0 end on Mpeg_Advance_Slider_Properties me, sliderType, sliderRect, sliderSprite -- A base slider sprite has updated its properties -- We are only interested in the #volume slider base if sliderType=#volume then me.pExtentSprite = sliderSprite me.updateBaseSliderRect(sliderRect) end if end on updateBaseSliderRect me, sliderRect if me.pOrientation = #horizontal then me.pMinScreen = sliderRect.left me.pMaxScreen = sliderRect.right else me.pMinScreen = sliderRect.top me.pMaxScreen = sliderRect.bottom end if me.pExtentlength = me.pMaxScreen - me.pMinScreen end on Mpeg_Advance_Broadcast_Properties me, paramList --The target Mpeg Advance Xtra sprite has broadcasted its current properties --We are only interested in the current volume pCurrentVolume = paramList.volume end on prepareFrame me if me.pExtentSprite = 0 then --can not operate without a base slider sprite return end if if me.pTracking then --the handler sprite is being used to scrub the movie, calculate its current position based on the mouse location handle = me.spriteNum extent = me.pExtentSprite if me.pOrientation = #horizontal then me.pNewLocH = the mouseH me.pNewLocV = sprite(extent).locV if me.pNewLocH < sprite(extent).left then me.pNewLocH = sprite(extent).left else if me.pNewLocH > sprite(extent).right then me.pNewLocH = sprite(extent).right end if me.pCurrentScreenVal = me.pNewLocH - me.pMinScreen else me.pNewLocH = sprite(extent).locH me.pNewLocV = the mouseV if me.pNewLocV < sprite(extent).top then me.pNewLocV = sprite(extent).top else if me.pNewLocV > sprite(extent).bottom then me.pNewLocV = sprite(extent).bottom end if me.pCurrentScreenVal = me.pNewLocV - me.pMinScreen end if sprite(handle).locV = me.pNewLocV sprite(handle).locH = me.pNewLocH --sends our current position information to another handler that will broadcast the message to the Mpeg Advance Xtra target sprite pCurrentVolume = (float(me.pCurrentScreenVal) / float (me.pExtentlength)) * pMaximumVolume if me.pOrientation = #horizontal then SendAllSprites(#Mpeg_Advance_Command, #volume, pCurrentVolume) else --revert value for vertical slider, so that the bottom position corresponds to minimum volume SendAllSprites(#Mpeg_Advance_Command, #volume, pMaximumVolume - pCurrentVolume) end if else --handler is not pressed. Get the current values for duration and movietime broadcasted by the Mpeg Advance Xtra sprite, and use them to control the position of our handler, locked to the bounds of the extent sprite handle = me.spriteNum extent = me.pExtentSprite x = float(me.pCurrentVolume) / float(me.pMaximumVolume) if me.pOrientation = #horizontal then screenX = sprite(extent).left + (x * (sprite(extent).right - sprite(extent).left)) me.pNewLocH = screenX me.pNewLocV = sprite(extent).locV if me.pNewLocH < sprite(extent).left then me.pNewLocH = sprite(extent).left else if me.pNewLocH > sprite(extent).right then me.pNewLocH = sprite(extent).right end if me.pCurrentScreenVal = me.pNewLocH - me.pMinScreen else --reverse display so vertical sliders get their minimum values at the bottom x = 1.0 - x screenY = sprite(extent).top + (x * (sprite(extent).bottom - sprite(extent).top)) me.pNewLocV = screenY me.pNewLocH = sprite(extent).locH if me.pNewLocV < sprite(extent).top then me.pNewLocV = sprite(extent).top else if me.pNewLocV > sprite(extent).bottom then me.pNewLocV = sprite(extent).bottom end if me.pCurrentScreenVal = me.pNewLocV - me.pMinScreen end if sprite(handle).locV = me.pNewLocV sprite(handle).locH = me.pNewLocH end if end on mouseDown me --change our sprite member to the highlighted state, and initiate tracking pTracking = true temp = sprite(me.spritenum).member sprite(me.spritenum).member = member(me.pHiliteMember) me.pHiliteMember = temp end on mouseUp me --change our sprite member to the normal state, and finish tracking pTracking = false temp = sprite(me.spritenum).member sprite(me.spritenum).member = member(me.pHiliteMember) me.pHiliteMember = temp end on mouseUpOutside me --change our sprite member to the normal state, and finish tracking pTracking = false temp = sprite(me.spritenum).member sprite(me.spritenum).member = member(me.pHiliteMember) me.pHiliteMember = temp end on getPropertyDescriptionList if the currentspritenum = 0 then memdefault = 0 else memref = sprite(the currentspritenum).member memdefault = member (the membernum of member memref + 1) end if set description = [:] addprop description, #pHiliteMember, [#default: memdefault , #format:#graphic, #comment: "Hilite Member:"] addprop description, #pOrientation, [#default: #horizontal , #format:#symbol, #comment: "Slider orientation:", #range:[#horizontal, #vertical]] return description end on getBehaviorDescription me return "Drag to slider 'handle' to enable control of volume for a target Mpeg Advance Xtra sprite." & RETURN & "PARAMETERS:" & RETURN & "• Hilite Member - Member to display while handle is being dragged." & RETURN & "• Slider orientation - Indicates if the slider is vertical or horizontal." end
	DIRECTOR VERSIONS:		AUTHOR:		LAST UPDATED:
	8.5, MX, 2004, 11		Tabuleiro		March, 2008