B4J Question play fullscreen video with text overlay

[FrancescoS]

good morning everyone,
I am trying to play a movie in full screen and then I would like to write overlay text that change during playback (like subtitles).
I was able to playback the video but all the objects that I insert (ie label) seem to be behind the video and can't be seen.

Also I need to write 70% opacity text over the video.

here my code and a screenshot to better explain my goal:

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show

    Dim jmf As JavaObject = MainForm
    Dim m As MediaPlayer
    Dim stage As JavaObject = jmf.GetField("stage")
    stage.RunMethod("setFullScreen", Array As Object(True))

    m.Initialize("m",File.GetUri("f:\","video_test.mp4"))
    stage.InitializeNewInstance("javafx.scene.media.MediaView",Array(m))
    MainForm.RootPane.AddNode(stage,0,0,1920,1080)

    m.Play

    Label1.Text="TEXT 1234"
    
end sub

Who can help me ?
thanks
Francesco

 

[TILogistic]

?

MediaView - video player

This library includes two custom views: MediaView and MediaViewController. MediaView can play local and remote videos and music. The native JavaFX MediaView doesn't include a controller interface. I've implemented one. You can use it or create your own. Tip: the controller code and layout are...

www.b4x.com

 

[FrancescoS]

thanks TILogistic, but I need full screen video without corner.
I have found a solution to show text:

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show

    Dim jmf As JavaObject = MainForm
    Dim m As MediaPlayer
    Dim stage As JavaObject = jmf.GetField("stage")
    stage.RunMethod("setFullScreen", Array As Object(True))

    m.Initialize("m",File.GetUri("f:\","video_test.mp4"))
    stage.InitializeNewInstance("javafx.scene.media.MediaView",Array(m))
    MainForm.RootPane.AddNode(stage,0,0,1920,1080)
    stage.RunMethod("toBack",Null)
    
    m.Play

    Label1.Text="TEXT 1234"
    
end sub

adding "stage.RunMethod("toBack",Null)" I can show and take control of text.

 

[FrancescoS]

Now I have another problem, when app starts, it display a message "press ESC to exit full screen mode".
Anybody knows how to disable this message ?
thanks

 

[TILogistic]

upload an example to help you

 

[stevel05]

Anybody knows how to disable this message ?

You can use my FormUtils module, or just take the code you want from it : https://www.b4x.com/android/forum/threads/formutils.84460/post-714776

 

[FrancescoS]

You can use my FormUtils module, or just take the code you want from it : https://www.b4x.com/android/forum/threads/formutils.84460/post-714776

Hi stevel05 thanks for your answer.
I tried your formUtils and saw that you were able to change "press ESC to exit full screen mode" in "press Ctrl-I to exit." But I need to delete the message, it should not appear at all. Do you know how to delete the info message ?
Thank you
Francesco

 

[Gandalf]

Did you try what is written in this post?

 

[stevel05]

As suggested in the link, try setting the hint to ""

FormUtils.SetFullScreenExitHint(TestForm,"")

You will still need to set a key combination, but you can set it to something difficult to guess.

For instance:

FormUtils.SetFullScreenExitKeyCombination(TestForm,FUtils_KeyCombinations.GetKeyCombination(Array As String(FUtils_KeyCombinations.KC_CONTROL,FUtils_KeyCombinations.KC_SHIFT,"!")))

 

[FrancescoS]

Did you try what is written in this post?

Oh, sorry ! Perfect ! Thanks !

 

[FrancescoS]

As suggested in the link, try setting the hint to ""

FormUtils.SetFullScreenExitHint(TestForm,"")

You will still need to set a key combination, but you can set it to something difficult to guess.

For instance:

FormUtils.SetFullScreenExitKeyCombination(TestForm,FUtils_KeyCombinations.GetKeyCombination(Array As String(FUtils_KeyCombinations.KC_CONTROL,FUtils_KeyCombinations.KC_SHIFT,"!")))

Thanks @stevel05 for your help !