Graphics resolution selector

This code has been declared by its author to be Public Domain code.

Graphics resolution selector by Zethrax

2015

*** Blitz3D Code ***

The 'SelectGraphicsMode' function displays a simple selector to allow a user to choose and set a valid 3D graphics resolution.

The available resolutions are shown in a paged display (Next and Previous navigation links will show if they are needed) with 'Fullscreen' and 'Windowed' hyperlinks that let the user choose which mode they want to use.

Color depths below 32 bits are filtered out (I don't think there's any point in showing these).

This is intended more for use in demo and sample projects than in released products, but it shows the basics involved if you want to expand on it.

For use in a 2D project just change 'Graphics3D' to 'Graphics' and 'CountGfxModes3D' to 'CountGfxModes' in the code below (untested but it should work).

To see it in use in a sample project go to: http://www.blitzbasic.com/codearcs/codearcs.php?code=1137

; The 'SelectGraphicsMode' function displays a simple selector to allow a user to choose and set a valid 3D graphics resolution.

; The available resolutions are shown in a paged display (Next and Previous navigation links will show if they are needed) with 'Fullscreen' and 'Windowed' hyperlinks that let the user choose which mode they want to use.

; Color depths below 32 bits are filtered out (I don't think there's any point in showing these).

; This is intended more for use in demo and sample projects than in released products, but it shows the basics involved if you want to expand on it.

; For use in a 2D project just change 'Graphics3D' to 'Graphics' and 'CountGfxModes3D' to 'CountGfxModes' in the code below (untested but it should work).

; To see it in use in a sample project go to: <a href="http://www.blitzbasic.com/codearcs/codearcs.php?code=1137" target="_blank">http://www.blitzbasic.com/codearcs/codearcs.php?code=1137</a>



; === Declarations ===

Dim A_temp_int_array( 0 ) ; A temporary integer array used by some functions. Used by 'SelectGraphicsMode' so declare here.
Global G_font_underlined, G_font ; Globals used with fonts. Used by 'SelectGraphicsMode' so declare here.

Global G_mouseclick_item ; Global used with 'DrawHyperlink'.



; === Functions ===



Function DrawHyperlink( x, y, linktext$, item )
	; Draws the specified 'linktext$' as hyperlink text at the x and y locations on the screen.
	; If the hyperlinked text is clicked on with the left mouse button then the value of 'item' will be returned in the global variable 'G_mouseclick_item'.
	; Otherwise 'G_mouseclick_item' will contain a zero value.	
	
	SetFont G_font_underlined
	
	Local width = StringWidth( linktext$ )
	Local height = FontHeight()
	
	Local mx = MouseX()
	Local my = MouseY()

	Local over_item = False
	
	If ( mx >= x ) And ( mx < ( x + width ) )
		If ( my >= y ) And ( my < ( y + height ) )
			over_item = True			
		EndIf
	EndIf
	If over_item ; If the mouse pointer is over the hyperlink...
		Color 0,128,0 ; Use the mouseover hyperlink color.
		If MouseHit( 1 ) ; If the left mouse button has been pressed...
			G_mouseclick_item = item ; Set G_mouseover_item to the item id.
		EndIf			
	Else
		Color 62,158,255 ; Use the normal hyperlink color.
	EndIf
	Text x, y, linktext$
	SetFont G_font
	Color 255, 255, 255
End Function



Function LoadFonts()
	; Note that 'LoadFont' will always return a non-zero handle even if it can't find the font. It seems to default to 'arial' in this case.
	G_font_underlined = LoadFont( "arial", 16, True, False, True )
	G_font = LoadFont( "arial", 16, True, False, False )
	SetFont G_font
End Function



Function SelectGraphicsMode()
	; Selects the full screen 3D graphics mode to set.

	Graphics3D 470, 500
	SetBuffer BackBuffer()
	timer = CreateTimer( 60 )	
	
	; - Count the number of high-color modes.
	num_modes = CountGfxModes3D()
	mode_count = 0
	For i = 1 To num_modes
		If GfxModeDepth( i ) > 31 Then mode_count = mode_count + 1
	Next

	; - Store all the high-color modes in the array with low-color modes filtered out.
	Dim A_temp_int_array( mode_count )
	x = 0
	For i = 1 To num_modes
		If GfxModeDepth( i ) > 31 Then x = x + 1 : A_temp_int_array( x ) = i
	Next
	num_modes = mode_count
	
	LoadFonts
	start_mode = num_modes
	num_modes_to_show = 20
	
	Repeat
		x = 10 : y = 10
		Cls
		Color 255,128,0
		Text x, y, "[  =======  Select Graphics Mode  =======  ]" : y = y + 20
		Color 223,223,0
		Text x, y, "(Color modes lower than 32 bit are not shown)" : y = y + 20
		Color 255,255,255
		mode_count = 0
		G_mouseclick_item = 0 ; Zero this global before updating the hyperlinks.
		For i = start_mode To 1 Step -1
			Text x, y, "Width: " + GfxModeWidth( A_temp_int_array( i ) )
			Text x + 90, y, "Height: " + GfxModeHeight( A_temp_int_array( i ) )
			Text x + 180, y, "Color Depth: " + GfxModeDepth( A_temp_int_array( i ) )
			DrawHyperlink x + 295, y, "Fullscreen", A_temp_int_array( i )
			DrawHyperlink x + 380, y, "Windowed", A_temp_int_array( i ) + 1000			
			y = y + 20
			mode_count = mode_count + 1
			If mode_count = num_modes_to_show Then Exit ; Show a maximum of 'num_modes_to_show' modes on a page.
		Next
		
		If start_mode < num_modes ; If there are previous modes to show...
			DrawHyperlink 10, 470, "<<< Prev", -1
		EndIf
		If ( start_mode - num_modes_to_show ) > 0 ; If there are more modes to show...
			DrawHyperlink 220, 470, "Next >>>", -2
		EndIf		
				
		Flip
		WaitTimer timer

		;Cls : Print G_mouseclick_item : WaitKey
		
		If G_mouseclick_item > 0 Then Exit ; A graphics mode hyperlink was clicked, so exit the loop and set the mode.
		
		; - Update navigation links.
		Select G_mouseclick_item
			Case -1 ; Previous page link clicked.
				start_mode = start_mode + num_modes_to_show
			Case -2 ; Next page link clicked.
				start_mode = start_mode - num_modes_to_show
		End Select
		If KeyHit( 1 ) Then End
	Forever

	If G_mouseclick_item > 1000 ; If windowed mode was selected...
		G_mouseclick_item = G_mouseclick_item - 1000
		x = 2 ; Set windowed mode.
	Else ; Fullscreen mode was selected.
		x = 1 ; Set fullscreen mode.
	EndIf

	EndGraphics
	
	Graphics3D GfxModeWidth( G_mouseclick_item ), GfxModeHeight( G_mouseclick_item ), GfxModeDepth( G_mouseclick_item ), x
	Dim A_temp_int_array( 0 ) ; Free the memory used by this array.
End Function



; === Example Usage ===


SelectGraphicsMode ; Select and set the full screen graphics mode.

WaitKey
End

The code can be found at: http://www.blitzbasic.com/codearcs/codearcs.php?code=3180

Comments

RemiD

2015

I also suggest to filter out the resolutions when (Width < Height) or (Width > Height*2)

_PJ_

2015

RemiD, Why would you filter out, say 21:9 aspect resolutions?

RemiD

2015

@_PJ_>>i had no idea that 21:9 resolutions existed, and i think it is too large, so i filter it out ;)

Code Archives Forum