Sub Process_Globals
Dim chooser As ContentChooser
End Sub
Sub Activity_Create(FirstTime AsBoolean)
If FirstTime Then
chooser.Initialize("chooser")
End If
chooser.Show("image/*", "Choose image")
End Sub
Sub chooser_Result (Success AsBoolean, Dir AsString, FileName AsString)
If Success Then
Dim bmp As Bitmap
bmp.Initialize(Dir, FileName)
main_panel.SetBackgroundImage(bmp) ' panels background based on image selected
Else
ToastMessageShow("No image selected", True)
End If
End Sub