>>For question no. 2, I made this function

>>Function getwebcolor
>>Return Substr(Transform(GetColor(),'@0'),5)

>>So to convert a numeric color value into hex, you can use

>>lcHexColor=Substr(Transform(lnColor,'@0'),5)

>>
>
>Tore,
>
>It would be BGR instead of RGB.

Update:

here are the CORRECT functions:

Function getwebcolor
LPARAMETERS lxPrefix
LOCAL lcHex,lcReturn
lcReturn=IIF(PCOUNT()>0,'#','')
lcHex=Transform(GetColor(),'@0')
Return lcReturn + RIGHT(lcHex, 2) + SUBSTR(lcHex, 7,2) + SUBSTR(lcHex, 5,2)

Function num2webcolor
LPARAMETERS lnColor,lxPrefix
LOCAL lcHex,lcReturn
lcReturn=IIF(PCOUNT()>1,'#','')
lcHex=Transform(lnColor,'@0')
Return lcReturn + RIGHT(lcHex, 2) + SUBSTR(lcHex, 7,2) + SUBSTR(lcHex, 5,2)