B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=8
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Public images As List = Array("18.txt", "28.txt", "38.txt", "48.txt", "58.txt", "68.txt", "78.txt", "88.txt", "98.txt", "108.txt", "118.txt")
End Sub

Sub Globals
	Private abot As Button
	Private hep As Button
	Private savTxt As Button
	Private lblChg1 As Label
	Private lblChg2 As Label
	Private lblChg3 As Label
	Private goin As EditText
	Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("chs")
	If FirstTime Then
End If
' Make shure there is a share-folder
	Starter.strSharedFolder = Starter.rp.GetSafeDirDefaultExternal("shared")
End Sub
Sub hep_Click
	StartActivity(hp)
End Sub

Sub abot_Click
	StartActivity(abt)
End Sub

Sub savTxt_Click
	' with Next line, e.To, e.Subject, and e.Body are Not auto-filled but I have Attachments.
	' w/o Next line, e.To, e.Subject, and e.Body are auto-filled but No Attachments.
'	ShareMultipleImages(images, Starter.strSharedFolder)
	Dim e As Email
	e.To.Add(EditText1.text)
	e.Subject = "testing23"
	e.Body = "test23"
	StartActivity(e.GetIntent)
'	ShareMultipleImages(images, Starter.strSharedFolder)	' ORIGINAL  **  <<<<)
End Sub

Sub ShareMultipleImages(lstImageNames As List, strSrcFolder As String)
	Dim i As Intent
	i.Initialize("android.intent.action.SEND_MULTIPLE", "")
	i.SetType("text/plain")
	Dim Uris As List
	Uris.Initialize
	
	For Each image As String In images
		Dim u As Uri = CreateFileProviderUri(Starter.strSharedFolder, image)
		Uris.Add(u)
	Next
	Dim jo As JavaObject = i
	jo.RunMethod("putParcelableArrayListExtra", Array As Object("android.intent.extra.STREAM", Uris))
	i.Flags = 1
	StartActivity(i)
End Sub

Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
	Dim FileProvider As JavaObject
	Dim context As JavaObject
	context.InitializeContext
	FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
	Dim f As JavaObject
	f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
	Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub