test BB Code

[DocAElstein]

sandy mSettings:

Option Explicit

#If VBA7 Then
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#Else
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#End If


#If USE_RGB Then
    Public Const TB_BCKGRND_COLOR As String = "rgb(255, 255, 255)"
    Public Const TB_FONT_COLOR    As String = "rgb(48, 34, 38)"
#Else
    Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
    Public Const TB_FONT_COLOR    As String = "#302226"
#End If
Public Const TB_FONT_SIZE     As String = "11pt"
Public Const TB_PADDING       As String = "0.3em"
Public Const MAX_BRACKETS     As Long = 100
Public Const MAX_ROWS         As Long = 100
Public Const MAX_COL          As Long = 100

Enum FormulaSettings
    NotSet = -1
    AllFormulas = 0
    FirstCell = 1
    FirstCellInColumn = 2
    NoFormulas = 3
    UserDefined = 4
End Enum

my old version mSettings:

Option Explicit



#If VBA7 Then
    Public Const TB_BORDER_COLOR As String = "#BBB"
    Public Const COLHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const ROWHDR_BORDER_COLOR As String = "#BBB"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#Else
    Public Const TB_BORDER_COLOR As String = "#A6AAB6"
    Public Const COLHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const ROWHDR_BORDER_COLOR As String = "#A6AAB6"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#End If


Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
Public Const TB_FONT_SIZE     As String = "11pt"
Public Const TB_PADDING       As String = "0.3em"
Public Const TB_FONT_COLOR    As String = "#262230"
Public Const MAX_BRACKETS     As Long = 100
Public Const MAX_ROWS         As Long = 100
Public Const MAX_COL          As Long = 100

Enum FormulaSettings
    NotSet = -1
    AllFormulas = 0
    FirstCell = 1
    FirstCellInColumn = 2
    NoFormulas = 3
    UserDefined = 4
End Enum

Conclusions..
it seems that the
csHEADER
is now in mSettings.

Good to know