rivate Sub CreaSfondoFullSeServe
If videoPlayer.IsInitialized Then Return
' Copia il file (se non esiste già)
If File.Exists(File.DirInternal, VIDEO_FILENAME) = False Then
Try
File.Copy(File.DirAssets, VIDEO_FILENAME, File.DirInternal, VIDEO_FILENAME)
Log("Video copiato con successo")
Catch
Log("Errore copia file: " & LastException.Message)
Return
End Try
End If
videoPlayer.Initialize("videoPlayer")
videoPlayer.Visible = True
Root.AddView(videoPlayer, 0, 0, Root.Width, Root.Height)
videoPlayer.SendToBack
Try
videoPlayer.LoadVideo(File.DirInternal, VIDEO_FILENAME)
Log("Caricamento video avviato da: " & File.DirInternal)
Catch
Log("Errore caricamento: " & LastException.Message)
End Try
' Fallback immediato (anche se non è ancora pronto)
ApplicaCenterCrop
End Sub