Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

full screen mpg

Status
Not open for further replies.

Cartier

Technical User
Jan 16, 2003
32
0
0
BA
hello
I need to put mpg video on the begining of my presentation, in full screen, and then when it's done to move on to the next frame.
I have a script for playing a video and moving to next frame. And its good, only, this time I need a verision with full screen. Can anyone help me, please?
Here is that script:




--------------------------------------------------------
-- Play digital video, clean up & then continue.

property myDVSpriteNum, myDVLength

on beginSprite me
-- Initialization:
myDVSpriteNum = me.spriteNum
myDVMember = sprite(myDVSpriteNum).member
sprite(myDVSpriteNum).visible = TRUE
myDVLength =member(myDVMember).duration
end

on exitFrame me
-- Hold on current frame & play
--digital video until end:
case (TRUE) of
(sprite(myDVSpriteNum).movieTime < myDVLength):
go to the frame
otherwise
go to the frame + 1
end case
end

on endSprite me
-- Clean up direct to stage digital video sprite:
sprite(myDVSpriteNum).visible = FALSE
sprite(myDVSpriteNum).visible = TRUE
end
-------------------------------------------------------




 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top