gifts2017

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

Опубликовал Михаил Журавлев (Gmix) в раздел Программирование - Практика программирования

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

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

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

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

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

См. также

Вознаграждение за ответ
Сумма: 0 $m
Добавили:
Артур Чколян (sondarium) (2.00 $m)
Подписаться Добавить вознаграждение

Комментарии

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

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

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

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