TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Classe: TFont

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


Hierarquia

 TFontAbs -> TFont


Construtores
New

New

Método construtor da classe.


Sintaxe

TFont(): New ( [ cName], [ uPar2], [ nHeight], [ uPar4], [ lBold], [ uPar6], [ uPar7], [ uPar8], [ uPar9], [ lUnderline], [ lItalic] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cNameCaracterIndica o nome da fonte que será utilizada.
uPar2QualquerCompatibilidade.
nHeightNuméricoIndica o tamanho da fonte.
uPar4QualquerCompatibilidade.
lBoldLógicoIndica se habilita(.T.)/desabilita(.F.) o estilo negrito.
uPar6QualquerCompatibilidade.
uPar7QualquerCompatibilidade.
uPar8QualquerCompatibilidade.
uPar9QualquerCompatibilidade.
lUnderlineLógicoIndica se habilita(.T.)/desabilita(.F.) o estilo sublinhado.
lItalicLógicoIndica se habilita(.T.)/desabilita(.F.) o estilo itálico.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oTFont := TFont():New('Courier new',,-16,.T.)

Propriedade
PropriedadeDescriçãoTipo
cNameIndica o nome da fonte que será utilizada. Caracter
lBoldIndica se habilita(.T.)/desabilita(.F.) o estilo negrito.Lógico
lItalicIndica se habilita(.T.)/desabilita(.F.) o estilo itálico.Lógico
lUnderlineIndica se habilita(.T.)/desabilita(.F.) o estilo sublinhado.Lógico
nHeightIndica o tamanho da fonte.Numérico
nWidthIndica a largura da fonte.Numérico

Exemplos 
#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:nHeigh    Bold 	  := oTFont:Bold    Italic 	  := oTFont:Italic    Underline  := oTFont:Underline   ACTIVATE DIALOG oDlg CENTERED Return

Preview
Exemplo da classe TFont

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos