Convert Color Constant

Hello Derek and ehwagner

When I used Delphi 7 (it was long ago before Windows10), I wrote myself a procedure that displayed the colors of windows in a combobox and I clicked on the one that interested me to apply it.
The code was this one:

In the evenment Create of the form, I wrote :

With Combobox1.Items do
    begin
        Add(IntToStr(clBlack));
        Add(IntToStr(cl Blue)); and so on for each other colours.

and in the evenment OnDrawItem of the ComboBox1, I wrote :

Var  r : TRect;
Begin
   R := Rect;
  With Control as TComboBox,Canvas do
  begin
   FillRect(R);
  InflateRect(R,-2,-2);
  BrushColor := StrToInt(Items[Index));
  FillRect(R);
end;

Of course, I didn't use hexa value of the colors, but only 16 basic colors of Windows, but
here 'Je vous parle d'un  temps que les moins de 20 ans ne peuvent pas connaître'(1) as said the late Charles Aznavour, a french singer recently gone.

But as MVD has not implemented evenment OnDrawItem, It will probably be difficult to implement.

Regards to you

JB

(1) I'm talking about a time that people under 20 can not know

Derek,
I'm not aware of any such animal. It would be nice to have. The other option would be to use TColorDialog instead of a combobox. Just a thought.