Диалоговое окно "Вопрос" со шрифтом большого формата

26.09.15

Системные диалоги в 1С имеют мелкий шрифт, многих пользователей это напрягает. Пришлось написать альтернативу функции Вопрос, с большим шрифтом.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
down.zip .zip 3,37Kb 6	6	Скачать (1 SM)	Купить за 1 850 руб.

Поддерживается таймаут и режимы Да+Нет и Дат+Нет+Отмена. В случае передачи других режимов вызывается типовой диалог.

Вызывается функция примерно так:

Сообщить(ВопросБольшой("Вы уверены в том что хотите сделать, хорошо подумали? Очень хорошо подумали? Дважды? Трижды? Точно берете на себя ответственность?", РежимДиалогаВопрос.ДаНет, 30,  КодВозвратаДиалога.Нет, "Вопросик", КодВозвратаДиалога.Да))

Сама форма находится в обработке «Вопрос большой». Код функции по вызову этой обработки выглядит так:

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

Вот как выглядит окно с тремя кнопками:

+5 –

См. также

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016 55634 17 23

Универсальный редактор картинок 1С, хранимых в базе, с возможностью рисования

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Универсальный редактор картинок 1С предназначен для обработки изображений в режиме «Предприятие», с возможностью рисовать на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015 63948 45 60

Управление дашбордами

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020 19939 28 6

Дизайн Гайд для создания форм на 1С. Когда и как использовать различные элементы, примеры и антипримеры по использованию

Работа с интерфейсом Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024 23492 mrXoxot 44

130

Прогресс-бар в поле динамического списка

Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

Пример простого и симпатичного прогресс-бара в динамическом списке, без картинок, используя редактирование запроса.

27.05.2024 12043 smielka 37

105

Новогоднее оформление для 1С

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023 18366 1228 elcoan 53

125

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

3 стартмани

10.04.2023 12891 167 acces969 31

126

Модель состояния для MVC

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022 7997 kalyaka 6

Комментарии

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

Свернуть все

1. mihey 11 26.09.15 17:24 Сейчас в теме

Не кошерно нынче модально формы открывать, тогда уже нужен и аналог ПоказатьБольшойВопрос :)

3. fixin 4278 26.09.15 19:06 Сейчас в теме

(1)(2) я только с месяц как изучил УФ, но как знать, может и для УФ напишу ПоказатьБольшойВопросУФ. ;-)
Ксати, три года пользователь на проходной (охранник) сидел с мелким шрифтом и только год назад я удосужился по доброте душевной ему поменять размер букв. Мелочь, а человеку приятно.

2. ardn 685 26.09.15 17:30 Сейчас в теме

ОткрытьМодально?

4. BigB 193 26.09.15 19:49 Сейчас в теме

Господи, какое убожество.
ТС учи мат часть.

&НаКлиенте
Процедура Команда1(Команда)
	ТекстВопроса=Новый ФорматированнаяСтрока("Текст вопроса",Новый Шрифт( ,30, Истина));
	ПоказатьВопрос(Новый ОписаниеОповещения("ПослеЗакрытияВопроса",ЭтотОбъект),ТекстВопроса,РежимДиалогаВопрос.ДаНетОтмена)
КонецПроцедуры

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

Показать

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

Ответить

5. fixin 4278 27.09.15 00:56 Сейчас в теме

(4) в режиме совместимости с 8.1 работает? гыгыгыгы...
Я понимаю, что УФ - это модно, но не стоит забывать про те конторы, где еще на них не перешли. ;-)

6. klinval 343 28.09.15 09:32 Сейчас в теме

(5) ну с таким же успехом можно было бы вам сказать: "А в <Режим использования модальности = Не использовать> работать будет?". Получается, что ваш вариант работает на 8.1, а (4) работает с не модальными окнами, может стоит плюсануть BigB и подправить статью, внеся туда предложенный в четвертом сообщении код?

7. fixin 4278 28.09.15 11:40 Сейчас в теме

(6) Замечание Большого Би нормальное и важное (я например не знал, что в УФ такое можно, но сама задача решалась не на УФ), но сам вопрос слишком мелкий, кому интересно, комменты прочитает. ;-)

10. ujinn 06.12.17 15:14 Сейчас в теме

(4)

&НаКлиенте Процедура Команда1(Команда) ТекстВопроса=Новый ФорматированнаяСтрока("Текст вопроса",Новый Шрифт( ,30, Истина)); ПоказатьВопрос(Новый ОписаниеОповещения("ПослеЗакрытияВопроса",ЭтотОбъект),ТекстВопроса,РежимДиалогаВопрос.ДаНетОтмена) КонецПроцедуры &НаКлиенте Процедура ПослеЗакрытияВопроса(Результат, Параметры) Экспорт Если Результат=КодВозвратаДиалога.Да Тогда ИначеЕсли Результат=КодВозвратаДиалога.Нет Тогда КонецЕсли

С форматированной строкой конечно первое что в голову приходит, а вот с кнопками как быть?

8. karpik666 3921 28.09.15 16:23 Сейчас в теме

Для обычных форм, предложенная вами идея уже реализована, но там не вопрос да и нет, а просто оповещение, например в зуп. Обработка называется: "СообщенияВыполняемыхДействий" .
P.S. Не могу понять зачем в коде функция "Сообщить"?