22 сентября 2011 г.

Как программно добавить кнопку в Панель формы 1с 8.1

Иногда бывает, что нужно вставить кнопку в форму программно. Как это можно реализовать в 1с 8.х

Мы хотим на Панель ОсновныеДействияФормы поместить новую кнопку

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

 Если ЭлементыФормы.ОсновныеДействияФормы.Кнопки.Найти("ИмяКнопки")=Неопределено Тогда  // проверяем: есть ли уже такая кнопка?
  
  ТипКнопки = ТипКнопкиКоманднойПанели.Действие;
  ДействиеКнопки = Новый Действие("ОсновныеДействияФормыНазваниеИмяКнопки");
  
  КнопкиФормы =ЭлементыФормы.ОсновныеДействияФормы.Кнопки;
  НоваяКнопка =КнопкиФормы.Добавить("ИмяКнопки",ТипКнопки,"Имя Кнопки",ДействиеКнопки);
  НоваяКнопка.Картинка = БиблиотекаКартинок.ПиктограммаВашейКнопки;
  НоваяКнопка.Отображение = ОтображениеКнопкиКоманднойПанели.Картинка; // можно выбрать другие варианты "Авто", "Надпись" или "Надпись и Картинка"
  КнопкиФормы.Сдвинуть(НоваяКнопка,(-1)*КнопкиФормы.Количество()-1); // сдвигаем кнопку в крайнее правое положение
 КонецЕсли;

КонецПроцедуры

КонецПроцедуры 




Программно добавлена кнопка с изображением значка Word


Комментариев нет:

Отправить комментарий