B4J Question [ABMaterial] How do I change the ABMCodeLabel's text and background color?

[Suntzu]

How do I change the ABMCodeLabel's text and background color?

Thank you in advance.

 

[Harris]

Themes....

public Sub BuildTheme()
    ' start with the base theme defined in ABMShared
    theme.Initialize("pagetheme")
    theme.AddABMTheme(ABMShared.MyTheme)
   
    theme.AddCellTheme("cnter")
    theme.Cell("cnter").Align = ABM.CELL_ALIGN_CENTER
   


    ' add additional themes specific for this page
    theme.AddTableTheme("tbltheme")
    theme.Table("tbltheme").ZDepth = ABM.ZDEPTH_1
   
    theme.Table("tbltheme").AddCellTheme("bg")
    theme.Table("tbltheme").Cell("bg").BackColor = ABM.COLOR_BLUEGREY
    theme.Table("tbltheme").Cell("bg").ForeColor = ABM.COLOR_WHITE   
    theme.Table("tbltheme").Cell("bg").Align = ABM.TABLECELL_HORIZONTALALIGN_LEFT   
   
    theme.Table("tbltheme").AddCellTheme("bgr")
    theme.Table("tbltheme").Cell("bgr").BackColor = ABM.COLOR_BLUEGREY
    theme.Table("tbltheme").Cell("bgr").ForeColor = ABM.COLOR_WHITE
    theme.Table("tbltheme").Cell("bgr").Align = ABM.TABLECELL_HORIZONTALALIGN_RIGHT   
   
    theme.Table("tbltheme").AddCellTheme("bgc")
    theme.Table("tbltheme").Cell("bgc").BackColor = ABM.COLOR_BLUEGREY
    theme.Table("tbltheme").Cell("bgc").BackColorIntensity = ABM.INTENSITY_LIGHTEN1

    theme.Table("tbltheme").Cell("bgc").ForeColor = ABM.COLOR_YELLOW
    theme.Table("tbltheme").Cell("bgc").Align = ABM.TABLECELL_HORIZONTALALIGN_CENTER
    theme.Table("tbltheme").Cell("bgc").BorderWidth = 2
    theme.Table("tbltheme").Cell("bgc").BorderColor = ABM.COLOR_BLACK

    theme.Table("tbltheme").AddCellTheme("bgb")
    theme.Table("tbltheme").Cell("bgb").BackColor = ABM.COLOR_BLUEGREY
    theme.Table("tbltheme").Cell("bgb").BackColorIntensity = ABM.INTENSITY_LIGHTEN1

    theme.Table("tbltheme").Cell("bgb").ForeColor = ABM.COLOR_AMBER
    theme.Table("tbltheme").Cell("bgb").Align = ABM.TABLECELL_HORIZONTALALIGN_CENTER
    theme.Table("tbltheme").Cell("bgb").BorderWidth = 2
    theme.Table("tbltheme").Cell("bgb").BorderColor = ABM.COLOR_BLACK


    theme.Table("tbltheme").AddCellTheme("nocolor")
    theme.Table("tbltheme").Cell("nocolor").ActiveBackColor = ABM.COLOR_LIGHTGREEN
    theme.Table("tbltheme").Cell("nocolor").ActiveBackColorIntensity = ABM.INTENSITY_LIGHTEN2
    theme.Table("tbltheme").Cell("nocolor").Align = ABM.TABLECELL_HORIZONTALALIGN_CENTER


    theme.Table("tbltheme").AddCellTheme("positive")
    theme.Table("tbltheme").Cell("positive").BackColor = ABM.COLOR_GREEN
    theme.Table("tbltheme").Cell("positive").BackColorIntensity = ABM.INTENSITY_LIGHTEN3
    theme.Table("tbltheme").Cell("positive").ActiveBackColor = ABM.COLOR_GREEN
    theme.Table("tbltheme").Cell("positive").ActiveBackColorIntensity = ABM.INTENSITY_LIGHTEN1
    'theme.Table("tbltheme").Cell("positive").Align = ABM.TABLECELL_HORIZONTALALIGN_RIGHT
   
    theme.Table("tbltheme").AddCellTheme("negative")
    theme.Table("tbltheme").Cell("negative").BackColor = ABM.COLOR_RED
    theme.Table("tbltheme").Cell("negative").BackColorIntensity = ABM.INTENSITY_LIGHTEN3
    theme.Table("tbltheme").Cell("negative").ActiveBackColor = ABM.COLOR_RED
    theme.Table("tbltheme").Cell("negative").ActiveBackColorIntensity = ABM.INTENSITY_LIGHTEN1
    'theme.Table("tbltheme").Cell("negative").Align = ABM.TABLECELL_HORIZONTALALIGN_RIGHT
   
    theme.Table("tbltheme").AddCellTheme("points")   
    theme.Table("tbltheme").Cell("points").ActiveBackColor = ABM.COLOR_BLUEGREY
    theme.Table("tbltheme").Cell("points").ActiveBackColorIntensity = ABM.INTENSITY_LIGHTEN2
    theme.Table("tbltheme").Cell("points").Align = ABM.TABLECELL_HORIZONTALALIGN_RIGHT
   
    theme.Table("tbltheme").AddCellTheme("openedit")   
    theme.Table("tbltheme").Cell("openedit").ActiveBackColor = ABM.COLOR_BLUEGREY
    theme.Table("tbltheme").Cell("openedit").ActiveBackColorIntensity = ABM.INTENSITY_LIGHTEN2
    theme.Table("tbltheme").Cell("openedit").Align = ABM.TABLECELL_HORIZONTALALIGN_CENTER


    theme.AddRowTheme("rowtheme")
    theme.Row("rowtheme").BackColor = ABM.COLOR_BLUE
    theme.Row("rowtheme").BackColorIntensity = ABM.INTENSITY_LIGHTEN1
    theme.Row("rowtheme").BorderColor = ABM.COLOR_GREY
    theme.Row("rowtheme").BorderColorIntensity = ABM.INTENSITY_DARKEN4
    theme.Row("rowtheme").BorderWidth = 3

    ' add additional themes specific for this page
    theme.AddButtonTheme("bigblue")
    theme.Button("bigblue").BackColor = ABM.COLOR_LIGHTBLUE

    theme.AddButtonTheme("bigred")
    theme.Button("bigred").BackColor = ABM.COLOR_RED


    theme.AddButtonTheme("flatgreen")
    theme.Button("flatgreen").BackColor = ABM.COLOR_GREEN
    theme.Button("flatgreen").ForeColor = ABM.COLOR_BLACK
    theme.Button("flatgreen").ForeColorIntensity = ABM.INTENSITY_DARKEN4


    theme.AddButtonTheme("amber")
    theme.Button("amber").BackColor = ABM.COLOR_AMBER
    theme.Button("amber").ForeColor = ABM.COLOR_BLACK
    theme.Button("amber").ForeColorIntensity = ABM.INTENSITY_DARKEN1


    theme.AddButtonTheme("disable")
    theme.Button("disable").BackColor = ABM.COLOR_GREY
    theme.Button("disable").ForeColor = ABM.COLOR_BLACK
    theme.Button("disable").ForeColorIntensity = ABM.INTENSITY_LIGHTEN2
   
    theme.AddCheckboxTheme("cbox")
    theme.Checkbox("cbox").ZDepth = ABM.ZDEPTH_3
   
    theme.AddPaginationTheme("pgn1")
    theme.Pagination("pgn1").NavigationButtonsBackColor = ABM.COLOR_AMBER
    'theme.Pagination("pgn1").ZDepth = ABM.ZDEPTH_3
   
    'theme.Pagination("pgn1"). = ABM.COLOR_BLUEGREY
   
    ' modal sheet
    theme.AddContainerTheme("modalcontent")
    theme.Container("modalcontent").BackColor = ABM.COLOR_WHITE   
   
    ' modal sheet
    theme.AddContainerTheme("modalfooter")
    theme.Container("modalfooter").BackColor = ABM.COLOR_LIGHTBLUE
   
    ' chip
    theme.AddChipTheme("chip")
    theme.Chip("chip").BackColorIntensity = ABM.INTENSITY_LIGHTEN4
   
    ' note container theme
    theme.AddContainerTheme("notetheme")
    theme.Container("notetheme").BackColor = ABM.COLOR_BLUEGREY
    theme.Container("notetheme").BackColorIntensity = ABM.INTENSITY_LIGHTEN5
    theme.Container("notetheme").ZDepth = ABM.ZDEPTH_1
       
End Sub