モジュール：USE DFLIB
形式
CALL SETMESSAGEQQ (msg, id)
msg
(入力) CHARACTER*(*)。表示されるメッセージ。C 文字列ではなく通常の Fortran 文字列でなければなりません。マルチバイト文字を含むことができます。
id
(入力) INTEGER(4)。変更したいメッセージのメッセージ識別子。以下の表に変更できるメッセージとその識別子を示します。
| Id | メッセージ |
|---|---|
| QWIN$MSG_TERM | "Program terminated with exit code" |
| QWIN$MSG_EXITQ | "\nExit 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 と QWIN$MSG_BMPSAVEDLG はダイアログボックスで選択したファイルのテキストを制御し，以下の形式を取ることに注意してください。
"file description, file designation"
QuickWin が生成する文字列は，SETMESSAGEQQ を適切な id で呼び出すことで変更することができます。これには，QuickWin アプリケーションの下部に表示されるステイタス・メッセージ，状態メッセージ (たとえば，"Paused")，ダイアログボックス・メッセージが含まれます。これらのメッセージには，マルチバイト文字を含むことができます (マルチバイト文字に関する詳細は，「National Language Support ルーチンの使用」を参照してください)。メニュー・メッセージを変更するには，MODIFYMENUSTRINGQQ を使用します。
互換性
QUICKWIN GRAPHICS LIB
関連情報
例
! QuickWin アプリケーションでビルドします。
USE DFLIB
print*, "Hello"
CALL SETMESSAGEQQ('Changed exit text', QWIN$MSG_EXITQ)