Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
toast.Initialize(Root)
StopCamera
B4XPages.SetTitle(Me, "Barcode Example")
#if B4A
CreateDetector (Array("CODE_128", "CODE_93", "QR_CODE", "EAN_13"))
#Else if B4i
scanner.Initialize2("scanner", pnlPreview, Array(scanner.TYPE_93, scanner.TYPE_128, scanner.TYPE_QR, scanner.TYPE_EAN13))
Wait For Scanner_Ready (Success As Boolean)
If Success = False Then
btnStartStop.Enabled = False
toast.Show("Failed to initialize the scanner.")
End If
#end if
End Sub