Sub Process_Globals
Private player1 As SimpleExoPlayer
End Sub
Sub Globals
Dim P As Phone
Dim PE As PhoneEvents
Dim h As HttpJob
Private SimpleExoPlayerView1 As SimpleExoPlayerView
Private ListaCanales As CustomListView
Private ListViewCanalActual As ListView
Private SpinnerCategorias As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
ListaCanales.DefaultTextBackgroundColor = Colors.ARGB(0,0,0,0)
ListaCanales.DefaultTextColor = Colors.White
LogColor(P.Manufacturer, Colors.Red)
Dim Label1 As Label
Label1 = ListViewCanalActual.TwoLinesLayout.Label
Label1.Typeface = Typeface.CreateNew( Typeface.SERIF, Typeface.STYLE_BOLD_ITALIC)
Label1.TextSize = 24
Label1.TextColor = Colors.White
Label1.Gravity = Gravity.TOP
Label1.Height = 28dip
Dim Label2 As Label
Label2 = ListViewCanalActual.TwoLinesLayout.SecondLabel
Label2.Typeface = Typeface.CreateNew( Typeface.SERIF, Typeface.STYLE_ITALIC)
Label2.TextSize = 18
Label2.TextColor = Colors.White
Label2.Gravity = Gravity.TOP
Label2.Height = 24dip
ListViewCanalActual.FastScrollEnabled = False
SpinnerCategorias.TextColor = Colors.ARGB(255,0,254,0)
SpinnerCategorias.DropdownTextColor = Colors.ARGB(255,255, 255, 255)
SpinnerCategorias.DropdownBackgroundColor = Colors.ARGB(255,47, 79, 78)
If FirstTime Then
PE.Initialize("PE")
player1.Initialize("player")
End If
SimpleExoPlayerView1.UseController = False
SimpleExoPlayerView1.Player = player1
h.Initialize("TraerCategorias", Me)
h.Download2("http://xxxxxxx.xxx/xxxxxxxx.php", Array As String("myactionvar", "myorder"))
End Sub
Sub Activity_Resume
player1.Play
End Sub
Sub Activity_Pause (UserClosed As Boolean)
player1.Pause
End Sub