Declare Function ScreenList ( ByVal depth As Long = 0 ) As Long

result = ScreenList( [ depth ] )

depth

returns 0, when there are no more resolutions to read.

It works like the Dir function: the first call to the function requires the depth parameter to be specified, it returns the lowest supported resolution for the requested depth. Further calls to ScreenList without arguments returns the next resolutions. When no more resolutions are available, ScreenList returns 0.

The result of ScreenList is encoded as a 32 bit value, with the screen width as the High Word and the height as the Low Word.

Resolutions are returned from lowest to highest supported ones.

It is safe to call this function before any graphics mode has been set.

Dim As Integer mode, w, h

Print "Resolutions supported at 8 bits per pixel:"

mode = ScreenList(8)
While (mode <> 0)
    w = HiWord(mode)
    h = LoWord(mode)
    Print w & "x" & h
    mode = ScreenList()
Wend

• Not available in the -lang qb dialect unless referenced with the alias __Screenlist.
  
  

• New to FreeBASIC
  
  

• Screen
  
• ScreenRes