TFont

Classe: TFont

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

Hierarquia

TFontAbs -> TFont

Construtores

New

Método construtor da classe.

Sintaxe

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

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cName	Caracter	Indica o nome da fonte que será utilizada.
uPar2	Qualquer	Compatibilidade.
nHeight	Numérico	Indica o tamanho da fonte.
uPar4	Qualquer	Compatibilidade.
lBold	Lógico	Indica se habilita(.T.)/desabilita(.F.) o estilo negrito.
uPar6	Qualquer	Compatibilidade.
uPar7	Qualquer	Compatibilidade.
uPar8	Qualquer	Compatibilidade.
uPar9	Qualquer	Compatibilidade.
lUnderline	Lógico	Indica se habilita(.T.)/desabilita(.F.) o estilo sublinhado.
lItalic	Lógico	Indica se habilita(.T.)/desabilita(.F.) o estilo itálico.

Retorno

oObjeto

Retorna o objeto criado.

Exemplos

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

Propriedade

Propriedade	Descrição	Tipo
cName	Indica o nome da fonte que será utilizada.	Caracter
lBold	Indica se habilita(.T.)/desabilita(.F.) o estilo negrito.	Lógico
lItalic	Indica se habilita(.T.)/desabilita(.F.) o estilo itálico.	Lógico
lUnderline	Indica se habilita(.T.)/desabilita(.F.) o estilo sublinhado.	Lógico
nHeight	Indica o tamanho da fonte.	Numérico
nWidth	Indica a largura da fonte.	Numérico

Exemplo

#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

Exemplos

Preview

Exemplo da classe TFont

Abrangência

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

Árvore de páginas

TFont

Classe: TFont

New

Método construtor da classe.