iOS Question SetBadge in BarButton

[MarcoRome]

Hi all is possibile set SetBadge in BarButton.

i tried with:

Dim b1 As BarButton
b1.InitializeBitmap(KeepOriginalColors(LoadBitmap(File.DirAssets, "cart.png")), "left")
....
badger1.SetBadge(b1, 2)

but the app crash.
Thank you

 

[Erel]

BarButton is not a view. You can draw over the bitmap with B4XCanvas and then create a new BarButton. It shouldn't be too complicated.

A bit similar to this example: https://www.b4x.com/android/forum/threads/appcompat-with-toolbar-minimal-example.79896/

 

[MarcoRome]

Hi Erel
I tried but there are a lot of differences.
Can you give me a hand please.
Thank you

..
badge = badge + 1
UpdateIcon("cart", AddBadgeToIcon(cartBitmap, badge))
....


Sub AddBadgeToIcon(bmp As Bitmap, Number As Int) As Bitmap
    Dim cvs As Canvas
    Dim mbmp As Bitmap
    mbmp.InitializeMutable(32dip, 32dip)
    cvs.Initialize2(mbmp)
    Dim target As Rect
    target.Initialize(0, 0, mbmp.Width, mbmp.Height)
    cvs.DrawBitmap(bmp, Null, target)
    If Number > 0 Then
        cvs.DrawCircle(mbmp.Width - 8dip, 8dip, 8dip, Colors.Red, True, 0)
        cvs.DrawText(Min(Number, 9), mbmp.Width - 8dip, 12dip, Typeface.DEFAULT_BOLD, 12, Colors.White, "CENTER")
    End If
    Return mbmp
End Sub

Sub UpdateIcon(MenuTitle As String, Icon As Bitmap)
    Dim m As ACMenuItem = GetMenuItem(MenuTitle)
    m.Icon = BitmapToBitmapDrawable(Icon)
End Sub

Sub BitmapToBitmapDrawable (bitmap As Bitmap) As BitmapDrawable
    Dim bd As BitmapDrawable
    bd.Initialize(bitmap)
    Return bd
End Sub

 

[Erel]

Start with this code: https://www.b4x.com/android/forum/threads/b4x-xui-create-a-round-image.85102/#content
It shows you how to create a B4XCanvas and draw a bitmap. You need to draw a red circle and the text.

 

[Christian García S.]

Hello @MarcoRome

Could you implement the badge inside the barbutton?