OpenEuphoria

Re:

• Posted by Evan Marshall <1evan at sbcglobal.net> Nov 18, 2003
• 1819 views

Nope, that got me the same results that my numbers did.

Bernie Ryan wrote:

>
>
>Evan:
>   Try this:
>
>dmScreenSettings = allocate(120) --DEVMODE structure
>mem_set(dmScreenSettings,0,120) --clear smScreenSettings
>poke(dmScreenSettings + 8,120)   --dmSize
>poke4(dmScreenSettings + 
>16,or_all({DM_BITSPERPEL,DM_PELSWIDTH,DM_PELSHEIGHT})) -- dmFields
>poke4(dmScreenSettings + 100, 24) -- dmBitsPerPel
>poke4(dmScreenSettings + 104, 640)   --dmPelWidth
>poke4(dmScreenSettings + 108, 480) --dmPelHeight
>if c_func(ChangeDisplaySettingsA,{dmScreenSettings,CDS_FULLSCREEN}) != 
>DISP_CHANGE_SUCCESSFUL then
>        retval = message_box("The requested fullscreen mode is not 
>supported by\nyour video card. ", "Error", or_bits(MB_OK,MB_ICONSTOP))
>end if 
>
>Bernie
>  
>