ScreenInfo
Retrieves information about current video mode or the desktop.
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
This function can be useful to get current mode informations like graphics driver name, color depth, screen size and more.
If ScreenInfo is called when no graphics mode is set, it returns the information about the desktop.
Here's a description of available fields:
Syntax
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 = "" )
Usage
ScreenInfo [ w ] [, [ h ] [, [ depth ] [ , [ bpp ] [ , [ pitch ] [ , [ rate ] [, driver ]]]]]
Parameters
w
Width.
hHeight.
depthColor depth in bits.
bppBytes per pixel.
pitchBytes per scan line.
rateRefresh rate.
driverDriver name.
Description
This function can be useful to get current mode informations like graphics driver name, color depth, screen size and more.
If ScreenInfo is called when no graphics mode is set, it returns the information about the desktop.
Here's a description of available fields:
| w | Width of the screen in pixels |
| h | Height of the screen in pixels |
| depth | Current pixel format bits per pixel: this can be 1, 2, 4, 8, 16, or 32 |
| pitch | Size of a framebuffer row in bytes |
| rate | Current refresh rate, or 0 if unknown |
| driver | Name of current graphics driver in use, like DirectX or X11 |
Example
Dim w As Integer, h As Integer
Dim depth As Integer
Dim driver_name As String
Screen 15, 32
' Obtain info about current mode
ScreenInfo w, h, depth,,,,driver_name
Print Str(w) + "x" + Str(h) + "x" + Str(depth);
Print " using " + driver_name + " driver"
Sleep
' Quit graphics mode and obtain info about desktop
Screen 0
ScreenInfo w, h, depth
Print "Desktop running at " + Str(w) + "x" + Str(h) + "x" + Str(depth);
Dim depth As Integer
Dim driver_name As String
Screen 15, 32
' Obtain info about current mode
ScreenInfo w, h, depth,,,,driver_name
Print Str(w) + "x" + Str(h) + "x" + Str(depth);
Print " using " + driver_name + " driver"
Sleep
' Quit graphics mode and obtain info about desktop
Screen 0
ScreenInfo w, h, depth
Print "Desktop running at " + Str(w) + "x" + Str(h) + "x" + Str(depth);
Dialect Differences
- Not available in the -lang qb dialect unless referenced with the alias __Screeninfo.
Differences from QB
- New to FreeBASIC
See also