TFont

   #include "TOTVS.CH"
   
   User Function TFont()  
     DEFINE DIALOG oDlg TITLE "Exemplo TFont" FROM 180,180 TO 550,700 PIXEL

       // TFont    
       oTFont := TFont():New('Courier new',,-16,.T.)
  
        // Aplica Font em um TSay
       oTSay := TSay():New( 01, 01,{||'TSay para teste do TFont (usado Courier new)'},oDlg;
                ,,oTFont,.T.,.F.,.F.,.T.,0,,250,20,.F.,.T.,.F.,.F.,.F.,.F. )   
  
       Name      := oTFont:Name    
       nWidth    := oTFont:nWidth    
       nHeigh    := oTFont:nHeight
       Bold      := oTFont:Bold    
       Italic    := oTFont:Italic    
       Underline := oTFont:Underline   
     ACTIVATE DIALOG oDlg CENTERED 
   Return