Public Sub IsZoomSupported As Boolean
r.target = parameters
Return r.RunMethod("isZoomSupported")
End Sub
Public Sub GetMaxZoom As Int
r.target = parameters
Return r.RunMethod("getMaxZoom")
End Sub
Public Sub SetZoom(Zoom As Int)
r.target = parameters
r.RunMethod2("setZoom", Zoom, "java.lang.int")
End Sub
Public Sub GetFocusDistances As Float()
Dim f(3) As Float
r.Target = parameters
r.RunMethod4("getFocusDistances", Array As Object(f), Array As String("[F"))
Return f
End Sub
'call it
Dim f() As Float = camEx.GetFocusDistances
Log(f(0) & ", " & f(1) & ", " & f(2))
Sub btnZoomin_Click
if CamEx.IsZoomSuported then
dim maxZ as int
maxZ = CamEx.GetMaxZoom
CamEx.SetZoom(maxZ)
else
ToastMessageShow("Sorry, unable to zoom",True)
end if
End Sub