fgl_getwin_width() returns the width, in columns, of the currently active 4GL program window.
fgl_getwin_height() returns the height in rows of the currently active program window.
fgl_getwin_height() produces a window that displays the height of the program window. It also shows the results of fgl_getwin_width(), fgl_getwin_x(), and fgl_getwin_y(). The sample demonstration applications for each of these functions are identical.
MAIN
DEFINE x INTEGER
DEFINE y INTEGER
DEFINE wid INTEGER
DEFINE hgt INTEGER
OPEN WINDOW w_test
AT 4, 4
WITH 15 ROWS, 50 COLUMNS
ATTRIBUTE (BORDER)
LET x = fgl_getwin_x()
LET y = fgl_getwin_y()
LET wid = fgl_getwin_width()
LET hgt = fgl_getwin_height()
DISPLAY "Location: ", x USING "<&", ", ", y USING "<&" AT 2, 3
DISPLAY "Width: ", wid USING "<&", " columns" AT 3, 3
DISPLAY "Height: ", hgt USING "<&", " rows" AT 4, 3
CALL fgl_message_box("Press any key to close this application")
END MAIN