#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim ScaleImageView1 As ScaleImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim jo As JavaObject = Activity
jo.RunMethod("setSystemUiVisibility", Array As Object(5894))
Activity.Width = -1
Activity.Height = -1
'Activity.LoadLayout("Viewer")
ScaleImageView1.Initialize("ScaleImageView1")
Activity.AddView(ScaleImageView1, 0, 0, 100%x, 100%y)
End Sub
Sub Activity_Resume
ScaleImageView1.ImageFile = Starter.ViewerFolder & Starter.ViewerFilename
Dim loops As Int = 1
Do Until ScaleImageView1.IsReady
Sleep(100)
loops = loops + 1
If loops > 100 Then ' give it up to 10 seconds
Exit
End If
Loop
' restore scale and centre location
ScaleImageView1.SetScaleAndCenter(Starter.ViewerZoom, Starter.ViewerX, Starter.ViewerY, 1)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub