v8.2 УП:

11.07.2013 00:35

Прочитано: 6378

Добрый вечер, друзья!

Создаю программно контекстное меню для элемента формы типа "Поле табличного документа". Все вроде получается, но как отключить меню что было создано при автозаполнении. Хотел воспользоваться свойством "АвтоЗаполнение", но оно отсутствует при программном доступе. Элементы строю все программно.

Yandex

Возможно, вас также заинтересует

E_Migachev

11.07.2013 01:37

Ответ № 1

(0) sergcool83, покажи свой код

sergcool83

11.07.2013 07:06

Ответ № 2

Код 1C v 8.2 УП

 

	ДобРек = Новый Массив;

		ДобРек.Добавить(Новый РеквизитФормы("РеквизитСтатус_"   + ТекЗнчНомер,Новый ОписаниеТипов("ТабличныйДокумент")));

		

		ИзменитьРеквизиты(ДобРек);

		ДобавляемыеРеквизиты.Добавить("РеквизитСтатус_"   + ТекЗнчНомер);

		

		ЭтаФорма["РеквизитСтатус_"   + ТекЗнчНомер].Защита         = Истина;

		ЭтаФорма["РеквизитСтатус_"   + ТекЗнчНомер].ТолькоПросмотр = Истина;                                    

		ЭтаФорма["РеквизитСтатус_"   + ТекЗнчНомер].ФиксацияСлева  = 2;

		ЭтаФорма["РеквизитСтатус_"   + ТекЗнчНомер].ФиксацияСверху = 2;

		

		ТабФормы = Элементы.Добавить("Статус_" + ТекЗнчНомер, Тип("ПолеФормы"),РодительГруппа);

		ТабФормы.ПутьКДанным = "РеквизитСтатус_" + ТекЗнчНомер;

		ТабФормы.Ширина = 17;

		ТабФормы.Высота = 2;

		ТабФормы.РастягиватьПоВертикали        = Ложь;

		ТабФормы.РастягиватьПоГоризонтали      = Ложь;

		ТабФормы.ГоризонтальнаяПолосаПрокрутки = Ложь;

		ТабФормы.ВертикальнаяПолосаПрокрутки   = Ложь;

		ТабФормы.ПоложениеЗаголовка            = ПоложениеЗаголовкаЭлементаФормы.Нет;

		ТабФормы.ТолькоПросмотр                = Истина;

				

		//Добавим контекстное меню элемента формы

		//ТабФормы.КонтекстноеМеню.АвтоЗаполнение = Ложь;

		КонМенюСтатистика = Элементы.Добавить(ТабФормы.КонтекстноеМеню.Имя + "_Статистика",Тип("КнопкаФормы"),ТабФормы.КонтекстноеМеню);		

		КомандаСтатистика = ЭтаФорма.Команды.Добавить("Статистика_" + ТекЗнчНомер);

		КомандаСтатистика.Действие   = "Статистика";

		КомандаСтатистика.Заголовок  = "Статистика";

		КонМенюСтатистика.ИмяКоманды = КомандаСтатистика.Имя;

		

		

		Макет = Обработки.бтБИТфон.ПолучитьМакет("Статус");	

		ОбластьСтрока = Макет.ПолучитьОбласть("Строка");

		ОбластьСтрока.Области.Статус.ЦветФона = Новый Цвет(255,0,0);

		ОбластьСтрока.Параметры["ФорматнаяСтрока"] = ТекЗнчАбонент + Символы.ПС + ТекЗнчНомер;

		ОбластьСтрока.Области.ФорматнаяСтрока.ЦветФона = ЦветаСтиля.ЦветФонаФормы;

		ЭтаФорма["РеквизитСтатус_" + ТекЗнчНомер].Вывести(ОбластьСтрока);