Wiki документация

// Добавление кнопки позвонить в боковую панель контактной информации
//
Процедура ДобавитьКнопкиНаПанельКИ(ЭтаФорма) Экспорт
 
	ИменаЭлементов = Новый Массив(2);
	ИменаЭлементов[0] = "РасшифровкаСпискаКонтрагентТелефон";
	ИменаЭлементов[1] = "РасшифровкаСпискаКонтактноеЛицоТелефон";
 
	Для Каждого ИмяЭлемента Из ИменаЭлементов Цикл
		ПолеТелефон = ЭтаФорма.Элементы.Найти(ИмяЭлемента);
		Если ПолеТелефон <> Неопределено Тогда
			ГруппаРасшифровкаСписка = ПолеТелефон.Родитель;
 
			ИмяКоманды = ПолеТелефон.Имя + "Позвонить";
			Если ЭтаФорма.Команды.Найти(ИмяКоманды) <> Неопределено Тогда
				Продолжить;
			КонецЕсли; 
 
			ГруппаТелефон = ЭтаФорма.Элементы.Вставить("Группа" + ГруппаРасшифровкаСписка.Имя + "Телефон", Тип("ГруппаФормы"), ГруппаРасшифровкаСписка, ПолеТелефон);
			ГруппаТелефон.Вид = ВидГруппыФормы.ОбычнаяГруппа;
			ГруппаТелефон.ОтображатьЗаголовок = Ложь;
			ГруппаТелефон.Отображение = ОтображениеОбычнойГруппы.Нет;
			ГруппаТелефон.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;
 
			ЭтаФорма.Элементы.Переместить(ПолеТелефон, ГруппаТелефон);
 
			Команда = ЭтаФорма.Команды.Добавить(ИмяКоманды);
			Команда.Подсказка = НСтр("ru='Позвонить по телефону'");
			Команда.Заголовок = "#";
			Команда.Действие = "Подключаемый_НажатиеНаИнформационнуюСсылку";
 
			КнопкаПозвонить = ЭтаФорма.Элементы.Добавить(ГруппаТелефон.Имя + "Позвонить", Тип("КнопкаФормы"), ГруппаТелефон);
			КнопкаПозвонить.ИмяКоманды = ИмяКоманды;
			КнопкаПозвонить.ЦветРамки = ЦветаСтиля.ЦветФонаФормы;
		КонецЕсли;
	КонецЦикла;
 
КонецПроцедуры