В модуле graphics имеются две недокументированные функции:
function ColorToString(Color: TColor): string; |
Если значение TColor является именованным цветом, функция возвращает имя цвета ("clRed"). В противном случае возвращается шестнадцатиричное значение цвета в виде строки.
function StringToColor(S: string): TColor; |
Данная функция преобразует "clRed" или "$0000FF" во внутреннее значение цвета.
- Scott Samet [000858]