Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.29;
Скачать: CL | DM;

Вниз

Как переконвертировать 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&#252;r TColor definiert. Diese Konstanten werden entweder direkt der &#228;hnlichsten Farbe in der Systempalette (z. B. clBlue der Farbe Blau) oder der entsprechenden Systemfarbe f&#252;r Bildschirmelemente (z.B. clBtnFace der Systemfarbe f&#252;r Schaltfl&#228;chen) zugeordnet.

Hat das h&#246;chstwertige Byte den Wert Null, erhalten Sie eine Farbe, die derjenigen in der Systempalette am &#228;hnlichsten ist. Ist das h&#246;chstwertige Byte Eins ($01 bzw. 0x01), ergibt das eine Farbe, die derjenigen in der aktiven Palette am &#228;hnlichsten ist. Wenn Sie das h&#246;chstwertige Byte auf Zwei ($02 bzw. 0x02) setzen, wird der Wert an die &#228;hnlichste Farbe in der logischen Palette des aktuellen Ger&#228;tekontexts angepasst.


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

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


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


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

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


 
Jeer ©   (2007-05-22 14:06) [7]

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

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


 
leonidus ©   (2007-05-22 14:22) [8]

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



Страницы: 1 вся ветка

Текущий архив: 2007.07.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
15-1183045399
oldman
2007-06-28 19:43
2007.07.29
Всех сумасшедших - с праздником!


15-1183523848
шпыён
2007-07-04 08:37
2007.07.29
Вопрос к тем кто в Америке, Зап. Европе и пр.


15-1182881216
stasserov
2007-06-26 22:06
2007.07.29
Delphi for PHP


8-1162421454
Gyrus
2006-11-02 01:50
2007.07.29
Ошибка BitMap


3-1177316209
Juice
2007-04-23 12:16
2007.07.29
DBX &amp; Oracle ошибка при коннекте