Code: Select all
CreateImage(0, 600, 600, 32, #PB_Image_Transparent)
Code: Select all
CreateImage(0, 600, 600, 32, #PB_Image_Transparent)
Code: Select all
DWidth.i = DesktopWidth(0)
DHeight.i = DesktopHeight(0)
OpenWindow(0, 0, 0, DWidth, DHeight, "Test", #PB_Window_Maximize | #PB_Window_BorderLess)
InitSprite()
OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0), WindowHeight(0), #False, 0, 0, #PB_Screen_WaitSynchronization)
Debug "Resolution detected: " + DWidth + " x " + DHeight
Debug "Resolution effective: " + WindowWidth(0) + " x " + WindowHeight(0)
InitKeyboard()
Repeat
Event = WaitWindowEvent()
ExamineKeyboard()
Esc_Pressed = KeyboardPushed(#PB_Key_Escape)
Until Event = #PB_Event_CloseWindow Or Esc_Pressed
Code: Select all
OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0) * DesktopResolutionX(), WindowHeight(0) * DesktopResolutionY(), #False, 0, 0, #PB_Screen_WaitSynchronization)