Диалоговое окно «Вопрос» со шрифтом большого формата
Системные диалоги в 1С имеют мелкий шрифт, многих
пользователей это напрягает.
Пришлось написать альтернативу функции Вопрос, с большим шрифтом.
Поддерживается таймаут и режимы Да+Нет и Дат+Нет+Отмена. В случае передачи других режимов вызывается типовой диалог.
Вызывается функция примерно так:
Сообщить(ВОпросБольшой("Вы уверены в том что хотите сделать, хорошо подумали? Очень хорошо подумали? Дважды? Трижды? Точно берете на себя ответственность?", РежимДиалогаВопрос.ДаНет, 30, КодВозвратаДиалога.Нет, "Вопросик", КодВозвратаДиалога.Да))
Сама форма находится в обработке «Вопрос большой». Код функции по вызову этой обработки выглядит так:
Функция ВопросБольшой(ТекстВопроса, Кнопки, Таймаут = Неопределено, КнопкаПоУмолчанию = Неопределено, Заголовок = Неопределено, КнопкаТаймаута = Неопределено)Экспорт
//Сообщить(САП.ВОпросБольшой("Вы уверены в том что хотите сделать, хорошо подумали? Очень хорошо подумали? Дважды? Трижды? Точно берете на себя ответственность?", РежимДиалогаВопрос.ДаНет, 30, КодВозвратаДиалога.Нет, "Вопросик", КодВозвратаДиалога.Да))
#Если Клиент Тогда
Ф = Обработки.ВопросБольшой.ПолучитьФорму();
Ф._ТекстВопроса = ТекстВопроса;
Ф._Кнопки = Кнопки;
Ф._ТаймАут = Таймаут;
Ф._КнопкаПоУмолчанию = КнопкаПоУмолчанию;
Ф._Заголовок = Заголовок;
Ф._КнопкаТаймАута = КнопкаТаймаута;
Возврат Ф.ОткрытьМодально();
#КонецЕсли
КонецФункции
Вот как выглядит окно с тремя кнопками:
