'NAMING CONVENTION PREFIXES
'cs = constant string
'c  = constant number
'cb = constant boolean

const cMinimumBrowserVersion = 6
const csEmptyStr = ""

'---------------------------------------------------
'STT Version Requirements
'---------------------------------------------------
const csVersionRequiredForLiveHelp = "4.3.3.0"
const csVersionRequiredForPreview = "4.2.0.0"
const csVersionRequiredForModes = "4.3.6.5"
const csVersionRequiredForMessageSets = "4.3.7.6"
const csVersionRequiredForLanguages = "4.4.5.8"
const csVersionRequiredForLessons = "4.3.6.1"

function csIncorrectVersion 
  csIncorrectVersion = "The version of the %S file is wrong. %S will continue, " & vbCrLf & "but you may experience problems. (Version Required: %S. Version Found: %S)."
end function

'---------------------------------------------------
'VML Button
'---------------------------------------------------
const cVMLButtonCornerRadius = 5
const cVMLButtonMaximumWidth = 125
const cVMLButtonMinimumHeight = 22
const cVMLButtonMinimumWidth = 75
const cVMLButtonSidePadding = 7
const cVMLButtonTopPadding = 3

function cVMLButtonTemplate
  cVMLButtonTemplate = "<v:roundrect id='VML' style='v-align:middle; top:; left:; width:; height:; color:black; cursor:default;' " & _
                       "   fillcolor='#808080' arcsize='' strokecolor='black' strokeweight='1px' coordsize='21600,21600'" & _
                       "   onclick=''" & _
                       "   onmousedown='vbscript: OnVMLButtonMouseDown me'" & _
                       "   onmouseup='vbscript: OnVMLButtonMouseUp me'" & _
                       "   onmouseout='vbscript: OnVMLButtonMouseOut me'" & _
                       "   onmouseover='vbscript: OnVMLButtonMouseOver me'>" & _
                       "  <v:fill type='gradient' method='linear sigma' angle='0'></v:fill>" & _
                       "  <div id='TEXT' style='text-align:center; height:100%; padding-left:px; padding-right:px; padding-top:px;' nowrap='true'></div>" & _ 
                       "</v:roundrect>"
end function

'---------------------------------------------------
'File Extensions
'---------------------------------------------------
const csHTMExt = ".htm"
const csHTMLExt = ".html"
const csXHTMLExt = ".xhtml"
const csXMLExt = ".xml"
const csXSLExt = ".xsl"

'---------------------------------------------------
'Messages
'---------------------------------------------------
function csInvalidUserName
  csInvalidUserName = "Invalid Login Name/Password " & vbCrLf & vbCrLf & _
                      "Please contact your training administrator if you continue experiencing problems" & vbCrLf & _
                      "connecting to the database."
end function