Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
30 Мар 2017, 05:39
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Объединение команд  (Прочитано 275 раз)

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

Оффлайн alex0402

  • *****
  • Сообщений: 525
  • РЕПУТАЦИЯ: 77
  • КПД: 15%
  • Регистрация: 2010-09-10
  • Сайт: 
Код:
	// СтандартныеПодсистемы.Печать
УправлениеПечатью.ПриСозданииНаСервере(ЭтаФорма);

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

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

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

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

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

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

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

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

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

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

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

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


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

как объединить все кнопки в одну группу "Печать"?
Помощь в л/с $10


Теги:
 

Объединение конфигураций "Документооборот гос. учреждения" и "Гос. и муницип. закупки"

Автор Рената МарсельевнаРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 1213
Последний ответ 19 Янв 2015, 20:02
от дфтын
Объединение организации-кредитора и организации-должника

Автор newsРаздел Новости

Ответов: 0
Просмотров: 720
Последний ответ 11 Авг 2015, 12:26
от news
1C ЗУП 2.5 Помогите с отчетом "Списки сотрудников организации" Объединение значений ячеек

Автор ksander-farsРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 2
Просмотров: 613
Последний ответ 10 Фев 2017, 10:49
от ksander-fars
Вывод набора данных "объединение" скд в дерево значений

Автор Gae4kaРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 0
Просмотров: 1234
Последний ответ 02 Июн 2015, 12:19
от Gae4ka
Как отключить объединение одинаковых позиций в обработке табличной части? (1С 8.2, УТ 10.3.35.2)

Автор Алексей ПомазковРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 2
Просмотров: 330
Последний ответ 10 Фев 2017, 09:40
от Алексей Помазков

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

Смотрите бесплатно более 300 видеоуроков по работе в 1С:Бухгалтерия 8 и 1C:ЗУП 8 ред. 3.0

СМОТРЕТЬ >>

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
158 Сообщений
alex0402
123 Сообщений
MuI_I_Ika MuI_I_Ika
55 Сообщений
Norfolk
52 Сообщений
LexaK
49 Сообщений
alexandr_ll
20 Сообщений
друган
20 Сообщений
Константин5825
18 Сообщений
AsadRoman
18 Сообщений
MrLvovsky MrLvovsky
16 Сообщений

* Кто онлайн

  • Точка Гостей: 325
  • Точка Скрытых: 0
  • Точка Пользователей: 2
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

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

* Дополнительно

Поиск

 

Dellos Catering - выездной ресторан кейтеринг по всему Миру
SimplePortal 2.3.5 © 2008-2012, SimplePortal