Displaying an AppIcon in an ImageVIew

manicmonkey said:

Probably an elementary question but I spent a couple of hours trying to figure this out.

I'm using pm.GetApplicationIcon(Main.packageName) to get the application Icon but nothing I can do will render it in my ImageView. My latest try was:

imgAppIcon.Background = pm.GetApplicationIcon(Main.packageName)

Click to expand...

Sub GetPackageName As String
    Dim r As Reflector
    Return r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
End Sub
Sub Activity_Resume
    Activity.Background = pm.GetApplicationIcon(GetPackageName)
End Sub

Informatix said:

Do you get a good result with this code?

B4X:

Sub GetPackageName As String
    Dim r As Reflector
    Return r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
End Sub
Sub Activity_Resume
    Activity.Background = pm.GetApplicationIcon(GetPackageName)
End Sub

Click to expand...

NJDude said:

You can try this code too:

B4X:

Dim pm As PackageManager
Dim Icons As BitmapDrawable

pPack = "com.google.android.youtube"

Icons = pm.GetApplicationIcon(pPack)
            
ImageView1.Background = Icons

Click to expand...

manicmonkey said:

Yep, setting the Icon to the background works but the icon is stretched to fit the whole screen.

Activity.Background = pm.GetApplicationIcon(Main.packageName)

I was hoping to just usa an imageview to contain it.

mm.

Click to expand...

Informatix said:

If that works, then there's no reason for not working with your ImageView. Set the gravity of your ImageView to NO_GRAVITY or CENTER to avoid stretching.

Click to expand...

Dim pm As PackageManager
Dim Icons As BitmapDrawable

pPack = "com.google.android.youtube"

Icons = pm.GetApplicationIcon(pPack)
          
return Icons.Bitmap

Java.lang.ClassCastException:
android.graphics.drawable.VectorDrawable cannot be cast to Android.graphics.drawable.bitmapDrawable

Click to expand...

Sub GetPackageIcon(PackageName As String) As Bitmap
   Dim PM As PackageManager, Data As Object = PM.GetApplicationIcon(PackageName)
   If Data Is BitmapDrawable Then
       Dim Icon As BitmapDrawable = Data
       Return Icon.Bitmap
   Else
       Return GetBmpFromDrawable(Data, 48dip)
   End If
End Sub

Sub GetBmpFromDrawable(Drawable As Object, Size As Int) As Bitmap
   Dim BMP As Bitmap, BG As Canvas, Drect As Rect
   BMP.InitializeMutable(Size,Size)
   Drect.Initialize(0,0,Size,Size)
   BG.Initialize2(BMP)
   BG.DrawDrawable(Drawable,Drect)
   Return BG.Bitmap
End Sub