OpenEuphoria

• Posted by "Bernard W. Ryan" <xotron at bluefrognet.net> Nov 18, 2003
• 1819 views

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