Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как мне перевести TColor

Автор: stn 27.12.2006, 16:40

Как мне перевести TColor в шестизначный RGB для html?

Автор: Snowy 27.12.2006, 16:49

Код

function HtmlColor(Col: integer): string;
begin
  Col := ColorToRGB(Col);
  Result := '#' + Format('%.2x%.2x%.2x', [GetRValue(Col), GetGValue(Col), GetBValue(Col)]);
end;

решоточку можно убрать, если не нужна.

Автор: HmeL 27.12.2006, 16:50

stn, отбрасываешь (в HEXe) 2 верхних разряда, оставляешь 6 нижних и получаешь то что нужно

Автор: stn 27.12.2006, 16:51

бААльшое пасибо

Автор: Snowy 27.12.2006, 16:57

HmeL, не нужно ничего отбрасывать.
ColorToRGB(Col) - возвращает уже трёхбайтовое значение.
Вот только порядок следования обратный.
Format('%.2x%.2x%.2x', [GetRValue(Col), GetGValue(Col), GetBValue(Col)]) как раз разворачивает и представляет в хексе.

Автор: HmeL 28.12.2006, 13:03

Snowy, )) уже понял, просто мы запостили одновременно.