如何從存儲為字符串的顏色中返回Web顏色常量？

Question

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

如何以字符串形式返回“ WebSnow”以將顏色顯示為WebSnow的顏色常數？

我似乎能得到的只是'$ FAFAFF'作為字符串，而webcolors存儲為字符串，而StandardColors和ExtendedColors返回顏色常數值。

示例：clRed在列表框中顯示為紅色，在標簽標題中顯示為紅色。 clWebSnow在列表框中顯示為“ $ FAFAFF”，在標簽標題中顯示為$ FAFAFF。

法案

Answer 1

查看GraphUtil中的RGBToWebColorName 。

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

Answer 2

ColorToString使用Graphics.pas中定義的const數組“ Colors”，通過IntToIdent映射查找顏色名稱。 解決此問題的唯一方法可能是使用自定義Graphics.pas，在其中向數組添加了新條目。