Выделение цветом

01.03.2007, 14:12. **Показов** 50831. **Ответов** 10

Author24 — интернет-сервис помощи студентам

Подскажите, если кто знает, можно ли как то выделить цветом во многострочной части документа столбцы и строки

@vytfyt · 01.03.2007, 14:32

Можно.
FormEx.dll

01.03.2007, 14:40

vitfil, ты уж прости, но я еще не опытный в 1с, поэтому спрашиваю, как использовать эту FormEx.dll

@vytfyt · 01.03.2007, 14:41

в документации к ней есть примеры.

04.03.2007, 15:49

в общем то подключить FormEx я сумел, но вот раскрасить многострочную часть не получается, ну вот никак, писал в строке формулы BRUSH [1] и с ковычками и со скобочками и без ничего и как только не писал, все равно ошибки. подскажите как правильно написать команду? или мож у кого примерчик есть по раскраске многостр. части дока?

@jj_moyt · 04.03.2007, 17:46

в глобальном модуле пишешь например так :

Функция ПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0) Экспорт
// функция для формирования значения цвета из составляющих (RGB)
Возврат Макс(0,Синий)*65536 + Макс(0,Зеленый)*256 + Макс(0,Красный);

КонецФункции

Использование :

Т = СоздатьОбъект("ТаблицаЗначений");
Т.НоваяКолонка("ЦветСтр","Строка");
Т.ВидимостьКолонки("ЦветСтр",0);

Т.ЦветСтр = "BRUSH["+ ПолучитьЦвет(255,100,100)+"]";

05.03.2007, 09:28

попробовал, в глоб. модуле написал все как посоветовали, в процедуре ПриОткрытии оформил следующим образом:

Процедура ПриОткрытии()
Сервис = СоздатьОбъект("Сервис");
Сервис.ВключитьРаскраскуТаблиц();
ПриЗаписиПерепроводить(1);
Кр = "BRUSH["+ ПолучитьЦвет(115,50,41)+"]";
КонецПроцедуры

Кр - колонка ТЧ

И всеравно не красит ничего. Подскажите что я не так делаю, может есть у кого нибудь примерчик попобробнее?
Мне в принципе от ФормЕкс нужна только возможность раскраски строк и столбцов в тч дока, и никак не могу воткнуть как она работает

@jj_moyt · 05.03.2007, 10:59

а нет желания использовать 1CPP.DLL ? там все как-то проще..... (и функций больше)
Никаких СоздатьОбъект там писать не нужно. В параметрах включил раскраску и вперед
Если есть желание, могу подкинуть

05.03.2007, 11:03

конечно хочу! скинь мне на мыло Greymen@mail.ru
и если не сложно то документацию какую нибудь к ней и примерчики.
Заранее благодарен

@tsh · 05.03.2007, 16:11

Для: jj_mail

В 1С++ включено ядро компоненты FormEx. Минус - приходится таскать с собой 1,5 Мб библиотеку, грузится дольше чем ФормЕКС, да и зачем тянуть библиотеку, если 95% ее функций использоваться не будет? Плюс еще там ядро обновляется довольно редко, а Формекс - часто.


<span class="vbquote">(GreyMen @ 6:03:2007, 09:15 )</span>попробовал, в глоб. модуле написал все как посоветовали, в процедуре ПриОткрытии оформил следующим образом:

Процедура ПриОткрытии()
Сервис = СоздатьОбъект("Сервис");
Сервис.ВключитьРаскраскуТаблиц();
ПриЗаписиПерепроводить(1);
Кр = "BRUSH["+ ПолучитьЦвет(115,50,41)+"]";
КонецПроцедуры

Кр - колонка ТЧ

И всеравно не красит ничего. Подскажите что я не так делаю, может есть у кого нибудь примерчик попобробнее?
Мне в принципе от ФормЕкс нужна только возможность раскраски строк и столбцов в тч дока, и никак не могу воткнуть как она работает
[snapback]58313" rel="nofollow" target="_blank[/snapback]?[/quote]

Там всё не так.
Вешаем на табл. часть формы реквизит текст (кликнуть по тексту в панельке, кликнуть по форме), на нее вешаем функцию, например, Раскрас(), делаем этот реквизит невидимым.
Далее, в глоб. модуле заводим переменную Сервис, а
Процедура ПриНачалеРаботыСистемы()
Попытка
ЗагрузитьВнешнююКомпоненту("FormEX.DLL");
Сервис = СоздатьОбъект("Сервис");
Сервис.ВключитьРаскраскуТаблиц();
Исключение
Сообщить("Компонента недоступна");
КонецПопытки;
КонецПроцедуры

В модуле:
Функция Раскрас()
Если [Какое_то_условие] Тогда
Возврат "BRUSH["+ПолучитьЦвет(221,221,255)+"]"; //ну или какие-то другие цвета
Иначе
Возврат ""; //чтобы не раскрашивало
КонецЕсли;
КонецФункции


<span class="vbquote">(jj_mail @ 6:03:2007, 10:46 )</span>В параметрах включил раскраску и вперед
[snapback]58323" rel="nofollow" target="_blank[/snapback]?[/quote]

В формексе аналогично. В Предприятии Сервис-Параметры-FormEx

06.03.2007, 08:08

Благодарю, все получилось!!!!

Новые блоги и статьи Все статьи Все блоги /
Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .	Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .
Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .	PHP 8: JIT-компиляция и улучшение производительности Jason-Webb 13.03.2025 PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .	Сериализация данных с Apache Avro в Kafka Javaican 12.03.2025 Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .	Создание потребителей Kafka с помощью Reactor Kafka Javaican 12.03.2025 Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .

