Changing Resolution - Fullscreen and Windowed

Author

Message

Soul Reaper

18

Years of Service

User Offline

Joined: 31st Oct 2005

Location: England

Posted: 6th Jul 2010 19:32

Link

Hello all

I was working on how to change Resolution in PGDK, I think This is a good example

Feel free to improve on it.

I was trying to get it to go from full Screen 1440x900x32 into windowed mode 800x600x32 at runtime but The Parent window can only be called once at runtime unless someone else know a good trick or two

Another Method I was thinking of was to have the menu as a program and then load the main program and set windowed mode that way, just an idea.

Best Regards
Kevin

Declare dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN)
  Declare dbCheckDisplayMode(Width, Height, Depth)

ExamineDesktops()

; ---> #PB_Window_BorderLess For FullScreen or Windowed ->#PB_Window_SystemMenu
OpenWindow(0,0,0,DesktopWidth(0),DesktopHeight(0),"PureGDK Change Resolution Test",#PB_Window_BorderLess)

If dbCheckDisplayMode(1440,900,32)
hDBWnd=OpenDBWnd(WindowID(0),0,0,1440,900)
Else
End
EndIf

_Vsync_Flag=#True

If _Vsync_Flag=#True
  dbSyncRate(DesktopFrequency(0)) ; Mine is 60 FPS by Default
Else
  dbSyncRate(0) ; Unlimited FPS
EndIf

dbGetD3DCapabilities(@Result.D3DCaps)
    If Result\Antialias=#True
    _Antialias_Flag=#True
    Else
    _Antialias_Flag=#False
    EndIf

dbSetDisplayMode(1440,900, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,1440,900,#SWP_NOREPOSITION) ; Resize Main Window
MoveWindow_(hDBWnd,0,0,DesktopWidth(0),DesktopHeight(0),1) ; Pgdk Render Window Size

dbMakeObjectCube(1,10)

;/ Rotate the cube and update the screen 
Repeat
   x.f+0.2: y.f+0.4: z.f+0.8 
   dbRotateObject(1,x.f,y.f,z.f) 
   dbText(10,10,"1440x900")
   dbText(10,30,Str(dbScreenFPS())) 
   dbSync()
   
   Repeat
    Event=WindowEvent()
     If Event=#PB_Event_CloseWindow
        End
     EndIf
   Until Event=0

Until WindowEvent()=#WM_CLOSE Or dbKeyState(#VK_SPACE)=#True

Repeat : WindowEvent()
Until dbKeyState(#VK_SPACE)=#False

If dbCheckDisplayMode(800,600,32)
  If (dbSetResolution(800,600,32))=#True
    dbSetDisplayMode(800,600, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
    SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,800,600,#SWP_NOREPOSITION) ; Resize Main Window
    MoveWindow_(hDBWnd,0,0,800,600,1) ; PGDK Render Window Size
  Else
    End
  EndIf
EndIf

dbMakeObjectCube(1,10)

;/ Rotate the cube and update the screen 
Repeat 
   x.f+0.2: y.f+0.4: z.f+0.8 
   dbRotateObject(1,x.f,y.f,z.f) 
   dbText(10,10,"800x600x32")
   dbText(10,30,Str(dbScreenFPS())) 
   dbSync()
   
   Repeat
    Event=WindowEvent()
     If Event=#PB_Event_CloseWindow
        End
     EndIf
   Until Event=0
    
Until WindowEvent()=#WM_CLOSE Or dbKeyState(#VK_SPACE)=#True

Repeat : WindowEvent()
Until dbKeyState(#VK_SPACE)=#False

If dbCheckDisplayMode(1024,768,32)
  If (dbSetResolution(1024,768,32))=#True
    dbSetDisplayMode(1024,768, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
    SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,1024,768,#SWP_NOREPOSITION) ; Resize Main Window
    MoveWindow_(hDBWnd,0,0,1024,768,1) ; PGDK Render Window Size
  Else
    End
  EndIf
EndIf

dbMakeObjectCube(1,10)

;/ Rotate the cube and update the screen 
Repeat 
   x.f+0.2: y.f+0.4: z.f+0.8 
   dbRotateObject(1,x.f,y.f,z.f) 
   dbText(10,10,"1024x768x32")
   dbText(10,30,Str(dbScreenFPS())) 
   dbSync()
   
   Repeat
    Event=WindowEvent()
     If Event=#PB_Event_CloseWindow
        End
     EndIf
   Until Event=0
    
Until WindowEvent()=#WM_CLOSE Or dbKeyState(#VK_SPACE)=#True

Repeat : WindowEvent()
Until dbKeyState(#VK_SPACE)=#False

End

; <--- Set Resolution(Width, Height, Depth, Flag)
Procedure dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result,dmScreenSettings.DEVMODE 
  dmScreenSettings\dmSize=SizeOf(DEVMODE)
  dmScreenSettings\dmPelsWidth=Width 
  dmScreenSettings\dmPelsHeight=Height 
  dmScreenSettings\dmBitsPerPel=Depth 
  dmScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL 
  If ChangeDisplaySettings_(@dmScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL 
    Result=#True 
  EndIf 
  ProcedureReturn Result 
EndProcedure

Procedure dbCheckDisplayMode(Width, Height, Depth)
  Protected  i.w, Result.w
;/ Check if Display Mode Exists
  While EnumDisplaySettings_(0,i.w,@DevMode.DEVMODE) And Result.w=0
  If (DevMode\dmPelsWidth)=Width And (DevMode\dmPelsHeight)=Height And (DevMode\dmBitsPerPel)=Depth : Result=#True
  Else
  Result=#False
  EndIf
  i+1
  Wend
ProcedureReturn Result
EndProcedure

+ Code Snippet


  Declare dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN)
  Declare dbCheckDisplayMode(Width, Height, Depth)

  ExamineDesktops()

; ---> #PB_Window_BorderLess For FullScreen or Windowed ->#PB_Window_SystemMenu
OpenWindow(0,0,0,DesktopWidth(0),DesktopHeight(0),"PureGDK Change Resolution Test",#PB_Window_BorderLess)

If dbCheckDisplayMode(1440,900,32)
hDBWnd=OpenDBWnd(WindowID(0),0,0,1440,900)
Else
End
EndIf

_Vsync_Flag=#True

If _Vsync_Flag=#True
  dbSyncRate(DesktopFrequency(0)) ; Mine is 60 FPS by Default
Else
  dbSyncRate(0) ; Unlimited FPS
EndIf

dbGetD3DCapabilities(@Result.D3DCaps)
    If Result\Antialias=#True
    _Antialias_Flag=#True
    Else
    _Antialias_Flag=#False
    EndIf

dbSetDisplayMode(1440,900, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,1440,900,#SWP_NOREPOSITION) ; Resize Main Window
MoveWindow_(hDBWnd,0,0,DesktopWidth(0),DesktopHeight(0),1) ; Pgdk Render Window Size

dbMakeObjectCube(1,10) 

;/ Rotate the cube and update the screen 
Repeat
   x.f+0.2: y.f+0.4: z.f+0.8 
   dbRotateObject(1,x.f,y.f,z.f) 
   dbText(10,10,"1440x900")
   dbText(10,30,Str(dbScreenFPS())) 
   dbSync()
   
   Repeat
    Event=WindowEvent()
     If Event=#PB_Event_CloseWindow
        End
     EndIf
   Until Event=0

Until WindowEvent()=#WM_CLOSE Or dbKeyState(#VK_SPACE)=#True

Repeat : WindowEvent()
Until dbKeyState(#VK_SPACE)=#False


If dbCheckDisplayMode(800,600,32)
  If (dbSetResolution(800,600,32))=#True
    dbSetDisplayMode(800,600, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
    SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,800,600,#SWP_NOREPOSITION) ; Resize Main Window
    MoveWindow_(hDBWnd,0,0,800,600,1) ; PGDK Render Window Size
  Else
    End
  EndIf
EndIf

dbMakeObjectCube(1,10) 

;/ Rotate the cube and update the screen 
Repeat 
   x.f+0.2: y.f+0.4: z.f+0.8 
   dbRotateObject(1,x.f,y.f,z.f) 
   dbText(10,10,"800x600x32")
   dbText(10,30,Str(dbScreenFPS())) 
   dbSync()
   
   Repeat
    Event=WindowEvent()
     If Event=#PB_Event_CloseWindow
        End
     EndIf
   Until Event=0
    
Until WindowEvent()=#WM_CLOSE Or dbKeyState(#VK_SPACE)=#True

Repeat : WindowEvent()
Until dbKeyState(#VK_SPACE)=#False


If dbCheckDisplayMode(1024,768,32)
  If (dbSetResolution(1024,768,32))=#True
    dbSetDisplayMode(1024,768, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
    SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,1024,768,#SWP_NOREPOSITION) ; Resize Main Window
    MoveWindow_(hDBWnd,0,0,1024,768,1) ; PGDK Render Window Size
  Else
    End
  EndIf
EndIf

dbMakeObjectCube(1,10) 

;/ Rotate the cube and update the screen 
Repeat 
   x.f+0.2: y.f+0.4: z.f+0.8 
   dbRotateObject(1,x.f,y.f,z.f) 
   dbText(10,10,"1024x768x32")
   dbText(10,30,Str(dbScreenFPS())) 
   dbSync()
   
   Repeat
    Event=WindowEvent()
     If Event=#PB_Event_CloseWindow
        End
     EndIf
   Until Event=0
    
Until WindowEvent()=#WM_CLOSE Or dbKeyState(#VK_SPACE)=#True

Repeat : WindowEvent()
Until dbKeyState(#VK_SPACE)=#False

End


; <--- Set Resolution(Width, Height, Depth, Flag)
Procedure dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result,dmScreenSettings.DEVMODE 
  dmScreenSettings\dmSize=SizeOf(DEVMODE)
  dmScreenSettings\dmPelsWidth=Width 
  dmScreenSettings\dmPelsHeight=Height 
  dmScreenSettings\dmBitsPerPel=Depth 
  dmScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL 
  If ChangeDisplaySettings_(@dmScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL 
    Result=#True 
  EndIf 
  ProcedureReturn Result 
EndProcedure

Procedure dbCheckDisplayMode(Width, Height, Depth)
  Protected  i.w, Result.w
;/ Check if Display Mode Exists
  While EnumDisplaySettings_(0,i.w,@DevMode.DEVMODE) And Result.w=0
  If (DevMode\dmPelsWidth)=Width And (DevMode\dmPelsHeight)=Height And (DevMode\dmBitsPerPel)=Depth : Result=#True
  Else
  Result=#False
  EndIf
  i+1
  Wend
ProcedureReturn Result
EndProcedure

Back to top

Profile PM

Soul Reaper

18

Years of Service

User Offline

Joined: 31st Oct 2005

Location: England

Posted: 7th Jul 2010 14:53

Link

While i am checking on this post I would like to say a very big thank you to Mistrel & Testers, also the TGC Team.

Pure GDK is a great and very robust.

I have a Question

as a rule can i use pure basic keyboard routines with Pure GDK or is it safer to stuck with the Dark Basic GDK commands for this.

DBkeystate(VK_Space) etc

Best Regards

Kevin

Back to top

Profile PM

Mistrel

Retired Moderator

18

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 12th Jul 2010 09:45

Link

All of the keyboard and mouse commands have been replaced internally with the same simple API calls PureBasic makes. So it makes no difference. Use whichever you feel more comfortable with.

Back to top

Profile PM Email Website

Soul Reaper

18

Years of Service

User Offline

Joined: 31st Oct 2005

Location: England

Posted: 14th Jul 2010 14:30

Link

Thank you Mistrel for making this clear to me

Best Regards
Kevin

Back to top

Profile PM

Soul Reaper

18

Years of Service

User Offline

Joined: 31st Oct 2005

Location: England

Posted: 8th Aug 2010 14:01

Link

Hello all

I have added a window mode that takes notice of where the task bar is.

Best Regards
Kevin

Declare dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN)
	Declare dbCheckDisplayMode(Width, Height, Depth)

Global	DesktopX.l=0, DesktopY.l=0, DesktopWidth.l=0, DesktopHeight.l=0, BDesktopWidth.l=0, BDesktopHeight.l=0
	Global	_RezWidth.l=1024, _RezHeight.l=768, _RefreshRate.l=60, _ColorDepth.l=32
	Global	_Antialias_Flag.l=#True, _Vsync_Flag.l=#True, MonitorFrequency.b=0
	Global	_Window=#True, Quit.l=#False, Version.s="Hello World!"
	Global	_Flags=#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget

ExamineDesktops()
	InitKeyboard()

_RezWidth=1680
	_RezHeight=1050

;{ <-- FullScreen Mode
    If dbCheckDisplayMode(_RezWidth, _RezHeight, _ColorDepth)=#True And _Window=#False
      ;/ Show the PureGDK render window 
      OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), Version.s, #PB_Window_BorderLess) 
      hDBWnd=OpenDBWnd(WindowID(0), 0, 0, _RezWidth, _RezHeight)
      dbSetDisplayMode(_RezWidth, _RezHeight, _Vsync_Flag, _Antialias_Flag.l, 0) ; Reload all of your assets after this command...
      MoveWindow_(hDBWnd, 0, 0, DesktopWidth(0), DesktopHeight(0), 1) 
      ;/ Set the window to the to the top of the z-order 
      dbSetWindowSize(DesktopWidth(0), DesktopHeight(0))
    EndIf
;}

;{ <-- Windowed Mode
	If _Window=#True

;{ <-- Get The Window Area Size
		SystemParametersInfo_(#SPI_GETWORKAREA, 0, @DesktopRect.RECT, 0)
		DesktopX = DesktopRect\left
		DesktopY = DesktopRect\top
		DesktopWidth = DesktopRect\right - DesktopRect\left
		DesktopHeight = DesktopRect\bottom - DesktopRect\top
		BDesktopWidth = DesktopWidth-GetSystemMetrics_(#SM_CXFIXEDFRAME)*2
		BDesktopHeight = DesktopHeight-(GetSystemMetrics_(#SM_CYCAPTION)+GetSystemMetrics_(#SM_CYFIXEDFRAME)*2)
;}
		OpenWindow(0, DesktopX, DesktopY, BDesktopWidth, BDesktopHeight,Version.s,_Flags)
		;/ Initialize the PureGDK screen As a child of window ID 0

hDBWnd=OpenDBWnd(WindowID(0), DesktopX, DesktopY, DesktopWidth-1, DesktopHeight-1)
 		dbSetDisplayMode(_RezWidth, _RezHeight, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
		SetWindowPos_(WindowID(0),#HWND_TOPMOST, DesktopX, DesktopY, DesktopWidth, DesktopHeight,#SWP_NOREPOSITION) ; Resize Main Window
		MoveWindow_(hDBWnd, 0, 0, BDesktopWidth, BDesktopHeight,1) ; PGDK Render Window Size
	EndIf
;}

MonitorFrequency.b=DesktopFrequency(0)
	dbSyncRate(MonitorFrequency.b)
	
	dbMakeObjectCube(1,10)

;/ Rotate the cube and update the screen
	Repeat
	x.f+0.2: y.f+0.4: z.f+0.8 
	dbRotateObject(1,x.f,y.f,z.f) 
	dbText(10,10,"Width="+Str(_RezWidth)+" : Height="+Str(_RezHeight)+" : Color Depth="+Str(_ColorDepth))
	dbText(10,30,"Frame Rate="+Str(dbScreenFPS())) 
	dbFastSync()

Repeat
		ExamineKeyboard()   
		Event=WindowEvent()
		If Event=#PB_Event_CloseWindow
			End
		EndIf
	Until Event=0

If KeyboardPushed(#PB_Key_All)=#True
		Quit=#True
	EndIf

Until Quit=#True And KeyboardReleased(#PB_Key_All)=#True
	End

; <--- Set Resolution(Width, Height, Depth, Flag)
Procedure dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result,dmScreenSettings.DEVMODE 
  dmScreenSettings\dmSize=SizeOf(DEVMODE)
  dmScreenSettings\dmPelsWidth=Width 
  dmScreenSettings\dmPelsHeight=Height 
  dmScreenSettings\dmBitsPerPel=Depth 
  dmScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL 
  If ChangeDisplaySettings_(@dmScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL 
    Result=#True 
  EndIf 
  ProcedureReturn Result 
EndProcedure

Procedure dbCheckDisplayMode(Width, Height, Depth)
  Protected  i.w, Result.w
;/ Check if Display Mode Exists
  While EnumDisplaySettings_(0,i.w,@DevMode.DEVMODE) And Result.w=0
  If (DevMode\dmPelsWidth)=Width And (DevMode\dmPelsHeight)=Height And (DevMode\dmBitsPerPel)=Depth : Result=#True
  Else
  Result=#False
  EndIf
  i+1
  Wend
ProcedureReturn Result
EndProcedure

+ Code Snippet


	Declare dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN)
	Declare dbCheckDisplayMode(Width, Height, Depth)

	Global	DesktopX.l=0, DesktopY.l=0, DesktopWidth.l=0, DesktopHeight.l=0, BDesktopWidth.l=0, BDesktopHeight.l=0
	Global	_RezWidth.l=1024, _RezHeight.l=768, _RefreshRate.l=60, _ColorDepth.l=32
	Global	_Antialias_Flag.l=#True, _Vsync_Flag.l=#True, MonitorFrequency.b=0
	Global	_Window=#True, Quit.l=#False, Version.s="Hello World!"
	Global	_Flags=#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget

	ExamineDesktops()
	InitKeyboard()

	_RezWidth=1680
	_RezHeight=1050

;{ <-- FullScreen Mode
    If dbCheckDisplayMode(_RezWidth, _RezHeight, _ColorDepth)=#True And _Window=#False
      ;/ Show the PureGDK render window 
      OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), Version.s, #PB_Window_BorderLess) 
      hDBWnd=OpenDBWnd(WindowID(0), 0, 0, _RezWidth, _RezHeight)
      dbSetDisplayMode(_RezWidth, _RezHeight, _Vsync_Flag, _Antialias_Flag.l, 0) ; Reload all of your assets after this command...
      MoveWindow_(hDBWnd, 0, 0, DesktopWidth(0), DesktopHeight(0), 1) 
      ;/ Set the window to the to the top of the z-order 
      dbSetWindowSize(DesktopWidth(0), DesktopHeight(0))
    EndIf
;}

;{ <-- Windowed Mode
	If _Window=#True

;{ <-- Get The Window Area Size
		SystemParametersInfo_(#SPI_GETWORKAREA, 0, @DesktopRect.RECT, 0)
		DesktopX = DesktopRect\left
		DesktopY = DesktopRect\top
		DesktopWidth = DesktopRect\right - DesktopRect\left
		DesktopHeight = DesktopRect\bottom - DesktopRect\top
		BDesktopWidth = DesktopWidth-GetSystemMetrics_(#SM_CXFIXEDFRAME)*2
		BDesktopHeight = DesktopHeight-(GetSystemMetrics_(#SM_CYCAPTION)+GetSystemMetrics_(#SM_CYFIXEDFRAME)*2)
;}
		OpenWindow(0, DesktopX, DesktopY, BDesktopWidth, BDesktopHeight,Version.s,_Flags)
		;/ Initialize the PureGDK screen As a child of window ID 0

		hDBWnd=OpenDBWnd(WindowID(0), DesktopX, DesktopY, DesktopWidth-1, DesktopHeight-1)
 		dbSetDisplayMode(_RezWidth, _RezHeight, _Vsync_Flag, _Antialias_Flag, 0) ; Reload all of your assets after this command...
		SetWindowPos_(WindowID(0),#HWND_TOPMOST, DesktopX, DesktopY, DesktopWidth, DesktopHeight,#SWP_NOREPOSITION) ; Resize Main Window
		MoveWindow_(hDBWnd, 0, 0, BDesktopWidth, BDesktopHeight,1) ; PGDK Render Window Size
	EndIf
;}

	MonitorFrequency.b=DesktopFrequency(0)
	dbSyncRate(MonitorFrequency.b)
	
	dbMakeObjectCube(1,10) 

;/ Rotate the cube and update the screen
	Repeat
	x.f+0.2: y.f+0.4: z.f+0.8 
	dbRotateObject(1,x.f,y.f,z.f) 
	dbText(10,10,"Width="+Str(_RezWidth)+" : Height="+Str(_RezHeight)+" : Color Depth="+Str(_ColorDepth))
	dbText(10,30,"Frame Rate="+Str(dbScreenFPS())) 
	dbFastSync()

	Repeat
		ExamineKeyboard()   
		Event=WindowEvent()
		If Event=#PB_Event_CloseWindow
			End
		EndIf
	Until Event=0

	If KeyboardPushed(#PB_Key_All)=#True
		Quit=#True
	EndIf

	Until Quit=#True And KeyboardReleased(#PB_Key_All)=#True
	End

; <--- Set Resolution(Width, Height, Depth, Flag)
Procedure dbSetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result,dmScreenSettings.DEVMODE 
  dmScreenSettings\dmSize=SizeOf(DEVMODE)
  dmScreenSettings\dmPelsWidth=Width 
  dmScreenSettings\dmPelsHeight=Height 
  dmScreenSettings\dmBitsPerPel=Depth 
  dmScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL 
  If ChangeDisplaySettings_(@dmScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL 
    Result=#True 
  EndIf 
  ProcedureReturn Result 
EndProcedure

Procedure dbCheckDisplayMode(Width, Height, Depth)
  Protected  i.w, Result.w
;/ Check if Display Mode Exists
  While EnumDisplaySettings_(0,i.w,@DevMode.DEVMODE) And Result.w=0
  If (DevMode\dmPelsWidth)=Width And (DevMode\dmPelsHeight)=Height And (DevMode\dmBitsPerPel)=Depth : Result=#True
  Else
  Result=#False
  EndIf
  i+1
  Wend
ProcedureReturn Result
EndProcedure

Back to top

Profile PM

Sorry your browser is not supported!

PureGDK / Changing Resolution - Fullscreen and Windowed