ScreenInfo
 
Получает информацию о текущем видеорежиме или о рабочем столе.

Синтаксис

Declare Sub ScreenInfo ( ByRef w As Integer = 0, ByRef h As Integer = 0, ByRef depth As Integer = 0, ByRef bpp As Integer = 0, ByRef pitch As Integer = 0, ByRef rate As Integer = 0, ByRef driver As String = "" )

Использование

ScreenInfo [ w ] [, [ h ] [, [ depth ] [ , [ bpp ] [ , [ pitch ] [ , [ rate ] [, driver ]]]]]

Параметры

w
Ширина.
h
Высота.
depth
Глубина цвета в битах.
bpp
Кол-во байт на пиксель.
pitch
Кол-во байт на сканируемой линии.
rate
Частота обновления.
driver
Имя драйвера.

Описание

Эта функция может быть полезна, чтобы получить текущую информацию режима, такую как имя графического драйвера, глубину цвета, размер экрана и многое другое.

Если ScreenInfo вызывается, когда не установлен графический режим, она возвращает информацию о рабочем столе.

Вот описание доступных полей:

wШирина экрана в пикселях
h Высота экрана в пикселях
depthТекущий пиксельный формат бит на пиксель: может быть 1, 2, 4, 8, 16 или 32
pitch Размер строки в байтах фреймбуфера
rateТекущая частота обновления, или 0, если она неизвестна
driver Имя текущего используемого графического драйвера, как DirectX или X11


Пример

Dim w As Integer, h As Integer
Dim depth As Integer
Dim driver_name As String

Screen 15, 32 
' Получить информацию о текущем режиме 
ScreenInfo w, h, depth,,,,driver_name
Print Str(w) + "x" + Str(h) + "x" + Str(depth); 
Print " using " + driver_name + " driver" 
Sleep 
' Закрываем графический режим и получаем информацию о рабочем столе 
Screen 0 
ScreenInfo w, h, depth 
Print "Desktop running at " + Str(w) + "x" + Str(h) + "x" + Str(depth); 


Различия диалектов

  • Не доступно в диалекте -lang qb , но есть псевдоним __Screeninfo.

Отличия от QB

  • Новое в FreeBASIC

См. также