Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|110\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Blitz3Dman	Created : 05 May 2007 Edited : 05 May 2007 Language : Blitz Available resolutions a handy little program
Ever wondered what resolutions were good on your computer? Here's a program that tells you all the graphics modes you can go into full screen with, and the ones that your driver supports. Graphics 640,480,0,2 For wide=1 To 1800 For high=1 To 1800 If GfxModeExists(wide,high,16) Then Print "Available graphics mode at: "+wide+","+high:Print"" Next Next Print "Press any key to exit." WaitKey End --v

Comments
Saturday, 05 May 2007, 11:04
Paul	Here's a version from the helpfile, I think it does the same thing ;P Both work though Graphics 800,600,0,2 For i=1 To CountGfxModes3D() Print "Mode "+i+": ("+GfxModeWidth(i)+"x"+GfxModeHeight(i)+"x"+GfxModeDepth(i)+")" Next WaitKey() --v
Saturday, 05 May 2007, 11:08
Blitz3Dman	Oops... well, that doesn't work in BB2D, does it?
Saturday, 05 May 2007, 11:40
JL235	It would also probably be better to store all the resolutions you'd want the user to be able to chose from and then test those. For example, it'd be rare that I would want the user to be using a resolution below 640x480 (even then I'd prefer 800x600 to be the minimum). You could then take it a step further and sub-divide them into aspect ratios. My monitor is 16:10, so I'd prefer to be able to omit all other aspect ratios. I believe Half Life 2 does that.
Saturday, 05 May 2007, 14:59
Paul	DiablosDevil, have you tried the help code's approach? If so, did it give you all resolutions your screen could handle or all resolutions your card would take?
Sunday, 06 May 2007, 09:38
steve_ancell	@Blitz3Dman... Oops... well, that doesn't work in BB2D, does it? Nope !... But this one does :- ; CountGFXModes()/GfxModeWidth/GfxModeHeight/GfxModeDepth example intModes=CountGfxModes() Print "There are " + intModes + "graphic modes available:" ; Display all modes including width, height, and color depth For t = 1 To intModes Print "Mode " + t + ": Print "Width=" + GfxModeWidth(t) Print "Height=" + GfxModeHeight(t) Print "Height=" + GfxModeDepth(t) Next --v
Sunday, 06 May 2007, 11:36
Paul	Hi again This is what i meant. Graphics 400,600,0,2 drives=CountGfxModes3D() ;how many drives are there? Dim res(drives);array to log the modes For x#=1 To 100 For y#=1 To 100 For i=1 To drives;go threw all the modes tmpx#=GfxModeWidth(i) ;Get the graphicswidth as a float number tmpy#=GfxModeHeight(i);--- II ---height --- II ---- If tmpx#/x#*y#=tmpy#;if the resolution is allowed If res(i)=0; checke if it is logged res(i)=1;log resolution so it doesn't pop up under 1:2, 2:4, 3:6 and so on If m=0 ;only print the "hedder" if it's the first time threw on this mode Print "---------------------------------" Print Int(x#)+"/"+Int(y#)+"("+tmpx#/tmpy#+") : resolutions:" m=1 EndIf Print "Mode "+i+": ("+GfxModeWidth(i)+"x"+GfxModeHeight(i)+"x"+GfxModeDepth(i)+")" EndIf EndIf Next If m=1;If any resolutions in this mode where found then wait until user presses a key WaitKey() m=0;reset the "hedder" EndIf Next Next Print "---------------------------------" Print "Done" WaitKey() End --v
Sunday, 06 May 2007, 13:08
JL235	All I can say is that the highest resolution given is the same as my monitors highest resolution. 1440x900. I do not know if this is my graphics cards highest too. But I really liked your code Paul.
Wednesday, 09 May 2007, 12:12
Paul	thx, just to finish this off a little code that checks your current resolution and gets all the resolutions... whatever just try the code. btw, it needs the user32.decels and dll. --user32.decels-- .lib "user32.dll" GetSystemMetrics% (nIndex%) : "api_GetSystemMetrics" Local gx#=api_GetSystemMetrics(0) Local gy#=api_GetSystemMetrics(1) Local gxy#=gx#/gy#,tmpx#,tmpy#,i For i=1 To CountGfxModes3D() tmpx#=GfxModeWidth(i) tmpy#=GfxModeHeight(i) If gxy#=tmpx#/tmpy# Then Print "Mode "+i+": ("+GfxModeWidth(i)+"x"+GfxModeHeight(i)+"x"+GfxModeDepth(i)+")" Next WaitKey() --v

Available resolutions

Comments