Форум Программирование Общие вопросы программирования (Dev)

1С ТСД

1. user1415757 27.09.23 16:30 Сейчас в теме

Всем привет есть форма Рабочее место. При открытии на компьютере или на телефоне или ТСД размеры кнопок и шрифта очень маленькие.
Есть ли какое нибудь решение, чтобы от размера экрана растягивались кнопки и текст?

Для ТСД был написан код

НоваяГруппа = ЭтаФорма.Элементы.Добавить("Группа_"+Формат(НомерКнопки,"ЧГ=0"), Тип("ГруппаФормы"), Элементы.ГруппаКоманды);
    НоваяГруппа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
    НоваяГруппа.Поведение = ПоведениеОбычнойГруппы.Обычное;
    НоваяГруппа.Отображение = ОтображениеОбычнойГруппы.Нет;
    НоваяГруппа.ОтображатьЗаголовок = Ложь;
    НоваяГруппа.ЦветФона = ЦветаСтиля.ЮИ_ЦветФонаКнопкиЗавершитьОК;
    
    НоваяКнопка = ЭтаФорма.Элементы.Добавить("Кнопка_"+Формат(НомерКнопки,"ЧГ=0"), Тип("ДекорацияФормы"), НоваяГруппа);
    НоваяКнопка.Вид = ВидДекорацииФормы.Картинка;
    Если ЗначениеЗаполнено(СокрЛП(ТекстКнопки)) Тогда
        НоваяКнопка.ТекстНевыбраннойКартинки = ТекстКнопки;
    Иначе    
        НоваяКнопка.ТекстНевыбраннойКартинки = Строка(Операция);
    КонецЕсли;    
    //НоваяКнопка.Шрифт = ШрифтыСтиля.ЮИ_ШрифтКнопки;
    НоваяКнопка.ЦветРамки = ЦветаСтиля.ЮИ_ЦветРамкиКнопкиЗавершитьОК;
    НоваяКнопка.Рамка = РамкиСтиля.ЮИ_СтильРамкиКноки;
    
    НоваяКнопка.Высота = 2;
    
    НоваяКнопка.РастягиватьПоГоризонтали = Истина;
    НоваяКнопка.Гиперссылка = Истина;
    НоваяКнопка.УстановитьДействие("Нажатие","КомандаНажатие");

Показать

уже указана высота и размер шрифта закомментирован. Но как изменить все это на автоматически , чтобы под разрешение экрана становилось)

Прикрепленные файлы: