Running the CameraEx example, I am trying to get the Zoom function working with a seekbar:
However, the Zoom value is always 10 (MaxZoom)
Log:
SeekBar Max value = 100
B4X:
Sub sbZoom_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged = False Or camEx.IsZoomSupported = False Then Return
camEx.Zoom = Value / 100 * camEx.GetMaxZoom
camEx.CommitParameters
Log("Zoom Supported: " & camEx.IsZoomSupported)
Log("Zoom Max :" & camEx.GetMaxZoom)
Log("Zoom SB Value : " & Value)
Log("Zoom Value : " & camEx.Zoom)
End Sub
Log:
B4X:
Zoom Supported: true
Zoom Max :10
Zoom SB Value : 50
Zoom Value : 10