Histórico da Página

...

Portuguese

Pagetitle

	TFont
	TFont

Classe: TFont

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

TFontAbs -> TFont

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

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.

oObjeto

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

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

Bloco de código

#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

nHeight
		Bold 	  := oTFont:Bold    
		Italic 	  := oTFont:Italic    
		Underline

:= oTFont:Underline   
	ACTIVATE DIALOG oDlg CENTERED 
Return

 CENTERED Return

Exemplo da classe TFont

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