RosettaCodeData/Task/GUI-Maximum-window-dimensions/PureBasic/gui-maximum-window-dimensions.purebasic

7 lines
258 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
If OpenWindow(0, 0, 0, 5, 5, "", #PB_Window_Maximize + #PB_Window_Invisible)
maxX = WindowWidth(0)
maxY = WindowHeight(0)
CloseWindow(0)
MessageRequester("Result", "Maximum Window Width: " + Str(maxX) + ", Maximum Window Height: " + Str(maxY))
EndIf