Help needed with WB3d_FakeFullscreen

Blitz3D Forums/Blitz3D Userlibs/Help needed with WB3d_FakeFullscreen

Dan	(Posted 2015) [#1]

This code needs the WinBLitz3d library. download

ok here is whats making a Trouble in my code:

I need to Call Graphic command multiple times, when reloading images.

in my code it is functioning nicely, sofar.

now The Graphics window shall be Fullscreen.
The Fullscreen Code needs to be called every time when a new picture loads
(or else if playing movies, the movie wont unload/Stop).

if i add WB3D_FakeFullScreen(RuntimeWindow_hWnd) just After the new
Graphics mode is set, The Window changes to borderless mode, but the menue is drawn kinda double time 1 under another,
(only 1 is usuable ofc) and my code doesnt show any picture.

here is a Code to show the Bug

press f2 to see the bug
Press f1 to go to windowed mode.

the question is, what shall i change/add so that this code is working ?

(ps. looks like the handle to which the screen is drawn, is not right, somehow (at f2))
(pps. this is an edit of the Example Code from WinBlitz3d Library)

; WB3D styles
Include "WB3DStyles.bb"

Graphics3D WB3D_GadgetWidth(WB3D_DeskTop()),WB3D_GadgetHeight(WB3D_DeskTop()),16,3
SetBuffer BackBuffer()

Global RuntimeWindow_hWnd = WB3D_InitializeGUI(SystemProperty("AppHwnd"),0,0,WB3D_GadgetWidth(WB3D_DeskTop()),WB3D_GadgetHeight(WB3D_DeskTop()))
return_MODE = WB3D_FakeFullScreen(RuntimeWindow_hWnd)


button = WB3D_CreateButton("TestME",100,100,100,20,RuntimeWindow_hWnd,0)

menu = WB3D_WindowMenu(RuntimeWindow_hWnd)
menu_file_project = WB3D_CreateMenu("File",0,menu,0)
menu_about      = WB3D_CreateMenu("About",1,menu_file_project,0)
WB3D_UpdateWindowMenu RuntimeWindow_hWnd

; cleanup any old creation events, its better to do this before we enter the main
; event loop, when some gadgets are created they generate events.
WB3D_FlushEvents 
name$=WB3D_OpenFileRequest("Open Image file","","Image","*.*")
image=LoadImage(name$)


; setup out quit flag, and loop until the flag is set.
QUIT = 0
While Not QUIT = 1
 	
	; generate an internal blitz event
	Flip
		
	; get an event of the event queue.
	event = WB3D_WaitEvent()
	
	Select event
		
		Case WB3D_EVENT_GADGET
			gadget = WB3D_EventSource()
			Select gadget
				Case button
					WB3D_Notify "Button","Button",0
					Cls
			End Select	
		Case WB3D_EVENT_KEYPRESS
		
			; wb_eventdata holds the key code that was pressed.
			keypressed = WB3D_EventData()
			
			Select keypressed
				
				Case WB3D_KEY_ESCAPE	
					
					; set the flag to leave the loop.
					QUIT = 1
					
			End Select
							
	End Select
		

		If KeyDown(59) And sw=1 Then WB3D_ForceWindowMode RuntimeWindow_hWnd,return_MODE : sw=0
	If KeyDown(60) And sw=0 
	  Graphics 800,600,32,2
	  image=LoadImage(name$)
	  return_MODE=WB3D_FakeFullScreen(RuntimeWindow_hWnd) : sw=1
	  Cls 
    EndIf
	Cls 
        x=x+1
	DrawBlock Image,0,0
	Text 10,10,"Press ESC to quit"
	Text 10,20,"Press F2 to get into fakefullscreen mode = BUG"
	Text 10,30,"Press f1 to get into normal mode"
        text 10,50,"X="+x

Wend

WB3D_ForceWindowMode RuntimeWindow_hWnd,return_MODE

; use notify using external winapi constants. 
WB3D_Notify "WB3D GUI Window Example","Bye, Thats It I Quit",MB_OK Or MB_ICONASTERISK
WB3D_EndGUI()
EndGraphics
End