delphi - 如何从存储为字符串的颜色中返回Web颜色常量？

//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。

法案

最佳答案

查看RGBToWebColorName中的GraphUtil。

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