B4J Library [ABMaterial]: MashProjects

Hi y'all

This is an addition to my Mash things for today. MashProject seeks to provide a dashboard for your projects. This can be linked to the MashTasks component too with subtasks (haven't added that yet).

The sparklines can either be a bar / line chart and can be color coded to the category of the project (can turn this off)

project1.png


project2.png


This is DonationWare.

PS:

Adding the projects is also a breeze...

B4X:
ABMShared.AddTheme("redgreen",ABM.COLOR_LIGHTBLUE,"",ABM.COLOR_YELLOW,ABM.INTENSITY_LIGHTEN3)
    projects.Initialize(page,"projects","redgreen")
    projects.Title = "Projects"
    projects.SubTitle = ABMShared.LongDateToday
    'add categories
    projects.AddCategory("feasibility study", ABM.COLOR_ORANGE)
    projects.AddCategory("planning", ABM.COLOR_AMBER)
    projects.addcategory("initialization", ABM.COLOR_BLUE)
    projects.AddCategory("execution", ABM.COLOR_GREEN)
    projects.AddCategory("finish", ABM.COLOR_PURPLE)
    projects.AddCategory("marketing", ABM.COLOR_BROWN)
    projects.AddCategory("development", ABM.COLOR_CYAN)
    'add projects
    projects.AddProject("1","TGIF","planning","TGIF INC.")
    projects.AddProject("2","Ask TeenCoach","execution","Mayine Foundation")
    projects.AddProject("3","Project.Show","development","SAFIRI")
    projects.AddProject("4", "Bible.Show", "marketing", "DanNora Business Solutions")
    projects.ZDepth = ABM.ZDEPTH_2   
    'add progress
    projects.AddProgress("1", ABMShared.CreateList(",","5,6,7,9,9,5,3,2,2,4,6,7"))
    projects.AddProgress("2", ABMShared.CreateList(",","6,7,5,6,7,9,9,5,3,2,2,4"))
    projects.AddProgress("3", ABMShared.CreateList(",","2,4,6,7,5,6,7,9,5,6,7,9"))
    projects.AddProgress("4", ABMShared.CreateList(",","9,5,3,2,2,4,6,7,5,6,7,9"))
    projects.SparkLineChartType = projects.EnumSparkLineType.line
    projects.SparkLineSetColor(ABM.COLOR_GREEN,ABM.INTENSITY_DARKEN2)
    'turn off color coding sparklines to the category
    projects.SparkLineColorCode = True
    page.Cell(1,1).AddComponent(projects.ABMComp)
 
Top