B4J Library [ABMaterial]: MashInfoBox

Hi there

The name says it all, an information box for your dashboards..


Coming soon to MashPlugIns

Trapping the infobox events, the property ArrayName has been set to 'infobox'

Sub infobox_click(value As Map)
    Dim valuex As String = value.Get("value")
    page.Msgbox("",valuex,"","OK",False,"","")
End Sub

These are the variants per youtube above...

Dim mib As MashInfoBox
    mib.Initialize(page,"mib",MashPlugIns.MaterialIcons.mdi_shopping_cart,"NEW ORDERS","125",12,3,3,MashPlugIns.EnumThemes.danger)
    mib.Animated = True
    'page.cell(2,1).AddComponent(mib.ABMComp)
    
    Dim mib1 As MashInfoBox
    mib1.Initialize(page,"mib1",MashPlugIns.MaterialIcons.mdi_face,"NEW MEMBERS","257",12,3,3,MashPlugIns.EnumThemes.warn)
    mib1.Animated = True
    'page.cell(2,1).AddComponent(mib1.ABMComp)
    
    Dim mib2 As MashInfoBox
    mib2.Initialize(page,"mib2",MashPlugIns.MaterialIcons.mdi_bookmark,"BOOKMARKS","117",12,3,3,MashPlugIns.EnumThemes.success)
    mib2.Animated = True
    'page.cell(2,1).AddComponent(mib2.ABMComp)
'   
    Dim mib3 As MashInfoBox
    mib3.Initialize(page,"mib3",MashPlugIns.MaterialIcons.mdi_favorite,"LIKES","1432",12,3,3,MashPlugIns.EnumThemes.info)
    mib3.Animated = True
    'page.cell(2,1).AddComponent(mib3.ABMComp)
    
    'HoverZoom
    Dim mib4 As MashInfoBox
    mib4.Initialize(page,"mib4",MashPlugIns.MaterialIcons.mdi_email,"EMAIL","15",12,3,3,MashPlugIns.EnumThemes.danger)
    mib4.HoverZoom = True
    'page.cell(2,1).AddComponent(mib4.ABMComp)
    
    Dim mib5 As MashInfoBox
    mib5.Initialize(page,"mib5",MashPlugIns.MaterialIcons.mdi_devices,"CPU USAGE","92%",12,3,3,MashPlugIns.EnumThemes.warn)
    mib5.HoverZoom = True
    'page.cell(2,1).AddComponent(mib5.ABMComp)
    
    Dim mib6 As MashInfoBox
    mib6.Initialize(page,"mib6",MashPlugIns.MaterialIcons.mdi_access_alarm,"ALARM","2:50 PM",12,3,3,MashPlugIns.EnumThemes.success)
    mib6.HoverZoom = True
    'page.cell(2,1).AddComponent(mib6.ABMComp)
    
    Dim mib7 As MashInfoBox
    mib7.Initialize(page,"mib7",MashPlugIns.MaterialIcons.mdi_gps_fixed,"LOCATION","East London, RSA",12,3,3,MashPlugIns.EnumThemes.info)
    mib7.HoverZoom = True
    'page.cell(2,1).AddComponent(mib7.ABMComp)
    
    'Hoverexpand
    Dim mib8 As MashInfoBox
    mib8.Initialize(page,"mib8",MashPlugIns.MaterialIcons.mdi_equalizer,"RATE","62%",12,3,3,MashPlugIns.EnumThemes.tealbc)
    mib8.HoverExpand = True
    'page.cell(2,1).AddComponent(mib8.ABMComp)
    
    Dim mib9 As MashInfoBox
    mib9.Initialize(page,"mib9",MashPlugIns.MaterialIcons.mdi_flight_takeoff,"FLIGHT","06:00 AM",12,3,3,MashPlugIns.EnumThemes.greenbc)
    mib9.HoverExpand = True
    'page.cell(2,1).AddComponent(mib9.ABMComp)
    
    MashPlugIns.AddTheme("rw","red","","white","")
    Dim mib10 As MashInfoBox
    mib10.Initialize(page,"mib10",MashPlugIns.MaterialIcons.mdi_battery_charging_full,"BATTERY","CHARGING",12,3,3,MashPlugIns.EnumThemes.lightgreenbc)
    mib10.HoverExpand = True
    mib10.IconTheme = "rw"
    'page.cell(2,1).AddComponent(mib10.ABMComp)
    
    Dim mib11 As MashInfoBox
    mib11.Initialize(page,"mib11",MashPlugIns.MaterialIcons.mdi_brightness_low,"BRIGHTNESS","40%",12,3,3,MashPlugIns.EnumThemes.limebc)
    mib11.HoverExpand = True
    mib11.ThemeContent = True
    'page.cell(2,1).AddComponent(mib11.ABMComp)