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

vombat

15.06.2009 - 10:24

Можно ли в 1С Предприятие 7.7 выделить цветом колонку?
Знаю что строки можно с помощью V7Plus.dll, а колонку можно?

К списку тем

1 >

К списку форумов

Интересные темы

odines.ru

05.12.2025 - 11:51

Смотри также:
Неправильные начальные остатки по регистру
Время документа прыгает в конец дня
переход на графу наименование в справочнике

Re: Выделить колонку цветом

USSR

7 - 15.06.2009 - 10:55

(4)Там много кода, начиная от инициализации таблицы и кончая ее заполнением и указанием цветов. Ищи методы VTOOLS.DLL

Re: Выделить колонку цветом

Sasha

8 - 15.06.2009 - 10:56

2(4)Колонка аналогично строке. Просто задаешь необходимые параметры
COUNT[<КоличествоКолонок>] - задает количество колонок, на которые распространяется раскраска;
INDENT[<Отступ>] - задает количество колонок, которое необходимо пропустить перед началом раскраски;

Re: Выделить колонку цветом

Reaper

9 - 15.06.2009 - 10:58

//********************************************************************************

Функция РаскраситьТаблицу()

Если ТаблицаТоваров.Остаток >= ТаблицаТоваров.Количество Тогда
//Возврат "BRUSH["+ПолучитьЦвет(145,215,145)+"]";     //зеленый
Возврат "FONT["+ПолучитьЦвет(75,105,65)+"]; FONTSET["+Сервис.СоздатьШрифт(,,9)+"]";
ИначеЕсли (ТаблицаТоваров.Остаток < ТаблицаТоваров.Количество) И (ЗаказКолво >= ДопКолво) Тогда
//Возврат "BRUSH["+ПолучитьЦвет(215,215,145)+"]";     //желтый
Возврат "FONT["+ПолучитьЦвет(180,170,65)+"]; FONTSET["+Сервис.СоздатьШрифт(,,9)+"]";
Иначе
//Возврат "BRUSH["+ПолучитьЦвет(255,100,100)+"]";     //красный ;
Возврат "FONT["+ПолучитьЦвет(255,100,100)+"]; FONTSET["+Сервис.СоздатьШрифт(,,9)+"]";
КонецЕсли;

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

Re: Выделить колонку цветом

vombat

10 - 15.06.2009 - 11:04

2 Sasha и Reaper

Спасибо БОЛЬШОЕ. :-)

Re: Выделить колонку цветом

vombat

11 - 15.06.2009 - 11:05

2 USSR

Меня интересует только инициализация таблицы, цвета я в курсе как делаются и сервис как инициализируетсю тоже помню.

Интересные темы

odines.ru

05.12.2025 - 11:51

Смотри также:
выгрузка в DBF формат
Вопрос по объекту Форма.
И снова тормоза (сетевая версия) Есть ли альтернатива терминалу? и какая логика столь значительного замедления работы

Re: Выделить колонку цветом

USSR

12 - 15.06.2009 - 11:33

// -----------------------------
Процедура ИнициализацияТаблицы()

ВыделениеЯчеек = 0;
Сбор           = 1;
Файл           = "VTools.dll";

ТЗ = СоздатьОбъект("ТаблицаЗначений");

Рез = ЗагрузитьВнешнююКомпоненту(Файл);
Если Рез = 1 Тогда
ТЗЦ = СоздатьОбъект("AddIn.VTools");
ТЗЦ.Показать(Форма.Заголовок(),Форма.Цех.Заголовок(),"GRID");
ТЗЦ.АвтоРазмер(0,0);
ТЗЦ.УстановитьРедактирование(0);
ТЗЦ.ПриДвойномНажатииЛевойКнопки("ПриДвойномНажатииЛК()");
ТЗЦ.ПриНажатииПравойКнопки      ("ПриНажатииПК()");
ТЗЦ.ПриНачалеРедактирования     ("ВНачалеРедактированияЯчейки()");
ТЗЦ.ПриОкончанииРедактирования  ("ВОкончанииРедактированияЯчейки()");
ТЗЦ.ПриНажатииКлавиши           ("ПриНажатииЛюбойКлавиши()");
ТЗЦ.УстановитьСортировкуКолонок (0);
ТЗЦ.ВыделятьСтроку (0);
Иначе
Сообщить("Ошибка загрузки компоненты "+Файл);
Сообщить("Перепишите файл VTools.dll в каталог базы данных!");
СтатусВозврата(0);
Возврат;
КонецЕсли;

КонецПроцедуры //ИнициализацияТаблицы()