Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    toast.Initialize(Root)
    
    rp.CheckAndRequest(rp.PERMISSION_CAMERA)
    Wait For B4XPage_PermissionResult (permission As String, Result As Boolean)
    If Result Then
        B4XPages.SetTitle(Me," ok Permessi")
    Else
        B4XPages.SetTitle(Me,"nessun permesso")
    End If
        
    StopCamera
    B4XPages.SetTitle(Me, "-----")
    #if B4A
    CreateDetector (Array("CODE_128", "CODE_93", "QR_CODE"))
    #Else if B4i
    scanner.Initialize2("scanner", pnlPreview, Array(scanner.TYPE_93, scanner.TYPE_128, scanner.TYPE_QR))
    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