Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: TFont
|
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 |
#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
Exemplo da classe TFont
![](https://tdn.totvs.com/download/attachments/6063235/Mon+May+21+15%3A38%3A53+BRT+2012TFont.jpg?version=1&modificationDate=1337625533407)
![](/command/getimage?key=fileName%3DTFont.jpg%2Cmime%3Dimage%2Fpjpeg%2Ctimestamp%3D1314822848994)
![](https://tdn.totvs.com/download/attachments/6063235/Mon+May+21+15%3A38%3A53+BRT+2012TFont.jpg?version=1&modificationDate=1337625533407)
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas