如何从存储为字符串的颜色返回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"