Code: Select all
local sVideoID
on videoplayer
   
   if "ioscontrol" is among the lines of iphoneControls() then
      controlDelete
   end if
   
   iphoneControlCreate "player", "ioscontrol"
      put the result into sVideoID
   
   // Set the basic properties including visibility, rectangle and video file path
   iphoneControlSet "ioscontrol", "filename", specialFolderPath("engine") & "/Video Namibia app.m4v"
   iphoneControlSet "ioscontrol", "preserveAspect", true
   iphoneControlSet "ioscontrol", "showController", true
   iphoneControlSet "ioscontrol", "visible", true
   iphoneControlSet "ioscontrol", "fullscreen", true
   //iphoneControlSet "ioscontrol", "rect", "000,115,1024,570"
   
   // Start playing the video
   iphoneControlDo "ioscontrol", "play"
end videoplayer
on playerFinished
   controlDelete
end playerFinished
on playerLeaveFullscreen
   controlDelete
end playerLeaveFullscreen
on controlDelete
   // Delete the control
      iphoneControlDelete sVideoID
end controlDelete
Code: Select all
iphoneControlDelete "ioscontrol"
Chris



