35 lines
649 B
Plaintext
35 lines
649 B
Plaintext
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.
|