Добрый день, ув. форум) Подскажите, пожалуйста: в форму программно добавляю кнопку:
Подскажите, как в закомментированном месте кода вернуть размер комментария соответственно размерам формы? Заранее спасибо)
ЭлементыФормы = Форма.ЭлементыФормы;
// ЭВ
Если ЭлементыФормы.Найти("Шаблон") = Неопределено Тогда
ЭлементыФормы.Комментарий.Ширина = ЭлементыФормы.Комментарий.Ширина - 140;
КнопкаШаблон = ЭлементыФормы.Добавить(Тип("Кнопка"), "Шаблон");
КнопкаШаблон.Заголовок = "Заполнить по шаблону";
КнопкаШаблон.Лево = ЭлементыФормы.Комментарий.Лево + ЭлементыФормы.Комментарий.Ширина + 5;
КнопкаШаблон.Ширина =100;
КнопкаШаблон.Верх = ЭлементыФормы.Комментарий.Верх;
КнопкаШаблон.Высота = ЭлементыФормы.Комментарий.Высота;
КнопкаШаблон.УстановитьПривязку(ГраницаЭлементаУправления.Лево, ЭлементыФормы.Комментарий, ГраницаЭлементаУправления.Право);
КнопкаШаблон.УстановитьПривязку(ГраницаЭлементаУправления.Право, Форма.Панель, ГраницаЭлементаУправления.Право);
КнопкаШаблон.УстановитьПривязку(ГраницаЭлементаУправления.Верх, ЭлементыФормы.Комментарий, ГраницаЭлементаУправления.Низ);
КнопкаШаблон.УстановитьПривязку(ГраницаЭлементаУправления.Низ, ЭлементыФормы.Комментарий, ГраницаЭлементаУправления.Низ);
ОбработкаНажатия = Новый Действие("КнопкаЗаполнитьПоШаблонуНажатие");
КнопкаШаблон.УстановитьДействие("Нажатие", ОбработкаНажатия);
ИначеЕсли СокрЛП(ТИП(ЭлементыФормы.Шаблон)) = "Кнопка" и Форма.ВидОперации = Перечисления.ВидыОперацийППИсходящее.ПрочееСписаниеБезналичныхДенежныхСредств Тогда
ЭлементыФормы.Шаблон.Видимость = Истина;
ЭлементыФормы.Комментарий.Ширина = ЭлементыФормы.Комментарий.Ширина - 140 ;
ИначеЕсли СокрЛП(ТИП(ЭлементыФормы.Шаблон)) = "Кнопка" и не Форма.ВидОперации = Перечисления.ВидыОперацийППИсходящее.ПрочееСписаниеБезналичныхДенежныхСредств Тогда
ЭлементыФормы.Шаблон.Видимость = Ложь;
////Вот здесь должно быть восстановление поля КОММЕНТАРИЙ до размеров формы
КонецЕсли;
Если ЗначениеЗаполнено(Форма.Ссылка) и Форма.ВидОперации = Перечисления.ВидыОперацийППИсходящее.ПрочееСписаниеБезналичныхДенежныхСредств Тогда// Доступность полей - проверка на дату запрета редактирования
ЭлементыФормы.Шаблон.Доступность = не НастройкаПравДоступа.ДокументВЗакрытомПериоде(Форма.Ссылка.ПолучитьОбъект());
КонецЕсли;
ПоказатьПодскажите, как в закомментированном месте кода вернуть размер комментария соответственно размерам формы? Заранее спасибо)
По теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Попробовала сделать так:
Надпись15 - надпись комментария
получила вот такое:
ИначеЕсли СокрЛП(ТИП(ЭлементыФормы.Шаблон)) = "Кнопка" и не Форма.ВидОперации = Перечисления.ВидыОперацийППИсходящее.ПрочееСписаниеБезналичныхДенежныхСредств Тогда
ЭлементыФормы.Шаблон.Видимость = Ложь;
ЭлементыФормы.Комментарий.Ширина = ЭлементыФормы.Панель1.Ширина - ЭлементыФормы.Надпись15.Ширина ;
ЭлементыФормы.Комментарий.УстановитьПривязку(ГраницаЭлементаУправления.Право, ЭлементыФормы.Ответственный, ГраницаЭлементаУправления.Право);
КонецЕсли;
Надпись15 - надпись комментария
получила вот такое:
Прикрепленные файлы:

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот