Progress
Programming
Handbook


Font Dialog Example

The p-fdial1.p procedure opens the dialog box that allows you to separately change the font of either its radio set or buttons to a custom font:

p-fdial1.p 
IF FONT-TABLE:NUM-ENTRIES < 13 THEN
     FONT-TABLE:NUM-ENTRIES = 13.

DEFINE VARIABLE RadioFont  AS INTEGER INITIAL 11.
DEFINE VARIABLE ButtonFont AS INTEGER INITIAL 12.
DEFINE VARIABLE FontSelect AS INTEGER INITIAL 11
    VIEW-AS RADIO-SET
        RADIO-BUTTONS "Radio Font", 11, "Button Font", 12 
        FONT RadioFont.
DEFINE BUTTON bOK          LABEL "OK" FONT ButtonFont.
DEFINE BUTTON bCANCEL  LABEL "CANCEL" FONT ButtonFont.

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: 
    ASSIGN FontSelect.
    SYSTEM-DIALOG FONT FontSelect.
END.

ON CHOOSE OF bCANCEL IN FRAME fFont STOP.

ENABLE FontSelect bOK bCANCEL WITH FRAME fFont.

WAIT-FOR WINDOW-CLOSE OF FRAME fFont. 

When you run this procedure on Windows, the following dialog box appears.

When you run the procedure, the radio set displays in the default MS Sans Serif font and buttons display in the default Courier New font. To change a font, choose the Radio Font (font 11) or Button Font (font 12) radio item, then choose or click the OK button to open the font dialog box shown in Figure 23–2. Choosing (or clicking) CANCEL terminates the procedure without any further font changes.

To change the radio-set font selected in Figure 23–2 to bold 8-point Arial, set up the font dialog as shown in Figure 23–3.

Figure 23–3: Changing Font 11 to Bold 8-Point Arial

After you choose OK, the Choose frame fonts dialog box reappears with the radio set in the new font:


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095