Anonymous user
GUI/Maximum window dimensions: Difference between revisions
→{{header|BBC BASIC}}
Line 59:
Maximum height = 1021
</pre>
</lang>
=={{header|Creative Basic}}==
<lang Creative Basic>
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,"CBasic Skeleton Window",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
CLOSECONSOLE
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.
</lang>
=={{header|EGL}}==
| |||