I have a quickwin application that was setup for 800 x 600 screen resolution, but when ran in higher resolutions the window and fonts are too small. Is there a way the program can determine the screen resolution and adjust the font and window size accordingly? Right now I am using following code to se the windows:
! Set the x & y pixels to 800X600
wc%numxpixels = 800
wc%numypixels = 600
wc%numtextcols = -1
wc%numtextrows = -1
wc%numcolors = -1
wc%title=
"xxx"C
wc%mode = QWIN$SCROLLDOWN
!stay on bottom row of windowstatus = SETWINDOWCONFIG(wc)
! Attempt to set configuration with above values
! if attempt fails, set with system estimated values
if (.NOT.status)status = SETWINDOWCONFIG(wc) ! set page frame
qw.type = QWIN$SET
! qw.type = QWIN$max MAKES WINDOW MAX SIZE
qw.w = 680
qw.h = 458
i4 = setwsizeqq(QWIN$FRAMEWINDOW, qw)
!*******************************************************************************
! SET CHILD WINDOW SIZE
!*******************************************************************************
winfo.TYPE = QWIN$SET
winfo.x =0
winfo.y =0
winfo.W = 82
winfo.H = 31
CALL CLEARSCREEN($GCLEARSCREEN)result = SETWSIZEQQ(unit,winfo)
