Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Переаод цвета в hex [D7, XP]

Ezorcist © (2006-07-06 00:05:00)
Пользователь указал цвет для label, надо разместить его на html странице, впрос как перевести этот цвет в #hex?

Zeqfreed (2006-07-06 14:14:00) [1]
> [6] PSPF2003 © (06.07.06 10:16)

В HTML — RGB, в Delphi — BGR.

antonn (2006-07-06 11:41:00) [2]
function GetHTMLColor(cl: TColor): string; var rgbColor: TColorRef; begin rgbColor := ColorToRGB(cl); Result := Format('%.2x%.2x%.2x', [GetRValue(rgbColor), GetGValue(rgbColor), GetBValue(rgbColor)]); end;

Ega23 (2006-07-06 10:57:00) [3]

> Delphi: $33D1FD
> HTML: FDD133
>

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

PSPF2003 (2006-07-06 10:48:00) [4]
Цвет
Delphi: $33D1FD
HTML: FDD133

Ega23 (2006-07-06 10:42:00) [5]
Конечно, имелось ввиду строковое представление цвета.

Ega23 (2006-07-06 10:37:00) [6]
Я точно не помню, там было какое-то различие между Delphi-представлением цвета и HTML-представлением. Третий с первым байты местами менялись.
Могу ошибаться, т.к. сталкивался года 4 назад...

PSPF2003 (2006-07-06 10:16:00) [7]

> В HTML как раз RGB.

Да нет, Ega23 в BGR

Gero (2006-07-06 10:03:00) [8]
> [4] Ega23 © (06.07.06 09:52)

В HTML как раз RGB.

Ega23 (2006-07-06 09:52:00) [9]
Только там (в HTML), вроде, не RGB, а BGR идёт.

PSPF2003 (2006-07-06 09:41:00) [10]
Да забыл добавить, если у тебя D2005 там уже есть такая функция поиши ее.

PSPF2003 (2006-07-06 09:25:00) [11]
А как тебе такая функция, подойдет?

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »