How to Change Font Menu

Source code:

Here is the sample code

Set hMenu = SalGetMenu( hWndMDI)
Set bReturn = SalMenuSetFont( hWndMDI, 'File', 'Times New Roman', 10, FONT_EnhNormal )
Set bReturn = SalMenuUpdate( hWndMDI, hMenu )

Note:

• Make sure to set the MDI property, "Persist Child Menus" to YES
• Font enhancements:
  FONT_EnhNormal
  FONT_EnhItalic
  FONT_EnhUnderline
  FONT_EnhBold
  FONT_EnhStrikeout
• Font Name: "Times New Roman", "Microsoft Sans Serif", etc...