QuickWin Subroutine: Changes QuickWin status messages, state messages, and dialog box messages.
CALL SETMESSAGEQQ (msg,id)
msg |
(Input) Character*(*). Message to be displayed. Must be a regular Fortran string, not a C string. Can include multibyte characters.
|
id |
(Input) INTEGER(4). Identifier of the message to be changed. The following table shows the messages that can be changed and their identifiers:
Id
|
Message
|
QWIN$MSG_TERM
|
"Program terminated with exit code"
|
QWIN$MSG_EXITQ
|
"Exit Window"
|
QWIN$MSG_FINISHED
|
"Finished"
|
QWIN$MSG_PAUSED
|
"Paused"
|
QWIN$MSG_RUNNING
|
"Running"
|
QWIN$MSG_FILEOPENDLG
|
"Text Files(*.txt), *.txt; Data Files(*.dat), *.dat; All Files(*.*), *.*;"
|
QWIN$MSG_BMPSAVEDLG
|
"Bitmap Files(*.bmp), *.bmp; All Files(*.*), *.*;"
|
QWIN$MSG_INPUTPEND
|
"Input pending in"
|
QWIN$MSG_PASTEINPUTPEND
|
"Paste input pending"
|
QWIN$MSG_MOUSEINPUTPEND
|
"Mouse input pending in"
|
QWIN$MSG_SELECTTEXT
|
"Select Text in"
|
QWIN$MSG_SELECTGRAPHICS
|
"Select Graphics in"
|
QWIN$MSG_PRINTABORT
|
"Error! Printing Aborted."
|
QWIN$MSG_PRINTLOAD
|
"Error loading printer driver"
|
QWIN$MSG_PRINTNODEFAULT
|
"No Default Printer."
|
QWIN$MSG_PRINTDRIVER
|
"No Printer Driver."
|
QWIN$MSG_PRINTINGERROR
|
"Print: Printing Error."
|
QWIN$MSG_PRINTING
|
"Printing"
|
QWIN$MSG_PRINTCANCEL
|
"Cancel"
|
QWIN$MSG_PRINTINPROGRESS
|
"Printing in progress..."
|
QWIN$MSG_HELPNOTAVAIL
|
"Help Not Available for Menu Item"
|
QWIN$MSG_TITLETEXT
|
"Graphic"
|
|
QWIN$MSG_FILEOPENDLG and QWIN$MSG_BMPSAVEDLG control the text in file choosing dialog boxes and have the following syntax:
"file description, file designation"
You can change any string produced by QuickWin by calling SETMESSAGEQQ with the appropriate id. This includes status messages displayed at the bottom of a QuickWin application, state messages (such as "Paused"), and dialog box messages. These messages can include multibyte characters. To change menu messages, use MODIFYMENUSTRINGQQ.
例
USE IFQWIN
print*, "Hello"
CALL SETMESSAGEQQ('Changed exit text', QWIN$MSG_EXITQ)