Other [new feature] FontAwesome and Material Icons

MarcoRome said:

When will be ready the next Rel B4A ?

Click to expand...

MarcoRome said:

But will be possible set FontAwesome + Text, right ?

Click to expand...

Erel said:

Note that the Chr(0xxxx) comes from the code editor icon picker.

Click to expand...

chefe82 said:

With B4A 6.50 I do not have the menu point.

Click to expand...

Erel said:

The icons are regular characters. It is possible to convert them to drawables with:

B4X:

Sub Activity_Create(FirstTime As Boolean)
   Activity.AddMenuItem3("Apple", "Test", TextToBitmap(Chr(0xF179), 28), True)
   Activity.AddMenuItem3("Android", "Test", TextToBitmap(Chr(0xF17B), 28), True)
End Sub

Sub TextToBitmap (s As String, FontSize As Float) As Bitmap
   Dim bmp As Bitmap
   bmp.InitializeMutable(32dip, 32dip)
   Dim cvs As Canvas
   cvs.Initialize2(bmp)
   Dim h As Double = cvs.MeasureStringHeight(s, lblfontAwesome.Typeface, FontSize)
   cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, lblfontAwesome.Typeface, FontSize, Colors.White, "CENTER")
   Return bmp
End Sub

Note that the Chr(0xxxx) comes from the code editor icon picker.

Click to expand...

NavDrawer.NavigationView.Menu.AddWithGroup2(2, 3, 1000, "Setting", XML.GetDrawable("ic_settings_black_24dp"))

NavDrawer.NavigationView.Menu.AddWithGroup2(2, 3, 1000, "Setting", TextToBitmap(Chr(0xF179), 28))

Sapta said:

Hi @Erel
According this code, I use in Icon but error

B4X:

NavDrawer.NavigationView.Menu.AddWithGroup2(2, 3, 1000, "Setting", XML.GetDrawable("ic_settings_black_24dp"))

to ..

B4X:

NavDrawer.NavigationView.Menu.AddWithGroup2(2, 3, 1000, "Setting", TextToBitmap(Chr(0xF179), 28))

got error : java.lang.IllegalArgumentException: method de.amberhome.objects.appcompat.ACMenuWrapper.AddWithGroup2 argument 5 has type android.graphics.drawable.Drawable, got android.graphics.Bitmap

What this mean?
Thank you

Click to expand...

Dim bd As BitmapDrawable
    bd.Initialize(TextToBitmap(Chr(0xF179), 28))
    NavDrawer.NavigationView.Menu.AddWithGroup2(2, 3, 1000, "Setting", bd)

Sapta said:

According this code, I use in Icon but error

Click to expand...