Конвертация цвета к абсолютному.

Программирование - Практика программирования

Нужно преобразовать не абсолютный цвет к абсолютному? Есть решение!!!

Наконец-то нашел решения корректного преобразования цвета (из стиля, web) к абсолютному.

Может кому интересно пользуйтесь Laughing.

Скачать файлы

Наименование Файл Версия Размер
gmix_Выбор цвета.epf
.epf 13,41Kb
07.02.12
155
.epf 13,41Kb 155 Скачать

См. также

Вознаграждение за ответ
Показать полностью
Лучшие комментарии
1. Игорь Steelvan (Steelvan) 30 19.01.13 15:23 Сейчас в теме
Интересная программа.
Надо посмотреть, каким образом идет конвертация.
Актуальная задача.
Остальные комментарии
1. Игорь Steelvan (Steelvan) 30 19.01.13 15:23 Сейчас в теме
Интересная программа.
Надо посмотреть, каким образом идет конвертация.
Актуальная задача.
2. sd (BubbleGumm) 10.05.13 05:47 Сейчас в теме
Каким образом вы это сделали? Скачать нет возможности.
3. Александр Кораблев (akor77) 548 19.05.13 09:01 Сейчас в теме
на безрыбье и... (это в адрес 1с).
А автору огромное спасибо, всё-таки выкрутился, "акробатический номер", но работает.
4. Андрей (androidT1C) 71 05.08.13 15:42 Сейчас в теме
(2) BubbleGumm, там всё просто: создаем пустой ТабДокумент, назначаем для .Область() любой цвет, сохраняем в HTML и находим циферки.
5. Яков Коган (Yashazz) 2079 22.09.13 13:05 Сейчас в теме
(4) Будете смеяться. Сделал, как вы написали - и нифига подобного, сохраняет всё те же названия, т.е. выглядит это как tr.R0 td.R0C0{ background-color: DeepSkyBlue; } и ни малейших циферок. Он там css лепит. Это, случаем, от платформы не зависит, а то у меня 8.2.17 - нэ?
6. Яков Коган (Yashazz) 2079 22.09.13 23:58 Сейчас в теме
В общем, вот: http://infostart.ru/public/201708/ и спасибо за красивую мысль, хоть она и очень узкоприменима, как оказалось.
7. Илларион Пак (pakill) 43 01.10.13 14:08 Сейчас в теме
Спасибо, сам бы никогда не додумался.

Там в коде можно подсократить:

Функция HexToDec(HEX)
Число16 = СокрЛП(HEX);
Рез = 0;
Для к = 1 По СтрДлина(Число16) Цикл
Цифра16 = Сред(Число16, к, 1);
Рез = Рез * 16 + Найти("0123456789ABCDEF", Цифра16) - 1;
КонецЦикла;
Возврат Рез;
КонецФункции

8. Илларион Пак (pakill) 43 03.10.13 10:14 Сейчас в теме
(5) Только так: ТабДокумент.Область().ЦветФона = WebЦвета.Оранжевый;
а вот так не годится: ТабДокумент.Область("R1C1").ЦветФона = WebЦвета.Оранжевый;
9. виталий селиванов (v.selivanov) 20 21.03.14 13:31 Сейчас в теме
Большое спасибо, полезная утилита!
10. Сергей Галюк (dj_serega) 246 13.03.15 11:57 Сейчас в теме
жаль что нет кода в описании
11. Артур Чколян (sondarium) 169 17.02.16 21:23 Сейчас в теме
Оставьте свое сообщение