
Add_Close_Button(String llToolTip)
-------------------------------------------------------------------------

DoShowMessageBar(String sMessage String sMessageTitle)
// Convert decimal to Hex
{ Visibility=Private }
Function DecToHex Integer iDec Returns String
String sHex sHexchars
Move "0123456789ABCDEF" to sHexchars
Move "" to sHex
Repeat
Insert (Mid(sHexchars,1,((iDec iand $0f) + 1))) In sHex At 1
Move (iDec / $10) to iDec
Until (iDec = 0)
Function_Return sHex
End_Function
// RgbToHex
// Convert the RGB color to a hex color
{ Visibility=Private }
Function RgbToHex Integer iColor Returns String
String sRed sGreen sBlue
Get DecToHex of oHex (R_From_RGB(iColor)) to sRed
Get DecToHex of oHex (G_From_RGB(iColor)) to sGreen
Get DecToHex of oHex (B_From_RGB(iColor)) to sBlue
Move (Right(("00" + sRed),2)) to sRed
Move (Right(("00" + sGreen),2)) to sGreen
Move (Right(("00" + sBlue),2)) to sBlue
Function_Return ("#" + sRed + sGreen + sBlue)
End_Function