Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 авг 2025, 20:04

Объединение команд

Автор alex0402, 28 авг 2016, 12:10

0 Пользователей и 1 гость просматривают эту тему.

alex0402

Код: // СтандартныеПодсистемы.Печать
УправлениеПечатью.ПриСозданииНаСервере(ЭтаФорма);

ИмяКоманды = "а1111";
НоваяКоманда = ЭтаФорма.Команды.Добавить(ИмяКоманды);
НоваяКоманда.Заголовок = ИмяКоманды;
НоваяКоманда.Действие = ИмяКоманды;

МестоРазмещенияКоманд = ЭтаФорма.Элементы.Найти("ФормаКоманднаяПанель");

ПодменюПечать = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + "ПодменюПечать", Тип("ГруппаФормы"), МестоРазмещенияКоманд);
ПодменюПечать.Вид = ВидГруппыФормы.Подменю;
ПодменюПечать.Заголовок = НСтр("ru = 'Печать'; uk = 'Друк'");
ПодменюПечать.Картинка = БиблиотекаКартинок.Печать;

МестоРазмещенияКоманд = ПодменюПечать;

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "1", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Один";

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "2", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Два";

результат:
вложение 1

код:
ИмяКоманды = "а1111";
НоваяКоманда = ЭтаФорма.Команды.Добавить(ИмяКоманды);
НоваяКоманда.Заголовок = ИмяКоманды;
НоваяКоманда.Действие = ИмяКоманды;

МестоРазмещенияКоманд = ЭтаФорма.Элементы.Найти("ФормаПечать");

ПодменюПечать = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + "ПодменюПечать", Тип("ГруппаФормы"), МестоРазмещенияКоманд);
ПодменюПечать.Вид = ВидГруппыФормы.Подменю;
ПодменюПечать.Заголовок = НСтр("ru = 'Печать'; uk = 'Друк'");
ПодменюПечать.Картинка = БиблиотекаКартинок.Печать;

МестоРазмещенияКоманд = ПодменюПечать;

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "1", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Один";

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "2", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Два";

результат:
вложение 2


код отличается только строкой:
МестоРазмещенияКоманд = ЭтаФорма.Элементы.Найти("ФормаПечать");

как объединить все кнопки в одну группу "Печать"?
Спасибо за Сказать спасибо

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск