1С 8.3 БСП ПараметрыЭкранаУстройства
Данные > 1С 8.3 БСП > Прочее
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ПараметрыЭкранаУстройства. Возвращает параметры экрана используемого устройства.
Код БСП
Результат = ОбщегоНазначения.ПараметрыЭкранаУстройства(); // структура
// Возвращает параметры экрана используемого устройства.
//
// Возвращаемое значение:
// Структура:
// * Ширина - Число - ширина экрана в пикселях.
// * Высота - Число - высота экрана в пикселях.
// * DPI - Число - плотность пикселей экрана.
// * Портрет - Булево - если экран в портретной ориентации, тогда Истина, иначе - Ложь.
//
Функция ПараметрыЭкранаУстройства() Экспорт
ПараметрыЭкрана = Новый Структура;
ИнформацияЭкрана = ПолучитьИнформациюЭкрановКлиента();
Ширина = ИнформацияЭкрана[0].Ширина;
Высота = ИнформацияЭкрана[0].Высота;
ПараметрыЭкрана.Вставить("Ширина", Ширина);
ПараметрыЭкрана.Вставить("Высота", Высота);
ПараметрыЭкрана.Вставить("DPI", ИнформацияЭкрана[0].DPI);
ПараметрыЭкрана.Вставить("Портрет", Высота > Ширина);
Возврат ПараметрыЭкрана;
КонецФункции
//
// Возвращаемое значение:
// Структура:
// * Ширина - Число - ширина экрана в пикселях.
// * Высота - Число - высота экрана в пикселях.
// * DPI - Число - плотность пикселей экрана.
// * Портрет - Булево - если экран в портретной ориентации, тогда Истина, иначе - Ложь.
//
Функция ПараметрыЭкранаУстройства() Экспорт
ПараметрыЭкрана = Новый Структура;
ИнформацияЭкрана = ПолучитьИнформациюЭкрановКлиента();
Ширина = ИнформацияЭкрана[0].Ширина;
Высота = ИнформацияЭкрана[0].Высота;
ПараметрыЭкрана.Вставить("Ширина", Ширина);
ПараметрыЭкрана.Вставить("Высота", Высота);
ПараметрыЭкрана.Вставить("DPI", ИнформацияЭкрана[0].DPI);
ПараметрыЭкрана.Вставить("Портрет", Высота > Ширина);
Возврат ПараметрыЭкрана;
КонецФункции
// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник