-
Notifications
You must be signed in to change notification settings - Fork 12
Open
Description
Пример: У поля формы "ПодписьГруппДейств" - завышенная ширина, ничем не меняемая.
Код:
#Использовать gui
Перем Форма;
Процедура ПриСозданииОбъекта()
УправляемыйИнтерфейс = Новый УправляемыйИнтерфейс();
Форма = УправляемыйИнтерфейс.СоздатьФорму();
//# Устанавливаем обработку события ПриОткрытии
Форма.УстановитьДействие(ЭтотОбъект, "ПриОткрытии", "ПриОткрытииФормы");
Форма.Показать();
КонецПроцедуры
//# Обработка события первого открытия формы
Процедура ПриОткрытииФормы() Экспорт
// Декорация1 = Форма.Элементы.Добавить("Декорация1", "ПолеФормы", Неопределено);
//Декорация1.Вид = Форма.ВидПоляФормы.ПолеНадписи;
//Декорация1.Заголовок = "Это действительно работает!";
Форма.Высота = 100;
Форма.СостояниеОкна = СостояниеОкна.Развернутое;
ВидыПоляФормы = Форма.ВидПоляФормы;
ПоложениеЗаголовка = Форма.ПоложениеЗаголовка;
ВидГруппыФормы = Форма.ВидГруппыФормы;
ЭлементыФормы = Форма.Элементы;
УправляемыйИнтерфейс = Новый УправляемыйИнтерфейс();
ГруппаУпр = ЭлементыФормы.Добавить("ГруппаУпр", "ГруппаФормы", Неопределено);
ГруппаУпр.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ГруппаУпр.АвтоматическийРазмер = Ложь;
ГруппаУпр.Высота = 42;
Декорация1 = Форма.Элементы.Добавить("ПодписьГруппДейств", "ПолеФормы", ГруппаУпр);
Декорация1.Вид = Форма.ВидПоляФормы.ПолеНадписи;
Декорация1.Закрепление = УправляемыйИнтерфейс.СтильЗакрепления.Лево; //это не помогло
Декорация1.АвтоматическийРазмер = Ложь; //и это не помогло
Декорация1.Ширина = 30;
Декорация1.Заголовок = "Действия с выделенными базами:";
Кнопка1 = ЭлементыФормы.Добавить("КнопкаОбновить", "КнопкаФормы", ГруппаУпр);
Кнопка1.Заголовок = "Обновить";
Кнопка1.Закрепление = УправляемыйИнтерфейс.СтильЗакрепления.Лево;
Кнопка1.УстановитьДействие(ЭтотОбъект, "Нажатие", "ПриНажатииКнопкаОбновить");
КонецПроцедуры
Metadata
Metadata
Assignees
Labels
No labels