Sub Process_Globals
Dim xui As XUI
End Sub
Sub Globals
Private bottomMenu As ASTabMenu
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("DashboardLayout")
bottomMenu.SelectedTabTextColor = Colors.Gray
bottomMenu.AddTab(xui.Color_ARGB(255,55, 255, 255),"Test",bottomMenu.FontToBitmap(Chr(0xF015),False,30,xui.Color_Red),"")
bottomMenu.AddTab(xui.Color_ARGB(255,55, 255, 255),"Test1",bottomMenu.FontToBitmap(Chr(0xF179),False,30,xui.Color_LightGray),"")
bottomMenu.AddTab(xui.Color_ARGB(255,55, 255, 255),"Test3",bottomMenu.FontToBitmap(Chr(0xF11B),False,30,xui.Color_LightGray),"")
bottomMenu.AddTab(xui.Color_ARGB(152,55, 255, 255),"Test4",bottomMenu.FontToBitmap(Chr(0xE859),True,30,xui.Color_LightGray),"")
bottomMenu.CurrentTabUnderlineGravity = bottomMenu.CurrentTabUnderlineGravity_BOTTOMRIGHT
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub bottomMenu_TabClick(index As Int)
End Sub
Sub rb_underlineanimation_normal_CheckedChange(Checked As Boolean)
bottomMenu.CurrentTabUnderlineAnimation = bottomMenu.CurrentTabUnderlineAnimation_NORMAL
End Sub
Sub rb_underlineanimation_stretch_CheckedChange(Checked As Boolean)
End Sub
Sub cb_underlinevisible_CheckedChange(Checked As Boolean)
bottomMenu.CurrentTabUnderline = Checked
End Sub
Sub sp_style_ItemClick (Position As Int, Value As Object)
bottomMenu.TabStyle = Value
End Sub
Sub Activity_Click
End Sub
Sub cb_partinglinevisible_CheckedChange(Checked As Boolean)
bottomMenu.PartingLineVisible = Checked
End Sub
Sub sp_gravity_ItemClick (Position As Int, Value As Object)
bottomMenu.CurrentTabUnderlineGravity = Value
End Sub
Sub sp_badge_gravity_ItemClick (Position As Int, Value As Object)
bottomMenu.Badge_Gravity = Value
End Sub