Sub ImageSlider1_GetImage (Index As Int) As ResumableSub
Return xui.LoadBitmapResize(File.DirRootExternal & "/checklist/2900040_U09/", $"1.13(${Index}).jpg"$, _
ImageSlider1.WindowBase.Width, ImageSlider1.WindowBase.Height, True)
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rp.PERMISSION_WRITE_EXTERNAL_STORAGE Then
ImageSlider1.NumberOfImages = 3
ImageSlider1.NextImage
End If
End Sub