Page tree
Skip to end of metadata
Go to start of metadata

Cria um objeto para alterar as características da fonte utilizada em outros controles visuais.

Hierarquia

Construtores

Propriedades

Exemplos

Exemplo 1
   #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

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

  • No labels