B4J Library [ABMaterial]: MashUserStatus

Hi there...

This post is about the extension for the image control.

1. The image control can have a border and is also hoverable. The border is theme-able.
2. The last three buttons in the video indicate "user status", the themed circle badge indicators on the images (bottom right of image) that indicate the online status of a user with their display picture.
3. Both these controls are click-able.


Coming to MashPlugIns.

These are addable easier like...

img.Initialize(page,"mashy","../images/sponge.png",True)
    img.Circle = True
    img.SetSize("60","60")
    'img.SetBadge("15","whiteorange")
    img.Bordered = True
    img.SetBorderColor(ABM.COLOR_INDIGO,ABM.INTENSITY_DARKEN2)
    img.SetMargins("10")
    img.arrayname = "images"
    img.Responsive = True
    'page.Cell(3,1).AddComponent(img.ABMComp)
   
    img1.Initialize(page,"teencoach","../images/152.png",True)
    'img1.SetBadge("44","whiteorange")
    img1.Bordered = True
    img1.SetMargins("10")
    img1.arrayname = "images"
    img1.Responsive = True
    img1.RoundedCorners = True
    img1.Circle = True
    img1.SetSize(200,200)
    'page.Cell(3,1).AddComponent(img1.ABMComp)
   
    imgs.Initialize(page,"statusimage","../images/sponge.png",True,"whitegreen")
    imgs.SetSize("90","90")
    imgs.ArrayName = "statusimage"
    imgs.Bordered = True
    'page.Cell(3,1).AddComponent(imgs.ABMComp)
   
    Dim imgMom As MashUserStatus
    imgMom.Initialize(page,"mom","../images/mom.jpg",True,"redgreen")
    imgMom.SetSize("90","90")
    imgMom.ArrayName = "statusimage"
    'imgMom.Bordered = True
    'page.Cell(3,1).AddComponent(imgMom.ABMComp)
   
    Dim imga As MashUserStatus
    imga.Initialize(page,"car","../images/1.jpg",True,"whitered")
    imga.SetSize("90","90")
    imga.ArrayName = "statusimage"
    'imgMom.Bordered = True
    'page.Cell(3,1).AddComponent(imga.ABMComp)
   
    Dim imge As MashUserStatus
    imge.Initialize(page,"eric","../images/eric.png",True,"whitered")
    imge.SetSize("90","90")
    imge.ArrayName = "statusimage"
    imge.warn
    'page.Cell(3,1).AddComponent(imge.ABMComp)