B4A Library DesignSupport - Additional Material Design components

'Define MSIconicDrawable Icon
Dim IconHome As MSIconicDrawable    : IconHome.Initialize("gmd_home")     : IconHome.Color = 0xff808080

'Then use the above MSIconicDrawable Icon to display on the NavDrawer
NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", IconHome.Drawable).Checked = True

NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", Chr(0xF015)).Checked = True

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private NavDrawer As DSNavigationDrawer
    Private ActionBar As ACToolBarLight

End Sub

Sub Activity_Create(FirstTime As Boolean)

    'This should be called before calling Activity.LoadLayout("LayoutFile")
    NavDrawer.Initialize2("NavDrawer", Activity, NavDrawer.DefaultDrawerWidth, NavDrawer.GRAVITY_START)

    Activity.LoadLayout("HomePage")
    ActionBar.InitMenuListener

    BuildNavDrawer

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub BuildNavDrawer

    NavDrawer.InitDrawerToggle
    NavDrawer.NavigationView.LoadLayout( "NavHeaderLayout", NavDrawer.DefaultHeaderHeight)

    'Defining all Icons to be used on the Navigation Drawer
    Dim IconHome As MSIconicDrawable          : IconHome.Initialize("gmd_home")           : IconHome.Color = 0xff808080
    Dim IconAbout As MSIconicDrawable : IconAbout.Initialize("faw_info")  :    IconAbout.Color = 0xff808080

    NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", Chr(0xF015)).Checked = True
    NavDrawer.NavigationView.Menu.AddWithGroup2(6, 600, 600, "About", IconAbout.Drawable)

End Sub

NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home",TextToBitmap(Chr(0xF0EE), 30)   ).Checked = True

Dim oBitMap As BitmapDrawable
oBitMap = TextToBitmap(Chr(0xF0EE), 30)
NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", oBitMap   ).Checked = True

Dim oBitMap As Bitmap
oBitMap = TextToBitmap(Chr(0xF0EE), 30)
NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", oBitMap   ).Checked = True

Dim oBitMap As BitmapDrawable
oBitMap.Initialize(TextToBitmap(Chr(0xF0EE), 30))
NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", oBitMap   ).Checked = True

'Here I have the option to change the color of the icon
Dim IconHome As MSIconicDrawable  : IconHome.Initialize("gmd_home")  : IconHome.Color = 0xffff4081

'In this case how do I change the color of the icon ? ie TextToBitmap(Chr(0xF0EE), 30)
Dim oBitMap As BitmapDrawable
oBitMap.Initialize(TextToBitmap(Chr(0xF0EE), 30))

NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", oBitMap  ).Checked = True
NavDrawer.NavigationView.Menu.AddWithGroup(1, 2, 2, "My Menu", TextToBitmap(Chr(0xF209), 30)  ).Checked = True

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, Typeface.FONTAWESOME, FontSize)
   'Tried changing the color in the next line, but no effect on the final image. It is appearing as grey only
   cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, Typeface.FONTAWESOME, FontSize, Colors.White, "CENTER")
   Return bmp
End Sub

TabLayout.color=colors.white

Dim bRipple As RippleDrawable
bRipple.Initialize(color1, color2)
P.Background = bRipple.Drawable

'JAVA CODE
public void Initialize(int DefaultColor, int PressedColor)
    {
        ColorStateList Pressed = getColorStateList(PressedColor);
        ColorDrawable Default = new ColorDrawable(DefaultColor);
        rd = new RippleDrawable(Pressed, Default, null);
    }