Sub Process_Globals
End Sub
Sub Globals
Dim Coverflow As B4ACoverFlow
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color = Colors.White
Coverflow.Initialize("Coverflow")
Activity.AddView(Coverflow, 0dip, 0dip, 100%x, 100%y)
Coverflow.Spacing=-15
Coverflow.ItemWidth = 300dip
Coverflow.ItemHeight = 300dip
Coverflow.AnimationDuration=1000
'Msgbox(File.DirRootExternal,"")
Coverflow.PopulateCoverflow(File.DirRootExternal, "EcoEmocion/Olivia/videos/previos")
'Activity.Title = "G.Salvi -- Items in Coverflow = " & Coverflow.Length
Coverflow.Selection=2
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause(UserClosed As Boolean)
End Sub
Sub Coverflow_ItemClick(Position As Int, Value As Object)
'Coverflow.SetBackgroundImage(LoadBitmapSample("",Value,150,240))
Dim FicheroImagen As String
FicheroImagen = Value
' se reconvierte el nombre del fichero
FicheroImagen = FicheroImagen.Replace("/previos/","/")
FicheroImagen = FicheroImagen.Replace(".jpg",".mp4")
'Msgbox(FicheroImagen,"")
CallSubDelayed2(ZoomMostrarVideo,"Mostrar",FicheroImagen)
End Sub
Sub Coverflow_ItemLongClick (Position As Int, Value As Object)
ExitApplication
End Sub
Sub Coverflow_ItemSelected(Position As Int, Value As Object)
'Activity.Title = "G.Salvi -- Items in Coverflow = " & Coverflow.Length & " | Position = " & Position & _
'" | Width = " & Coverflow.ItemWidth&" | Height = "&Coverflow.ItemHeight
End Sub
