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

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

Как перевести цвет из colordialog`a в такой же в HTML`e [D7, WinXP]

Nes ©   (2005-07-06 00:24:00) 

Сообственно сам сабж,наглым копированием не проходит(тёмно-красный тогда похож на зелёный)
Очень нужно...прога заменяет цвет в хтмл страничке на нужный(так нужно)...вот и перевести цвет из colordialog в понятный цвет для хмтла не знаю как =(
Заранее спасибо...

---

ЮЮ   (2005-07-06 12:02:00) [1]

>по состовляющим(1), а не сразу все(2).

:)
В шестнадцетиричном предствлении все "составляющие" сразу рядышком и лежат, толбко то что в Delphi $AABBCC, то в HTML $CCВВАА

---

Nes   (2005-07-06 12:00:00) [2]

Спасибо всем=)!

---

SecCenter   (2005-07-06 11:25:00) [3]

При чем здесь порядок байт?
Дело в том что число цвета надо переводить по состовляющим(1), а не сразу все(2).

---

begin...end   (2005-07-06 09:24:00) [4]

> -=XP=- ©   (06.07.05 9:03) [3]

Вы правы.

---

Anatoly Podgoretsky   (2005-07-06 09:14:00) [5]

begin...end ©   (06.07.05 08:54) [2]
Не пойдет ты изменил порядок байт

---

-=XP=-   (2005-07-06 09:03:00) [6]

IntToHex(ColorToRGB(ColorDialog.Color))

Другой порядок следования байтов: RGB и BGR
Кажется, правильно именно в [1].

---

begin...end   (2005-07-06 08:54:00) [7]

Edit.Text := IntToHex(ColorToRGB(ColorDialog.Color))

---

Kolan   (2005-07-06 00:53:00) [8]

В HTML цвет задаётся 16 коде RGB всё что надо преобразовать:

 if ColorDialog1.Execute then
   Edit1.Text := IntToHex(GetRValue(ColorDialog1.Color), 2) +
     IntToHex(GetGValue(ColorDialog1.Color), 2)
     + IntToHex(GetBValue(ColorDialog1.Color), 2);

---

Наверх