Scalable canvas / Graphics mode 3

Eikon

Works fine for me too, but heres a better method that gets above the taskbar for true full screen in windowed mode:

userlib entry:

.lib "user32.dll"
SetWindowPos%(hWnd%,hAfter%,x%,y%,cx%,cy%,flags%)

B+ Code:

Window = CreateWindow("Full screen window", ClientWidth(Desktop())/2 - 403, ClientHeight(Desktop())/2 - 312, 806, 625, 0, 1)
Canvas = CreateCanvas(0, 0, 800, 600, Window)
SetGadgetLayout Canvas, 1, 2, 1, 2
SetBuffer CanvasBuffer(Canvas)

AutoSuspend 1
CreateTimer 60
Repeat

Select WaitEvent()
	Case $803: End ; X

	Case $101      ; Keydown
	If EventData() = 1 Then ; ESC
		End
	ElseIf EventData() = 57 Then ; Full screen
                SetWindowPos QueryObject(Window, 1), -1, 0, 0, ClientWidth(Desktop()), ClientHeight(Desktop()), 0
	EndIf
	
	Case $4001     ; Tick
	Cls

	If GadgetWidth(Window) <> ClientWidth(Desktop()) Then Text 1, 1, "Press SPACE to go full screen"
	
	VWait 1: FlipCanvas Canvas, 0

End Select
Forever