Behaviors

ALSO SEE:


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

MPEG ADVANCE XTRA:

TIME SLIDER HANDLERR


	Time Slider Handler Used to create a slider handler to control the current playback position of a target Mpeg Advance Xtra sprite. An optional property allows the behavior to resume playback of media after the slider is dragged.

	-- Mpeg Advance Xtra Time Slider Handler Behavior -- controls and monitors the movie time 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 pDuration, pCurrentTime property pExtentSprite property pHiliteMember property pTracking property pNewLocH property pNewLocV property pPlayAfterTracking property pMinScreen, pMaxScreen property pCurrentScreenVal property pExtentlength on beginSprite me me.pTracking = false me.pExtentSprite = 0 me.pDuration = 0 me.pCurrentTime = 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 #time slider base if sliderType=#time then me.pExtentSprite = sliderSprite me.updateBaseSliderRect(sliderRect) end if end on updateBaseSliderRect me, sliderRect me.pMinScreen = sliderRect.left me.pMaxScreen = sliderRect.right 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 duration and movie time, so store these pDuration = paramList.duration pCurrentTime = paramList.currenttime 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 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 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 pMovieTime = (float(me.pCurrentScreenVal) / float (me.pExtentlength)) * pDuration SendAllSprites(#Mpeg_Advance_Command, #seek, pMovieTime) 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 if (float(me.pDuration)>0) then x = float(me.pCurrentTime) / float(me.pDuration) handle = me.spriteNum extent = me.pExtentSprite 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 sprite(handle).locV = me.pNewLocV sprite(handle).locH = me.pNewLocH end if 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 if me.pPlayAfterTracking then SendAllSprites(#Mpeg_Advance_Command, #play) end if 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 if me.pPlayAfterTracking then SendAllSprites(#Mpeg_Advance_Command, #play) end if 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, #pPlayAfterTracking, [#default: true , #format:#boolean ,#comment: "Play video when the handler is released:"] return description end on getBehaviorDescription me return "Drag to slider 'handle' to enable control of video play time. " & RETURN & "PARAMETERS:" & RETURN & "• Hilite Member - Member to display while handle is being dragged." & RETURN & "• Play after tracking - play the video after a drag operation in the handler." end
	DIRECTOR VERSIONS:		AUTHOR:		LAST UPDATED:
	8.5, MX, 2004, 11		Tabuleiro		March, 2008