Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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


leonidus ©   (2007-05-22 10:42:00) 

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


leonidus   (2007-05-22 14:22:00) [1]

>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 это почти черный а не бледно желтый...


Jeer   (2007-05-22 14:06:00) [2]

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

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


Плохиш   (2007-05-22 13:01:00) [3]


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

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


leonidus   (2007-05-22 12:58:00) [4]

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


Плохиш   (2007-05-22 12:57:00) [5]


> 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:44:00) [6]

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


ЮЮ   (2007-05-22 10:53:00) [7]

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

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


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо