<SCRIPT>
dim sInitColor = nothing
sub callColorDlg()
if sInitColor = nothing then
dim sColor = dlgHelper.ChooseColorDlg()
else
dim sColor = dlgHelper.ChooseColorDlg(sInitColor)
sColor = sColor.toString(16)
end if
if sColor.length < 6 then
dim sTempString = "000000".mid(0,6-sColor.length)
sColor = sTempString.concat(sColor)
end if
sColor = "#" & sColor
color.value=sColor
alert(sColor)
end sub
</SCRIPT>