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