1С 8.3 БСП ПараметрыЭкранаУстройства - Программист 1С Минск. Автоматизация бизнеса.

Популярные страницы:
Перейти к контенту

1С 8.3 БСП ПараметрыЭкранаУстройства

Данные > Примеры кода 1С > 1С 8.3 БСП > Прочее
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ПараметрыЭкранаУстройства. Возвращает параметры экрана используемого устройства.
Код БСП
Результат = ОбщегоНазначения.ПараметрыЭкранаУстройства(); // структура

// Возвращает параметры экрана используемого устройства.
//
// Возвращаемое значение:
//   Структура:
//     * Ширина  - Число - ширина экрана в пикселях.
//     * Высота  - Число - высота экрана в пикселях.
//     * DPI     - Число - плотность пикселей экрана.
//     * Портрет - Булево - если экран в портретной ориентации, тогда Истина, иначе - Ложь.
//
Функция ПараметрыЭкранаУстройства() Экспорт

   ПараметрыЭкрана = Новый Структура;
   ИнформацияЭкрана = ПолучитьИнформациюЭкрановКлиента();

   Ширина = ИнформацияЭкрана[0].Ширина;
   Высота = ИнформацияЭкрана[0].Высота;

   ПараметрыЭкрана.Вставить("Ширина",  Ширина);
   ПараметрыЭкрана.Вставить("Высота",  Высота);
   ПараметрыЭкрана.Вставить("DPI",     ИнформацияЭкрана[0].DPI);
   ПараметрыЭкрана.Вставить("Портрет", Высота > Ширина);

   Возврат ПараметрыЭкрана;

КонецФункции

// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
Поиск кода
0
Комментарии
____________________
Copyright©, «Программист 1С в г.Минске», 23.08.2021
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
Назад к содержимому