No exemplo abaixo, gostaria que as fontes do Menu ficasse em Arial tamanho 11. Todas as demais telas altero a fonte e dá tudo certo, mas não estou conseguindo alterar a Window Main, onde aparece os menus iniciais. Como posso fazer isso?:
Código: Selecionar todos
#include "hmg.ch"
Function Main()
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Tutor 02 - Property Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Change Window Title' ACTION Win_1.Title := 'New Title'
ITEM 'Retrieve Window Title' ACTION MsgInfo ( Win_1.Title )
END POPUP
END MENU
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return
