Как переконвертировать Color в Hex ?

← →
leonidus © (2007-05-22 10:42) [0]

Удалено модератором
Примечание: спам

← →
Ганна Юхимівна (2007-05-22 10:52) [1]

У Димки Маслова когда-то был чудесная библиотека функций... так пара из них как раз работала с преобразованием цветов для Web.

← →
ЮЮ © (2007-05-22 10:53) [2]

> то вместо бледно желтого получаю красный,

Посмотри, что даёт IntToHex(clRed, 8) и сравни с тем, что ты нвписал бы в <body bgcolor= не используя Delphi.
(В тоже месте окажется красный FF, ведь clRed = $0000FF ?)

← →
leonidus © (2007-05-22 12:44) [3]

Что-то не пойму. IntToHex(clInfoBk, 8) возвращает вообще 8-мизначное число FF000018, в то время как тег <body bgcolor= требует 6-тизначного кода цвета...

← →
Плохиш © (2007-05-22 12:57) [4]

> leonidus © (22.05.07 12:44) [3]

TColor gibt die Farbe eines Windows-Steuerelements an. Dieser Typ wird von der Eigenschaft Color vieler Komponenten und anderer Eigenschaften, die Farbwerte festlegen, verwendet. In der Unit Graphics sind die Konstanten für TColor definiert. Diese Konstanten werden entweder direkt der ähnlichsten Farbe in der Systempalette (z. B. clBlue der Farbe Blau) oder der entsprechenden Systemfarbe für Bildschirmelemente (z.B. clBtnFace der Systemfarbe für Schaltflächen) zugeordnet. Hat das höchstwertige Byte den Wert Null, erhalten Sie eine Farbe, die derjenigen in der Systempalette am ähnlichsten ist. Ist das höchstwertige Byte Eins ($01 bzw. 0x01), ergibt das eine Farbe, die derjenigen in der aktiven Palette am ähnlichsten ist. Wenn Sie das höchstwertige Byte auf Zwei ($02 bzw. 0x02) setzen, wird der Wert an die ähnlichste Farbe in der logischen Palette des aktuellen Gerätekontexts angepasst.

← →
leonidus © (2007-05-22 12:58) [5]

Да, на немецком дока это круто... а можно перевод?

> leonidus © (22.05.07 12:58) [5]
> Да, на немецком дока это круто... а можно перевод?

Перевод за деньги - 1 евро слово...

Сделай так и будет тебе счастье

s := Format("<body bgcolor=rgb(%d,%d,%d)>",[GetRValue(clMy),GetGValue(clMy),GetBValue(clMy)])

>Jeer
делаю так?

var
c:TColor;
cl:string;
..

c:=clInfoBk;
cl:=Format("<body bgcolor=rgb(%d,%d,%d)>",[GetRValue(c),GetGValue(c),GetBValue(c)]);

Получаю <body bgcolor=rgb(24,0,0)>

Но Corel мне говорит что 24,0,0 это почти черный а не бледно желтый...

Как переконвертировать Color в Hex ? Найти похожие ветки [продолжение]