B4A Library [Class] CameraEx - Extends the camera library functionality

Public Sub GetSupportedWhiteBalance As List
    r.target = parameters
    Return r.RunMethod("getSupportedWhiteBalance")
End Sub

Public Sub GetWhiteBalance As String
    r.target = parameters
    Return r.RunMethod("getWhiteBalance")
End Sub

Public Sub SetWhiteBalance(Mode As String)
    r.target = parameters
    r.RunMethod2("setWhiteBalance", Mode, "java.lang.String")
End Sub

Sub Button1_Click
   
    For i=0 To L.Size-1
       
        Dim testval As String=L.Get(i)
        If testval=CurMode Then
            If i <L.Size-1 Then CurMode=L.Get(i+1) Else CurMode=L.Get(0)
           
            camEx.SetWhiteBalance(CurMode)
           
            ToastMessageShow(camEx.GetWhiteBalance,False)
            camEx.StopPreview
            camEx.CommitParameters
            camEx.StartPreview
            Exit
        End If
       
    Next
End Sub

#Region  Project Attributes
    #ApplicationLabel: Cam
    #VersionCode: 5
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: False
#End Region

Sub Process_Globals
    Private frontCamera As Boolean = False
    Private usbserial As felUsbSerial
    Private manager As UsbManager
    Dim DisableCameraTimer As Timer
    Dim TakePicTimer As Timer
End Sub

Sub Globals
    Private Panel1 As Panel
    Private Panel2 As Panel
    Private camEx As CameraExClass
    Private btnTakePicture As Button
    Dim awake As PhoneWakeState
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("allinone")

       If FirstTime Then
    manager.Initialize
      End If

    DisableCameraTimer.Initialize("DisableCameraTimer1",300)
    TakePicTimer.Initialize("pictimer",300)
    awake.KeepAlive(True)
End Sub


Sub Activity_Resume
    InitializeCamera
    manager.Initialize
    awake.KeepAlive(True)
End Sub

Private Sub InitializeCamera
    camEx.Initialize(Panel2, frontCamera, Me, "Camera1")
    DisableCameraTimer.Enabled=True
    frontCamera = camEx.Front
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    camEx.Release
    awake.ReleaseKeepAlive
End Sub

Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camEx.SetColorEffect("none")
        camEx.SetFlashMode("Off")
        camEx.SetPictureSize(4032, 3024)
        camEx.ExposureCompensation=-6
        camEx.CommitParameters
        camEx.StartPreview
    Else
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub

Sub btnTakePicture_Click
    If mode_select = "I" Then
        camEx.TakePicture
    Else
        camEx.SetFlashMode("torch")
        camEx.CommitParameters
        camEx.TakePicture
    End If
    btnTakePicture.Enabled = False
End Sub

Sub DisableCameraTimer1_Tick
    DisableCameraTimer.Enabled=False
    ProgressDialogHide
End Sub

Sub pictimer_Tick
    TakePicTimer.Enabled=False
    PicTake
End Sub

Sub PicTake
    camEx.TakePicture
    btnTakePicture.Enabled = False
End Sub

Sub Camera1_PictureTaken (Data() As Byte)
    camEx.SetFlashMode("off")
    camEx.CommitParameters
        Else  
    End If
End Sub