SYSTEM-DIALOG FONT statement

(Windows only; Graphical interfaces only)

Displays a dialog box that allows the user to select and associate a system font with the specified font number. The SYSTEM-DIALOG FONT statement provides a dialog box appropriate to the graphical environment in which it runs.

Syntax

SYSTEM-DIALOG FONT font-number
  [ ANSI-ONLY ]
  [ FIXED-ONLY ]
  [ MAX-SIZE point-size ]
  [ MIN-SIZE point-size ]
  [ UPDATE logical-variable ]
  [ IN WINDOW window ]

font-number

An integer expression that returns an ABL font number (0 to 255), inclusive, which is defined in the setup file for your environment. The font dialog associates the ABL font specified by font-number with the system font the user selects in the dialog. The user confirms the selection and completes the dialog by choosing the OK button. The user interrupts the dialog without changing the font by choosing the Cancel button.

ANSI-ONLY

Allows the font dialog to provide only fonts that contain character representations and that do not include graphic symbols.

FIXED-ONLY

Allows the font dialog to provide only mono-spaced fonts.

MAX-SIZE point-size

Has no effect; supported only for backward compatibility.

MIN-SIZE point-size

Has no effect; supported only for backward compatibility.

UPDATE logical-variable

Specifies a logical variable to return the status of the user's font dialog interaction. If the user clicks on the OK button, the dialog sets logical-variable to TRUE. If the user chooses on the Cancel button, the dialog sets logical-variable to FALSE.

IN WINDOW window

Specifies the window from which the dialog box is displayed. The value window must be the handle of a window.

Example

The following procedure displays a dialog box that allows the user to change the font of either its radio set or its buttons. The radio set lists a font number for each selection: font 1 for the radio set and font 2 for the buttons. Choosing the OK button opens a font dialog to assign a new system font to the font number selected in the radio set. Note that the UPDATE option is not used to return a termination status because the dialog does not require the user to select a new font; it only provides the option. The procedure terminates when the user chooses the Cancel button.

r-fntdlg.p

DEFINE VARIABLE Font1      AS INTEGER NO-UNDO INITIAL 1.
DEFINE VARIABLE Font2      AS INTEGER NO-UNDO INITIAL 2.
DEFINE VARIABLE FontSelect AS INTEGER NO-UNDO INITIAL 1
  VIEW-AS RADIO-SET RADIO-BUTTONS "Font 1", 1, "Font 2", 2 FONT Font1.

DEFINE BUTTON bOK     LABEL "OK" FONT Font2.
DEFINE BUTTON bCANCEL LABEL "Cancel" FONT Font2 AUTO-ENDKEY.

FORM
  SKIP(0.5) SPACE(0.5)
  FontSelect SPACE(2) bOK SPACE(2) bCANCEL
  SPACE(0.5) SKIP(0.5)
  WITH FRAME fFont TITLE "Choose frame fonts ..." VIEW-AS DIALOG-BOX.

ON CHOOSE OF bOK IN FRAME fFont DO:
  IF INTEGER(FontSelect:SCREEN-VALUE IN FRAME fFont) = Font1 THEN
    SYSTEM-DIALOG FONT Font1.
  ELSE
    SYSTEM-DIALOG FONT Font2.
END.

UPDATE FontSelect bOK bCANCEL WITH FRAME fFont.

Notes

• For more information on defining font numbers, see OpenEdge Deployment: Managing ABL Applications.
• Use the font-number with the FONT option to assign the selected font to a widget.