Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Звук, графика и видео > TColor -> HEX


Автор: Eros 26.6.2002, 00:09
Доброй ночи.

Как перевести значение из TColor в HEX для HTML?

Спасибо.

Автор: Song 26.6.2002, 09:04
GetRValue(Color)
GetGValue(Color)
GetBValue(Color)

Это получишь decimal. Далее переводишь в hex, переводишь в строку, ставишь рядом и вот тебе эти 6 символов, заключаешь в ковычки и в соответсвующий тег в HTML

Автор: Mikel 26.6.2002, 10:30
А можно и не переводить в HTML а в качестве цвета написать, например, rgb(255 255 255) -белый цвет.

Автор: Eros 26.6.2002, 15:01
Всем спасибо. Я пишу функцию экспорта БД моей проги в html. Цвет фона и заголовков настраиваеться,
по-этому мне нужно было перевести значение TColor в то как оно представляеться в HTML.
Я сделал так:

Код

function GetHexColor(c: TColor): String;
begin
 GetHexColor := '#'+IntToHex(GetRValue(c),2)
                   +IntToHex(GetGValue(c),2)
                   +IntToHex(GetBValue(c),2);
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)