Data commit

Task/GUI-Maximum-window-dimensions/Creative-Basic/gui-maximum-window-dimensions.basic

@@ -0,0 +1,34 @@
+DEF Win:WINDOW
+DEF Close:CHAR
+
+DEF ScreenSizeX,ScreenSizeY:INT
+DEF L,T,ClientWidth,ClientHeight:INT
+
+GETSCREENSIZE(ScreenSizeX,ScreenSizeY)
+
+WINDOW Win,0,0,ScreenSizeX,ScreenSizeY,@MINBOX|@MAXBOX|@SIZE|@MAXIMIZED,0,"Get Client Size",MainHandler
+
+'Left and top are always zero for this function.
+GETCLIENTSIZE(Win,L,T,ClientWidth,ClientHeight)
+
+PRINT Win,"Maximum drawing area values: width is"+STR$(ClientWidth)+" and height is"+STR$(ClientHeight)+"."
+
+WAITUNTIL Close=1
+
+CLOSEWINDOW Win
+
+END
+
+SUB MainHandler
+
+	SELECT @CLASS
+
+	CASE @IDCLOSEWINDOW
+
+	Close=1
+
+	ENDSELECT
+
+RETURN
+
+Output: Maximum drawing area values: width is 1280 and height is 749.