Переаод цвета в hex

← →
Ezorcist (2006-07-06 00:05) [0]

Пользователь указал цвет для label, надо разместить его на html странице, впрос как перевести этот цвет в #hex?

← →
Джо © (2006-07-06 00:18) [1]

В HTML цвет кодируется тремя шестнадцатеричными числами, каждое из которых отвечает за его составляющие в палитре RGB — красный (R), зеленый (G), синий (B).
Цвет, представленный типом TColor можно перевести в стандартный тип GRB функцией ColorToRGB.
Отдельные значения составляющих можно извлечь функциями GetRValue, GetGValue и GetBValue.
Вот, пожалуй, и всё.

← →
PSPF2003 © (2006-07-06 09:25) [2]

А как тебе такая функция, подойдет?

function ColorToHtmlColor(ColorRGB : TColor): string;
begin
Result := IntToHex(GetRValue(ColorRGB), 2) + IntToHex(GetGValue(ColorRGB), 2)
+ IntToHex(GetBValue(ColorRGB), 2);
end;

← →
PSPF2003 © (2006-07-06 09:41) [3]

Да забыл добавить, если у тебя D2005 там уже есть такая функция поиши ее.

← →
Ega23 © (2006-07-06 09:52) [4]

Только там (в HTML), вроде, не RGB, а BGR идёт.

← →
Gero © (2006-07-06 10:03) [5]

> [4] Ega23 © (06.07.06 09:52)

В HTML как раз RGB.

← →
PSPF2003 © (2006-07-06 10:16) [6]

> В HTML как раз RGB.

Да нет, Ega23 в BGR

← →
Ega23 © (2006-07-06 10:37) [7]

Я точно не помню, там было какое-то различие между Delphi-представлением цвета и HTML-представлением. Третий с первым байты местами менялись.
Могу ошибаться, т.к. сталкивался года 4 назад...

← →
Ega23 © (2006-07-06 10:42) [8]

Конечно, имелось ввиду строковое представление цвета.

Цвет
Delphi: $33D1FD
HTML: FDD133

> Delphi: $33D1FD
> HTML: FDD133
>

Во, именно это я и имел ввиду.

function GetHTMLColor(cl: TColor): string; var rgbColor: TColorRef; begin rgbColor := ColorToRGB(cl); Result := Format("%.2x%.2x%.2x", [GetRValue(rgbColor), GetGValue(rgbColor), GetBValue(rgbColor)]); end;

Переаод цвета в hex Найти похожие ветки