>>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.

Thank you for reminding me, I really knew that, but I hd forgotten. I catually posted an early, non-functional draft, because I did not have the fixed version on this computer. The fact that the function gave the wrong values, had gone into oblivion. Where's that hole in the ground when you need it?