B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.86
@EndOfDesignText@
Sub Class_Globals
	Private Root As B4XView 'ignore
	Private xui As XUI 'ignore
	Public cvs As B4XCanvas
	Public Panel1 As B4XView
	Private i_waImg As ImageView
	Private l_imgData As Label
	Private clv_imagenes As CustomListView
End Sub

'You can add more parameters here.
Public Sub Initialize

End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	'load the layout to Root
	Root.LoadLayout("Imagenes")
	cvs.Initialize(Panel1)
	B4XPages.SetTitle(Me, "Imagenes disponibles")
End Sub

Sub B4XPage_Appear
	Private losDatos As List = Subs.traeImgMsjData
	Private bmp As Bitmap
	clv_imagenes.Clear
	For i = 0 To losDatos.Size - 1
'		Log(losDatos.Get(i).As(Map))
'		Log(losDatos.Get(i).As(Map).Get("imgData").As(Map).Get("file_path"))
		Private theDir As String = Starter.waDir & "/" & losDatos.Get(i).As(Map).Get("imgData").As(Map).Get("file_path")
'		Log(theDir.SubString2(0, theDir.LastIndexOf("/")+1))
'		Log(theDir.SubString(theDir.LastIndexOf("/")+1))
		If theDir.EndsWith("jpg") Or theDir.EndsWith("png") Then
			bmp = LoadBitmap(theDir.SubString2(0, theDir.LastIndexOf("/")+1), theDir.SubString(theDir.LastIndexOf("/")+1))
			clv_imagenes.Add(createImgItem(bmp, losDatos.Get(i).As(Map).Get("msjData").As(Map).Get("media_caption"), 386dip, 90dip), losDatos.Get(i))
		End If
	Next
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub btnClear_Click
	
End Sub

Sub btnSet_Click
	B4XPages.ClosePage(Me)
End Sub

Sub createImgItem(img As Bitmap, text As String, Width As Int, Height As Int) As Panel
	Dim p As B4XView = xui.CreatePanel("")
'	Private pLeft = p_rules.left
	p.SetLayoutAnimated(0, 0, 0, Width, Height)
	p.LoadLayout("imgItem")
	i_waImg.Bitmap = img
	l_imgData.Text = text
	Return p
End Sub

Private Sub clv_imagenes_ItemClick (Index As Int, Value As Object)
	If Starter.Logger Then Log(Value)
End Sub

Sub clv_imagenes_ItemLongClick (Index As Int, Value As Object)
	B4XPages.MainPage.phv.Vibrate(100)
	Subs.mandaWAImageRoot(Null, "Alo Papagena … Tore bella com la papaia", Value)
	ToastMessageShow("Imagen mandada.",False)
	If starter.Logger Then Log(Value)
End Sub