MPEG Xtra Simple Control

 

Compatibilities: Required Xtras: MPEGXtra

This item has not yet been rated

MPEG Xtra Simple Control

--MpegXtra Simple control   property videoSprite    -- the sprite number that is getting controlled property videoCommand   -- the command to be issued on DoControl me   case ( the VideoCommand of me ) of:     #Play:       videoplay(sprite the videoSprite of me)     #Pause:       videopause(sprite the videoSprite of me)     #Rewind:       videostop(sprite the videoSprite of me)       videoseek(sprite the videoSprite of me, the segmentstart of sprite the videoSprite of me)          end case end on mouseUp me   DoControl me end --- on getPropertyDescriptionList      set p_list = [   #videoCommand: [ #comment:   "Action:",#format:   #symbol,   #range: [ #Play, #Pause, #Rewind],#default:   #Play ], #videoSprite: [ #comment:   "MpegXtra Sprite Channel:", #format:   #integer,   #default:    1] ]                     return p_list end on getBehaviorDescription   return "Used to create Play, Pause, and Rewind control buttons for a MpegXtra video sprite. " & RETURN & "PARAMETERS:" & RETURN & "Action - Choose the action to perform on mouseUP ( Play, Pause, Rewind )." & RETURN & "DirectMedia Sprite Channel - Enter the number of sprite channel of the MpegXtra video that is being controlled." end