Sub Activity_Resume
B4XPages.Delegate.Activity_Resume
If IsRelevantIntent(Activity.GetStartingIntent) Then
Dim in As JavaObject = Activity.GetStartingIntent
Dim t As String = in.RunMethod("getType", Null)
If t.Contains("text") Then B4XPages.MainPage.HandleText
Dim uri As String = in.RunMethod("getParcelableExtra", Array("android.intent.extra.STREAM"))
Dim flag As Boolean
Try
Log("Loading bitmap from: " & uri)
Dim bmp As Bitmap = LoadBitmapResize("ContentDir", uri, 100%x, 100%y,flag)
Activity.SetBackgroundImage(bmp)
Catch
Log(LastException)
End Try
End If
End Sub