Controlling Size and Position of Windows
SETWSIZEQQ and GETWSIZEQQ set and get the size and position of the visible representation of a window. The positions and dimensions of visible child windows are expressed in units of character height and width. The position and dimensions of the frame window are expressed in screen pixels. The position and dimensions are returned in the derived type qwinfo defined in IFQWIN.MOD as follows:
TYPE QWINFO INTEGER(2) TYPE ! Type of action performed by SETWSIZEQQ. INTEGER(2) X ! x-coordinate for upper left corner. INTEGER(2) Y ! y-coordinate for upper left corner. INTEGER(2) H ! Window height. INTEGER(2) W ! Window width. END TYPE QWINFO
The options for the qwinfo type are listed under SETWSIZEQQ in the Language Reference.
GETWSIZEQQ returns the position and the current or maximum window size of the current frame or child window. To access information about a child window, specify the unit number associated with it. Unit numbers 0, 5, and 6 refer to the default startup window if you have not explicitly opened them with the OPEN statement. To access information about the frame window, specify the unit number as the symbolic constant QWIN$FRAMEWINDOW. For example:
USE IFQWIN INTEGER status TYPE (QWINFO) winfo OPEN (4, FILE='USER') ... ! Get current size of child window associated with unit 4. status = GETWSIZEQQ(4, QWIN$SIZECURR, winfo) WRITE (*,*) "Child window size is ", winfo.H, " by ", winfo.W ! Get maximum size of frame window. status = GETWSIZEQQ(QWIN$FRAMEWINDOW, QWIN$SIZEMAX, winfo) WRITE (*,*) "Max frame window size is ", winfo.H, " by ", winfo.W
SETWSIZEQQ is used to set the visible window position and size. For example:
USE IFQWIN INTEGER status TYPE (QWINFO) winfo OPEN (4, FILE='USER') winfo.H = 30 winfo.W = 80 winfo.TYPE = QWIN$SET status = SETWSIZEQQ(4, winfo)
Did you find the information on this page useful?