Commit dcc0abdc authored by gambas's avatar gambas
Browse files

MediaView: Ensure that the internal media player is deleted with the control.

[GB.MEDIA.FORM]
* BUG: MediaView: Ensure that the internal media player is deleted with the control.
parent bdad6664
Pipeline #518505823 passed with stage
in 21 minutes and 44 seconds
[Component]
Key=gb.media.form
Version=3.15.90
Version=3.17.90
Needs=Form
Requires=gb.media
......@@ -2,13 +2,12 @@
Title=gb.media.form
Startup=FTest
Icon=.hidden/control/mediaview.png
Version=3.15.90
Version=3.17.90
VersionFile=1
Component=gb.image
Component=gb.gui
Component=gb.form
Component=gb.media
Environment="GB_GUI=gb.gtk3"
TabSize=2
Language=fr
Type=Component
......
......@@ -330,7 +330,8 @@ End
Public Sub Form_Close()
Try $hPlayer.Stop
Try $hPlayer.Close()
$hPlayer = Null
End
......
......@@ -30,7 +30,7 @@
MoveScaled(3,0,30,5)
Background = Color.Black
Foreground = Color.White
Mouse = Mouse.Pointing
Mouse = Cursor.Pointing
Expand = True
}
{ Panel4 Panel
......@@ -41,7 +41,7 @@
MoveScaled(29,44,3,1)
}
{ panControl HBox
MoveScaled(0,48,57,4)
MoveScaled(1,50,56,4)
{ btnPlay ToolButton
MoveScaled(0,0,4,4)
Picture = Picture["icon:/small/play"]
......
......@@ -12,3 +12,9 @@ Static Public Sub _init()
Application.Theme = "Gambas"
End
Public Sub Button2_Click()
MediaView1.Visible = Not MediaView1.Visible
End
......@@ -8,13 +8,18 @@
{ MediaView1 MediaView
MoveScaled(4,5,38,30)
Expand = True
URL = "/home/benoit/Vidéos/vlc-record-2018-12-21.mp4"
URL = "/home/benoit/StopHatingRussians.mp4"
}
{ HBox1 HBox
MoveScaled(4,39,78,4)
Spacing = True
{ Button1 Button
MoveScaled(5,0,16,4)
Text = ("Volume")
}
{ Button2 Button
MoveScaled(23,0,16,4)
Text = ("Hide")
}
}
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment