How to return a constant color on the Internet from a color saved as a string?

Question

//clWebSnow = $FAFAFF; defined in Graphics.pas
Listbox1.Items.Add( ColorToString( clRed ) );
Listbox1.Items.Add( ColorToString( clWebSnow ) );

How can you return "WebSnow" as a string to show the color as a color constant, like WebSnow?

All I can get is “$ FAFAFF” as a string with web colors stored as a string, while StandardColors and ExtendedColors return color constant values.

Example: clRed is displayed as red in the list and displayed as red in the label header. clWebSnow is displayed as "$ FAFAFF" in the list and displayed as FAFAFF in the label header.

Bill

Answer 1

See RGBToWebColorName in GraphUtil .

  Label1.Caption := RGBToWebColorName(clWebSnow); // returns "clWebSnow"

Answer 2

ColorToString IntToIdent, "", Graphics.pas. , - Graphics.pas, .