Software Archive
Read-only legacy content
17061 Discussions

Child window size and mirroring output

Intel_C_Intel
Employee
348 Views
I have two questions... The first concerns the child window size. I have set the frame window to 800 X 550 using Initial Settings. Then I try to set the child window size within the main program using the following code:

TYPE (windowconfig) wc
LOGICAL status /.FALSE./

wc%numxpixels = 775
wc%numypixels = 450
wc%numtextcols = -1
wc%numtextrows = -1
wc%numcolors = -1
wc%title= "MMPI-2 Scoring Program"C

status = SETWINDOWCONFIG(wc)
if (.NOT.status) status = SETWINDOWCONFIG(wc)

This sets a "virtual" size, but not an absolute size (i.e. the window will maximize to this size, but does not default to it). What is the proper way to fix this?

The second question concerns mirroring (if that is the proper term) output to a new window. I have written a particular program that will score data and save the scored protocol to a text file. I would like, however, to be able to display the text file simultaneously in a new window for printing purposes... If I use the declaration FILE = 'USER' it will open up in a child window, but won't save.

Any ideas?
0 Kudos
1 Reply
Jugoslav_Dujic
Valued Contributor II
348 Views
SetWSizeQQ lets you manipulate window size (i.e. size of
the window, not of the client area). However, the fine adjustment
of window size with QuickWin is rather hard without some "spice",
mostly due to scrollbars. DFWIN functions GetClientRect,
GetWindowRect, MoveWindow, and AdjustClientRect combined
with GetWindowLong(...GWL_STYLE) may help you to do finer positioning of child windows (hWnd is obtained using GETHWNDQQ(iUnit), where iUnit=QWIN$FRAMEWINDOW refers to the frame)... however, it
would require a further elaboration. Please repost if you need more
details.

Regarding the "mirroring", you'll have to WRITE the output
doubly each time, once to file, once to child window.

HTH

Jugoslav
0 Kudos
Reply