Interactive slideshow with custom Quicktime control

Question

Hi
I have huge amount of pics that I want to present. Therefore I decided to do it with a Quicktime Movie slideshow. Instead of using the given Quicktime Controls in the Property Inspector I rather would like my own control buttons. I tried it with the Quicktime Behaviors from the Library. The play button worked fine, but the forward and backward button did not. What might be the problem?
Regards
Simon

Answer 1

That QT button behavior won't do what you want. It does a lot different things but its not designed to move one frame forward or back. A behavior like this wil do the job. Depending on your QT movie, you may need to adjust the number of frames that are moved each time the button is used. This is the next frame behavior:
property QTSprite
property thisDuration
property thisMember
property customCursor
property thisSprite
on getPropertyDescriptionList
  myPropList = [:]
  myPropList.addProp(#QTSprite,[#comment:"enter the Quicktime sprite number:",#format:#integer,#default:""])
  myPropList.addProp(#customCursor,[#comment:"pick a cursor:",#format:#cursor,#default:280])
  return myPropList
end
on beginSprite me
  thisSprite = me.spriteNum
  thisMember =  sprite(QTSprite).member
  thisDuration = thisMember.duration
  sprite(thisSprite).cursor = customCursor
end
on endSprite me
  sprite(thisSprite).cursor = 0
end
on mouseUp me
  if sprite(QTSprite).movieTime < thisDuration then
    sprite(QTSprite).movieTime = sprite(QTSprite).movieTime + 1
  end if
end
and this is the previous button behavior:
property QTSprite
property thisMember
property customCursor
property thisSprite
on getPropertyDescriptionList
  myPropList = [:]
  myPropList.addProp(#QTSprite,[#comment:"enter the Quicktime sprite number:",#format:#integer,#default:""])
  myPropList.addProp(#customCursor,[#comment:"pick a cursor:",#format:#cursor,#default:280])
  return myPropList
end
on beginSprite me
  thisSprite = me.spriteNum
  thisMember =  sprite(QTSprite).member
  sprite(thisSprite).cursor = customCursor
end
on endSprite me
  sprite(thisSprite).cursor = 0
end
on mouseUp me
  if sprite(QTSprite).movieTime > 1 then
    sprite(QTSprite).movieTime = sprite(QTSprite).movieTime - 1
  end if
end
Try these and see if they work for you.