kryyMym
		1
	Выделение цветом 01.03.2007, 14:12. Показов 50831. Ответов 10 Метки нет (Все метки) Подскажите, если кто знает, можно ли как то выделить цветом во многострочной части документа столбцы и строки

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	01.03.2007, 14:32	2
	Можно. FormEx.dll 0

kryyMym
	01.03.2007, 14:40	3
	vitfil, ты уж прости, но я еще не опытный в 1с, поэтому спрашиваю, как использовать эту FormEx.dll

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	01.03.2007, 14:41	4
	в документации к ней есть примеры. 0

kryyMym
	04.03.2007, 15:49	5
	в общем то подключить FormEx я сумел, но вот раскрасить многострочную часть не получается, ну вот никак, писал в строке формулы BRUSH [1] и с ковычками и со скобочками и без ничего и как только не писал, все равно ошибки. подскажите как правильно написать команду? или мож у кого примерчик есть по раскраске многостр. части дока?

@jj_moyt 0 / 0 / 0 Регистрация: 25.02.2007 Сообщений: 88
	04.03.2007, 17:46	6
	в глобальном модуле пишешь например так : Функция ПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0) Экспорт // функция для формирования значения цвета из составляющих (RGB) Возврат Макс(0,Синий)65536 + Макс(0,Зеленый)256 + Макс(0,Красный); КонецФункции Использование : Т = СоздатьОбъект("ТаблицаЗначений"); Т.НоваяКолонка("ЦветСтр","Строка"); Т.ВидимостьКолонки("ЦветСтр",0); Т.ЦветСтр = "BRUSH["+ ПолучитьЦвет(255,100,100)+"]"; 0

kryyMym
	05.03.2007, 09:28	7
	попробовал, в глоб. модуле написал все как посоветовали, в процедуре ПриОткрытии оформил следующим образом: Процедура ПриОткрытии() Сервис = СоздатьОбъект("Сервис"); Сервис.ВключитьРаскраскуТаблиц(); ПриЗаписиПерепроводить(1); Кр = "BRUSH["+ ПолучитьЦвет(115,50,41)+"]"; КонецПроцедуры Кр - колонка ТЧ И всеравно не красит ничего. Подскажите что я не так делаю, может есть у кого нибудь примерчик попобробнее? Мне в принципе от ФормЕкс нужна только возможность раскраски строк и столбцов в тч дока, и никак не могу воткнуть как она работает

@jj_moyt 0 / 0 / 0 Регистрация: 25.02.2007 Сообщений: 88
	05.03.2007, 10:59	8
	а нет желания использовать 1CPP.DLL ? там все как-то проще..... (и функций больше) Никаких СоздатьОбъект там писать не нужно. В параметрах включил раскраску и вперед Если есть желание, могу подкинуть 0

kryyMym
	05.03.2007, 11:03	9
	конечно хочу! скинь мне на мыло Greymen@mail.ru и если не сложно то документацию какую нибудь к ней и примерчики. Заранее благодарен

@tsh 0 / 0 / 0 Регистрация: 10.07.2017 Сообщений: 350
	05.03.2007, 16:11	10
	Для: jj_mail В 1С++ включено ядро компоненты FormEx. Минус - приходится таскать с собой 1,5 Мб библиотеку, грузится дольше чем ФормЕКС, да и зачем тянуть библиотеку, если 95% ее функций использоваться не будет? Плюс еще там ядро обновляется довольно редко, а Формекс - часто. <!--QuoteBegin-GreyMen+6:03:2007, 09:15 --> <span class="vbquote">(GreyMen @ 6:03:2007, 09:15 )</span><!--QuoteEBegin-->попробовал, в глоб. модуле написал все как посоветовали, в процедуре ПриОткрытии оформил следующим образом: Процедура ПриОткрытии() Сервис = СоздатьОбъект("Сервис"); Сервис.ВключитьРаскраскуТаблиц(); ПриЗаписиПерепроводить(1); Кр = "BRUSH["+ ПолучитьЦвет(115,50,41)+"]"; КонецПроцедуры Кр - колонка ТЧ И всеравно не красит ничего. Подскажите что я не так делаю, может есть у кого нибудь примерчик попобробнее? Мне в принципе от ФормЕкс нужна только возможность раскраски строк и столбцов в тч дока, и никак не могу воткнуть как она работает [snapback]58313" rel="nofollow" target="_blank[/snapback]?[/quote] Там всё не так. Вешаем на табл. часть формы реквизит текст (кликнуть по тексту в панельке, кликнуть по форме), на нее вешаем функцию, например, Раскрас(), делаем этот реквизит невидимым. Далее, в глоб. модуле заводим переменную Сервис, а Процедура ПриНачалеРаботыСистемы() Попытка ЗагрузитьВнешнююКомпоненту("FormEX.DLL"); Сервис = СоздатьОбъект("Сервис"); Сервис.ВключитьРаскраскуТаблиц(); Исключение Сообщить("Компонента недоступна"); КонецПопытки; КонецПроцедуры В модуле: Функция Раскрас() Если [Какое_то_условие] Тогда Возврат "BRUSH["+ПолучитьЦвет(221,221,255)+"]"; //ну или какие-то другие цвета Иначе Возврат ""; //чтобы не раскрашивало КонецЕсли; КонецФункции <!--QuoteBegin-jj_mail+6:03:2007, 10:46 --> <span class="vbquote">(jj_mail @ 6:03:2007, 10:46 )</span><!--QuoteEBegin-->В параметрах включил раскраску и вперед [snapback]58323" rel="nofollow" target="_blank[/snapback]?[/quote] В формексе аналогично. В Предприятии Сервис-Параметры-FormEx 0

kryyMym
	06.03.2007, 08:08	11
	Благодарю, все получилось!!!!