comp/src/gb.media.form/.component

 [Component]
 Key=gb.media.form
-Version=3.12.90
+Version=3.13.90
 Needs=Form
 Requires=gb.media

comp/src/gb.media.form/.project

@@ -2,7 +2,7 @@
 Title=gb.media.form
 Startup=FTest
 Icon=.hidden/control/mediaview.png
-Version=3.12.90
+Version=3.13.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui

comp/src/gb.media.form/.src/FMediaPlayer.class

@@ -232,6 +232,8 @@ Private Sub SetPos(fPos As Float)
   
   Dim fLength As Float
   
+  If Not $hPlayer Then Return
+  
   If $hPlayer.State = Media.Paused Or If $hPlayer.State = Media.Playing Then
     fLength = $hPlayer.Duration
     If fLength > 0 Then
@@ -371,7 +373,7 @@ Public Sub SetPosition(fPos As Float)
 
   Dim fLength As Float
   
-  fLength = $hPlayer.Duration
+  Try fLength = $hPlayer.Duration
   
   If fLength Then
     SetPos(fPos / fLength)
@@ -383,6 +385,7 @@ End
 
 Public Sub dwgTime_MouseWheel()
 
+  If Not $hPlayer Then Return
   If Mouse.Forward Then
     SetPosition(GetPosition() + 10)
   Else
@@ -440,3 +443,9 @@ Public Sub timResize_Timer()
   timResize.Stop
   
 End
+
+Public Sub _new()
+
+  Me.Proxy = dwgVideo
+
+End

comp/src/gb.media.form/.src/MediaView.class

@@ -26,6 +26,7 @@ Private $sNextUrl As String
 Public Sub _new()
   
   $hView = New FMediaPlayer(Me)
+  Me.Proxy = $hView
   
 End