You'll need build 7.12 to make this a bit easier.
In the DropListForm procedure, Value::MydropList routine, inside the loop, I set
loc:extra = 'style="color:' & clip(CUS:CustomerColour) & ';"'
(see attached pic).
Note that the color in your database is already in web format. If it was in Clarion format I would have used;
loc:extra = 'style="color:' & p_web.ColorWeb(CUS:CustomerColour) & ';"'
In some cases you might have a background color instead of a forground color;
loc:extra = 'style="background-color:' & clip(CUS:CustomerColour) & ';"'
and, if you are setting the background-color, and you want something a little bit more interesting, then set the CSS for the Drop field - set the "Drop Part" to 'nt-grad'
Cheers
Bruce
[attachment deleted by admin]