GetRValue, GetGValue, GetBValue - дадут тебе байты цветов, затем тебе надо их перевести в hex...
Автор ответа:Vit Взято с Vingrad.ru http://forum.vingrad.ru IntToHex(Color); Автор ответа:neutrino Взято с Vingrad.ru http://forum.vingrad.ru
В модуле graphics имеются две недокументированные функции:
function ColorToString(Color: TColor): string;
Если значение TColor является именованным цветом, функция возвращает имя цвета ("clRed"). В противном случае возвращается шестнадцатиричное значение цвета в виде строки.
function StringToColor(S: string): TColor;
Данная функция преобразует "clRed" или "$0000FF" во внутреннее значение цвета.
Автор ответа:Pegas Взято с Vingrad.ru http://forum.vingrad.ru
