XProfan

Proc htmlHexFormat

    parameters col&
    return "#"+if(len(hex$(getRValue(col&)))=1,"0"+hex$(getRValue(col&)),hex$(getRValue(col &)))+if(len(hex$(getGValue(col&)))=1,"0"+hex$(getGValue(col&)),hex$(getGValue(co l&)))+if(len(hex$(getBValue(col&)))=1,"0"+hex$(getBValue(col&)),hex$(getBValue(c ol&)))

endproc