B4A Library MSMaterialMenu - Animating icons

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim r As MSMaterialRipple
    r.Initialize
    spanel.AddView(r,  10dip,200dip, 100%x - 20dip, 48dip)
    b.Initialize("b")
    b.Text = "Change Icon"
    r.Panel.AddView(b, 0dip,0dip, r.Width, r.Height)
    r.SetDuration(50)
    r.SetZoom(100,0.9)
    r.SetupChildViewEvents(b)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim builder As DialogBuilder
    builder.Initialize("MyDialog")
    builder.setTitle("Title").setMessage("This is the message").setThemeColor(Colors.Red)
    builder.setButton(-1, "OK")
    'builder.setButtonTextColor(-1, Colors.Green)
    'builder.setButton(-2, "No")
    'builder.setButton(-3, "Cancel")
    builder.setCancelable(True)
    builder.setThemeColor(Colors.Green)
    builder.setDesign(builder.DESIGN_MATERIAL_LIGHT)
    builder.setEditTextStyle("Text","Hint",Colors.Black,Colors.Gray,dumy.INPUT_TYPE_TEXT)
    'builder.setListStyle(Array As String("Yellow","Green","Blue","Red"))
    builder.show

Sub MyDialog_DialogResponse(Buttonclicked As Int) As Boolean 
    Log(Buttonclicked)
    Return True
End Sub

Sub MyDialog_ItemAccepted(SelectedItem As String)
    Log(SelectedItem)   
End Sub

Sub MyDialog_TextAccepted(SelectedText As String)
    Log(SelectedText)
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim MMenu As MSMaterialMenu 
    MMenu.Initialize("MMenu")
    MMenu.setScaleAndStroke(1,2)
    MMenu.Color = Colors.White
    StdABHelper.Icon = MMenu.Drawable 


Sub NavDrawer_DrawerOpened (DrawerGravity As Int)
    'MMenu.animateState("X")
    isDrawerOpened = True
End Sub

Sub NavDrawer_DrawerClosed (DrawerGravity As Int)
    'MMenu.animateState("BURGER")
    isDrawerOpened = False
End Sub

Sub NavDrawer_DrawerSlide (Position As Float, DrawerGravity As Int)
    Dim slideOffset As Float 
    If isDrawerOpened Then
        slideOffset = 2 - Position
    Else
        slideOffset = Position
    End If
    MMenu.setTransformationOffset("BURGER_ARROW",slideOffset)
End Sub

'Declared in Globals
    Private StdAB As StdActionBar 
    Private StdABH As StdActionBarHelper
    Private MMenu As MSMaterialMenu

'In Activity_Create
    StdAB.Initialize("StdAB")
    StdAB.Subtitle = "Animate"
    StdAB.ShowUpIndicator = True 
    'StdAB.Icon = LoadBitmap(File.DirAssets, "ic_drawer.png")
    StdAB.Icon = Null

    StdABH.Initialize
    MMenu.Initialize(Null)
    MMenu.setScaleAndStroke(1, 2)
    MMenu.Color = Colors.White
    'StdABH.Icon = MMenu.Drawable
    StdABH.SetHomeAsUpIndicator(MMenu.Drawable)

'More code
Sub StdAB_ButtonClicked
    CallSub(Null, ClickCloseDrawer)
End Sub

Sub Activity_ActionBarHomeClick
    CallSub(Null, ClickCloseDrawer)
End Sub

Sub ClickCloseDrawer
    If MMenu.State = "BURGER" Then
        MMenu.animatePressedState("X")
        'MMenu.animateState("X")'Test
        NavDrawer.OpenDrawer
    Else
        MMenu.animatePressedState("BURGER")
        'MMenu.animateState("BURGER") 'Test
        NavDrawer.CloseDrawer
    End If 
End Sub

'The rest is just standard code.
Sub MLVSub_itemclick(Position As Int, Value As Object)
    ToastMessageShow(Value, False) 
    NavDrawer.CloseDrawer
End Sub

Sub NavDrawer_DrawerOpened (DrawerGravity As Int)
    'MMenu.animatePressedState("X")'Test
    MMenu.animateState("X")
    isDrawerOpened = True
End Sub

Sub NavDrawer_DrawerClosed (DrawerGravity As Int)
    'MMenu.animatePressedState("BURGER")'Test
    MMenu.animateState("BURGER")
    isDrawerOpened = False
End Sub

Sub NavDrawer_DrawerSlide (Position As Float, DrawerGravity As Int)
    Dim slideOffset As Float
 
    Log(Position)

    If isDrawerOpened Then
        slideOffset = 2 - Position
    Else
        slideOffset = Position
    End If
 
    MMenu.setTransformationOffset("BURGER_ARROW", slideOffset)
End Sub

Sub NavigationBar_ButtonClicked
    Dim alto As Int
    Dim ancho As Int
    alto = Activity.Height
    ancho = Activity.Width
   
    Dim left As Int
    left = ancho / 4
   
    Dim left1 As Int
    left1 = left * 3
   
    Dim imagenfondo As ImageView
    imagenfondo.Initialize ("Imagenfondo")
    Activity.AddView (imagenfondo, left1, 0, 25%x, 100%y)
    imagenfondo.Color = Colors.Transparent
   
    If MaterialMenu.State = "BURGER" Then
        MaterialMenu.animatePressedState("X") 
        SlidingMenu.Show
   
        imagenfondo.BringToFront  
    Else
        MaterialMenu.animatePressedState("BURGER")
        SlidingMenu.Hide 
        imagenfondo.SendToBack
    End If
End Sub

Sub imagenfondo_click
   
    If MaterialMenu.State= "X" Then
       SlidingMenu.Hide 
        MaterialMenu.animatePressedState("BURGER")
    End If
End Sub