helpf.pro
Регистрация
 0 
Распечатать

Как при выводе данных в Табличный Документ изменить Текст и Цвет Текста конкретной ячейки?

Код 1C v 8.х
  //Пример изменения цвета текста при выводе данных в табличный документ
Таб.ВывестиСекцию("Контрагент");
// Изменим Текст ячейки, имя которой заранее задали как "ТекстОСостоянии"
Таб.Область("ТекстОСостоянии").Текст = "Хорошо )";
// В зависимости от условия изменим Цвет Текста
Если Раз<0 Тогда
Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(255,0,0);
ИначеЕсли Раз>0 Тогда
Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(0,0,255);
КонецЕсли;


Код 1C v 7.x
 Таб = СоздатьОбъект("Таблица");
Таб.Открыть("tabldoc.mxl");
ВыбОбласть = Таб.Область("R8C4");
ВыбОбласть.Шрифт("Arial");
ВыбОбласть.РазмерШрифта(10);
ВыбОбласть.Подчеркнутый(1);
ВыбОбласть.ГоризонтальноеПоложение(3);
ВыбОбласть.Контроль(4);
ВыбОбласть.ЦветФона(34, 126, 211); // Фон
ВыбОбласть.ЦветРамки(34, 126, 211); // Рамка
ВыбОбласть. ЦветТекста>(34, 126, 211); // Текст
Разместил:   Версии: | 7.x | 8.x |  Дата:   Прочитано: 18855
 0 
Распечатать
Возможно, вас также заинтересует
Автоматическая установка ширины колонки табличного документа. 0
Процедура, которая " примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего: Процедура...
Алгоритм шифрования RC4 0
Для решения некоторых задач, иногда требуется имееть возможность шифровать и дешифровывать, какие-то данные. Но при этом нет возможности использовать стороние внешнии компоненты. Предлагаем пример реализации...
База для Разработки или Рабочая? Как быстро определить? 1
Когда-то я работал консультантом SAP . В SAPe есть настройка изменения цвета главного окна программы и у нас было негласное правило: Рабочая программа - Красный фон , Тестовая - Зеленый , Разработка - Синий . Работая в 1С,...
Ввести строку, ввод текста 0
Текст = ""; Подсказка = "Введите текст напоминания"; Если ВвестиСтроку(Текст,Подсказка, 0, истина) Тогда // запомнить текст напоминания КонецЕсли; НК = ""; Если ВвестиСтроку(НК, "Введите код продукции", 40, 1, 9) = 1 Тогда Koд...
Веб браузер в 1С используя поле HTML документа 0
Настраивал клиенту CRM, он захотел - чтобы панель управления сайтом была в 1С. Хочет - делаем: Обработка Веб браузер проста, состоит из поля HTML документа и 20 строчек кода: Код команд: НаКлиенте Процедура...
Посмотреть все результаты поиска похожих
Комментарии
E_Migachev
07.04.2011 09:08Комментарий: 4
E_Migachev
Leon, лучше Задайте вопрос в вопросах, более конкретно описав то, что вы хотите, там поможем разобраться
Leon
06.04.2011 16:41Комментарий: 3
Leon
Товарищи!
Работаю на БП 2.0, а в ней "ПолучитьСекцию/ВывестиСекцию" нету, а мне надо установить цвет текста на красный. Подскажите, как такое же сдлеать на 8.2 ?
E_Migachev
29.07.2010 11:54Комментарий: 2
E_Migachev
Dymok, вот в таком контексте работает пример выше:
Код 1C v 8.х
  секц = Таб.ПолучитьСекцию("Секция");
// если ячейка и у нее задано имя то:
обл = секц.Область("имя");
обл.ЦветТекста(128,0,0);
//а так задаем для области R1C1:R1C1
Таб.Область("R1C1:R1C1").ЦветТекста(128,0,0);
Таб.ВывестиСекцию(секц);


Твой способ тоже хорош *06
Dymok
29.07.2010 11:25Комментарий: 1
Dymok
у меня так не работает, а работает вот так:
Код 1C v 8.х
 Таб.Область(Таб.ВысотаТаблицы, 9, Таб.ВысотаТаблицы, 9).ЦветТекста=Новый Цвет(255,0,0);   
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.