Android Question Intent.ACTION_PICK with Nexus

[gerardguerin]

Strange bug, I have a ImageView with a click to select a picture and crop them and display, that work well on all device except on the Nexus device.

Testing device: Nexus 5, Android 6.0.1

Any idea about what wrong?

sub imgUser_Click
   onoff = True
   Dim Intent As Intent
   Intent.Initialize(Intent.ACTION_PICK, "")
   Intent.SetType("image/*")
   Intent.PutExtra("crop", "true") 'crop ON
   Intent.PutExtra("aspectX", 1) 'crop aspects
   Intent.PutExtra("aspectY", 1) 'crop aspects
   Intent.PutExtra("outputX", 100) 'crop size
   Intent.PutExtra("outputY", 100) 'crop size
   Intent.PutExtra("output", ParseUri("file://" & File.Combine(File.DirRootExternal, "temp.jpg")))
   StartActivity(Intent)
end sub

Sub Activity_Resume
   If onoff = True Then
     'Verification si photo exist
     If File.Exists(File.DirRootExternal, "temp.jpg") Then
       onoff = False
       imgUser.Bitmap = LoadBitmap(File.DirRootExternal, "temp.jpg")
     End If
   End If
End Sub

 

[Erel]

You should use ContentChooser instead.

 

[gerardguerin]

Ok I will try, it possible with ContentChooser to select a region to crop? like Intent.ACTION_PICK

 

[gerardguerin]

Thank Erel, that work well with ContentChooser, just missing the crop selection, I going to find them.

 

[Luiz Orlandini]

Thank Erel, that work well with ContentChooser, just missing the crop selection, I going to find them.

Did you find any solution to the crop thing?

Cheers

 

[gerardguerin]

Yes I finally found my solution. I use ContentChooser with a function to crop after select the image.

Sample code I use and the "Crop" bas/bal

Sub Process_Globals
   Dim Chooser As ContentChooser
End Sub

Sub Activity_Create(FirstTime As Boolean) 
   Chooser.Initialize("ImageSelect")
End sub

Sub BtnImageSelect_Click
   Chooser.Show("image/*", "Select an image")
End Sub

Sub ImageSelect_Result (Success As Boolean, Dir As String, FileName As String)
   If Success Then
     Starter.ImageDir = Dir
     Starter.ImageName = FileName
     StartActivity(Crop)
   Else
     ToastMessageShow("No image selected", True)
   End If
End Sub

I hope this help

 

[VictorTandil]

Which library is that? Where do I download it?

 

[gerardguerin]

Which library is that? Where do I download it?

Hi Victor, you just need the sample file crop.bas and crop.bal with the sample code to use it.

 

[VictorTandil]

It gives me an error in the "MFImageCropper" type. How do I incorporate this custom view?