..

B4A/CameraExClass.bas

@@ -50,7 +50,7 @@ Private Sub FindCamera (frontCamera As Boolean) As CameraInfoAndId
 		r.RunStaticMethod("android.hardware.Camera", "getCameraInfo", Array As Object(i, cameraInfo), _
 			Array As String("java.lang.int", "android.hardware.Camera$CameraInfo"))
 		r.target = cameraInfo
-		If r.GetField("facing") = cameraValue Then 'ignore
+		If r.GetField("facing") = cameraValue Then 
 			ci.cameraInfo = r.target
 			ci.Id = i
 			Return ci
@@ -76,7 +76,7 @@ Private Sub SetDisplayOrientation
 	Else
 		previewResult = (orientation - degrees + 360) Mod 360
 		result = previewResult
-'		Log(previewResult)
+		Log(previewResult)
 	End If
 	r.target = nativeCam
 	r.RunMethod2("setDisplayOrientation", previewResult, "java.lang.int")
@@ -103,7 +103,6 @@ Sub Camera_Preview (Data() As Byte)
 		CallSub2(target, event & "_preview", Data)
 	End If
 End Sub
-
 Public Sub TakePicture
 	cam.TakePicture
 End Sub
@@ -242,24 +241,24 @@ Public Sub PreviewImageToJpeg(data() As Byte, quality As Int) As Byte()
 End Sub
 
 Public Sub GetSupportedFocusModes As List
-	r.target = parameters
-	Return r.RunMethod("getSupportedFocusModes")
+    r.target = parameters
+    Return r.RunMethod("getSupportedFocusModes")
 End Sub
 
 Public Sub SetContinuousAutoFocus
-	Dim modes As List = GetSupportedFocusModes
-	If modes.IndexOf("continuous-picture") > -1 Then
-		SetFocusMode("continuous-picture")
-	Else If modes.IndexOf("continuous-video") > -1 Then
-		SetFocusMode("continuous-video")
-	Else
-		Log("Continuous focus mode is not available")
-	End If
+    Dim modes As List = GetSupportedFocusModes
+    If modes.IndexOf("continuous-picture") > -1 Then
+        SetFocusMode("continuous-picture")
+    Else If modes.IndexOf("continuous-video") > -1 Then
+        SetFocusMode("continuous-video")
+    Else
+        Log("Continuous focus mode is not available")
+    End If
 End Sub
 
 Public Sub SetFocusMode(Mode As String)
-	r.target = parameters
-	r.RunMethod2("setFocusMode", Mode, "java.lang.String")
+    r.target = parameters
+    r.RunMethod2("setFocusMode", Mode, "java.lang.String")
 End Sub
 
 Public Sub GetFocusDistances As Float()
@@ -268,7 +267,6 @@ Public Sub GetFocusDistances As Float()
 	r.RunMethod4("getFocusDistances", Array As Object(F), Array As String("[F"))
 	Return F
 End Sub
-
 'This method should only be called if you need to immediately release the camera.
 'For example if you need to start another application that depends on the camera.
 Public Sub CloseNow
@@ -276,12 +274,10 @@ Public Sub CloseNow
 	r.target = cam
 	r.RunMethod2("releaseCameras", True, "java.lang.boolean")
 End Sub
-
 'Calls AutoFocus and then takes the picture if focus was successfull.
 Public Sub FocusAndTakePicture
 	cam.AutoFocus
 End Sub
-
 Private Sub Camera_FocusDone (Success As Boolean)
 	If Success Then
 		TakePicture