Ширина окна "ПоказатьВводЗначения"

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

Платформа 1С v8.3 1С

1. vpaoli 26 23.12.20 14:59 Сейчас в теме

Всем добрый день!
Вопрос на засыпку:
Глобальный контекст (Global context)
ПоказатьВводЗначения (ShowInputValue)
Синтаксис:
ПоказатьВводЗначения(<ОписаниеОповещенияОЗавершении>, <Значение>, <Подсказка>, <Тип>)

По идее ширина окна должна соответствовать ширине <Подсказка>. Но таковой она не получается. Текст подсказки скрыт , ширина недостаточная. Как в этом случае увеличить размер окна. Проблема в том, что это окно открывает сама платформа 1С: 8.3

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. RocKeR_13 1328 23.12.20 15:04 Сейчас в теме

(1)

По идее ширина окна должна соответствовать ширине <Подсказка>

По-моему все-таки ширина окна подбирается по содержимому.

3. vpaoli 26 23.12.20 15:25 Сейчас в теме

(2)

По-моему все-таки ширина окна подбирается по содержимому.

В обычных формах из конфигуратора скорее вы правы. Но тут особый случай - окно делает платформа и все содержимое в реквизитах ПоказатьВводЗначения(<ОписаниеОповещенияОЗавершении>, <Значение>, <Подсказка>, <Тип>)

4. Азбука Морзе 105 23.12.20 15:31 Сейчас в теме

(3) размер и положение управляемых форм каждый пользователь подбирает под себя. В том числе и для окна ввода значения.

5. RocKeR_13 1328 23.12.20 15:36 Сейчас в теме

(3) сейчас поэкспериментировал: похоже там ширина вообще фиксированная) Во всяком случае не дает растянуть его

6. SlavaKron 23.12.20 16:52 Сейчас в теме

(5) Странно, у меня ширина окна меняется и сохраняется, как сказано в (4). Тип значения – Строка.

7. SlavaKron 23.12.20 17:30 Сейчас в теме

Такой вариант (на любителя):

&НаКлиенте
Процедура Команда1(Команда)

	ОписаниеТипов = Новый ОписаниеТипов("Строка");
	ПоказатьВводЗначенияРасш("ПослеВводаЗначения",, "Введите значение", ОписаниеТипов, 40, Истина);
	
КонецПроцедуры

&НаКлиенте
Процедура ПослеВводаЗначения(Результат, ФормаВвода) Экспорт
	
	Если Результат = 1 Тогда

        Сообщить("Введенное значение: " + ФормаВвода.SelectedValue);
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ПоказатьВводЗначенияРасш(ИмяПроцедурыПриЗавершении, Значение = Неопределено, Подсказка = Неопределено, Тип = Неопределено, ШиринаОкна = Неопределено, Многострочный = Ложь)
	
	ПараметрыФормы = Новый Структура();
	ПараметрыФормы.Вставить("PreValue", Значение);
	ПараметрыФормы.Вставить("Prompting", Подсказка);
	ПараметрыФормы.Вставить("InputTypeDescription", Тип);	
	ПараметрыФормы.Вставить("Multiline", Многострочный);
	
	ФормаВвода = ПолучитьФорму("sysForm:InputCommon2Form", ПараметрыФормы, ЭтотОбъект);
	ФормаВвода.РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
	
	Оповещение = Новый ОписаниеОповещения(ИмяПроцедурыПриЗавершении, ЭтотОбъект, ФормаВвода);
	ФормаВвода.ОписаниеОповещенияОЗакрытии = Оповещение;
	
	ФормаВвода.Открыть();
	
	Если ШиринаОкна <> Неопределено Тогда
		ФормаВвода.Ширина = ШиринаОкна;
	КонецЕсли;
	
КонецПроцедуры

Показать

8. vpaoli 26 25.12.20 18:25 Сейчас в теме

(4) Речь шла о том , чтобы пользователям не настраивать под себя, чтобы за них это программист сделал.

Всем спасибо. Как говорится "мы пошли другим путем" , без ПоказатьВводЗначения(<ОписаниеОповещенияОЗавершении>, <Значение>, <Подсказка>, <Тип>)

Вот это: ПолучитьФорму("sysForm:InputCommon2Form", ПараметрыФормы, ЭтотОбъект);
первый раз вижу. Когда будет время попробую.

Оставьте свое сообщение

E-mail: