luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

MovieBox: Add backward-compatible Path property.

Browse source 
[GB.GUI.BASE]
* BUG: MovieBox: Add backward-compatible Path property.
This commit is contained in:
gambas 2021-01-09 10:38:43 +01:00
parent a0a2d0379c
commit 13c0d23424
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
comp/src/gb.gui.base/.src/MovieBox.class
View file

@ -18,10 +18,12 @@ Property Border As Integer
Property Stretch As Boolean Property Stretch As Boolean
Property Mode As Integer Property Mode As Integer
Property Playing As Boolean Property Playing As Boolean
Property Path As String
Public Enum Normal, Fill, Cover, Contain, {Repeat} Public Enum Normal, Fill, Cover, Contain, {Repeat}
Static Private $hDefault As Image Static Private $hDefault As Image
Static Private $bDeprecated As Boolean
Private $hObs As Observer Private $hObs As Observer
Private $iAlign As Integer = Align.TopLeft Private $iAlign As Integer = Align.TopLeft
@ -363,3 +365,23 @@ Public Sub Animation_Change()
Me.Refresh Me.Refresh
End End
Private Function Path_Read() As String
If Not $bDeprecated Then
$bDeprecated = True
Error "gb.gui.base: MovieBox.Path is deprecated. Do not use it anymore."
Endif
End
Private Sub Path_Write(Value As String)
If Not $bDeprecated Then
$bDeprecated = True
Error "gb.gui.base: MovieBox.Path is deprecated. Do not use it anymore."
Endif
Animation_Write(Animation.Load(Value))
End