Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/MacControls/HTMLViewer Mac/HTML5 Video/htmlviewer with html5 video
Function:
Required plugins for this example: MBS MacBase Plugin, MBS MacControls Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacControls/HTMLViewer Mac/HTML5 Video/htmlviewer with html5 video
This example is the version from Thu, 6th Apr 2016.
Project "htmlviewer with html5 video.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control web Inherits HTMLViewer
ControlInstance web Inherits HTMLViewer
End Control
Control PlayButton Inherits PushButton
ControlInstance PlayButton Inherits PushButton
EventHandler Sub Action() call web.EvaluateJavaScriptMBS("playPause()") End EventHandler
End Control
Control Size1Button Inherits PushButton
ControlInstance Size1Button Inherits PushButton
EventHandler Sub Action() call web.EvaluateJavaScriptMBS("makeNormal()") End EventHandler
End Control
Control Size2Button Inherits PushButton
ControlInstance Size2Button Inherits PushButton
EventHandler Sub Action() call web.EvaluateJavaScriptMBS("makeBig()") End EventHandler
End Control
Control ReportSizeButton Inherits PushButton
ControlInstance ReportSizeButton Inherits PushButton
EventHandler Sub Action() MsgBox "Video Height: " + web.EvaluateJavaScriptMBS("document.getElementsByTagName('video')[0].videoHeight;") End EventHandler
End Control
EventHandler Sub Open() dim posterfile as FolderItem = findfile("poster.jpg") if not posterfile.Exists then MsgBox "Please add a poster.jpg file." end if dim videofile as FolderItem = findfile("myMovie.m4v") if not videofile.Exists then MsgBox "Please add a myMovie.m4v file." end if dim file as FolderItem = findfile("test.html") web.LoadPage file End EventHandler
Function FindFile(name as string) As FolderItem // Look for file in parent folders from executable on dim parent as FolderItem = app.ExecutableFile.Parent while parent<>Nil dim file as FolderItem = parent.Child(name) if file<>Nil and file.Exists then Return file end if parent = parent.Parent wend End Function
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacControls Plugin.




Links
MBS Xojo PDF Plugins