Delphi 如何从存储为字符串的颜色返回web颜色常量？

如何以字符串形式返回“WebSnow”以将颜色作为颜色常量显示为WebSnow

我所能得到的似乎是“$FAFAFF”作为字符串，WebColor作为字符串存储，而StandardColor和ExtendedColor返回颜色常量值

例如： CLED在列表框中显示为红色，在标签标题中显示为红色。 clWebSnow在列表框中显示为“$FAFAFF”，在标签标题中显示为$faff

---

Bill

ColorToString使用Graphics.pas中定义的常量数组“Colors”通过IntToEvent映射查找颜色名称。解决此问题的唯一方法可能是使用自定义Graphics.pas，在其中您已将新条目添加到数组中。

请查看

---

如果您感兴趣，GraphUtil.pas中还有更多用于web和RGB颜色的转换和实用方法。此处提供GraphUtil的在线文档。啊,文件。开发商的最后手段。：）谢谢你的链接。

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

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