Função: GetStringPixSize
Retorna uma matriz com a altura e a largura total em pixels de uma determinada string, dados uma fonte específica, tamanho e modificadores (negrito, itálico, sublinhado).
GetStringPixSize ( <cString>, < cFontName>, < nTamanho>, [ lBold], [ lItalic], [ lUnderline] ) --> aRet
Nome | Tipo | Descrição | Obrigatório | Referência |
cString | Caracter | String com o texto a ser contado (altura e largura). | X | |
cFontName | Caracter | Indica o nome da fonte instalada no Smart Client. | X | |
nTamanho | Numérico | Indica o tamanho da fonte. | X | |
lBold | Lógico | Indica se a fonte está em negrito. | ||
lItalic | Lógico | Indica se a fonte está em itálico. | ||
lUnderline | Lógico | Indica se a fonte está sublinhada. |
aRet
- (vetor)
- Retorna a altura e a lagura total em pixels, dos caracteres fornecidos em cString.
- Utilize esta função somente nos programas executados através do Smart Client.
- Os parâmetros de formatação (lBold, lItalic e lUnderline) tem como padrão o valor falso (.F.)
Importante |
---|
|
Exemplo
#INCLUDE "TOTVS.CH" User Function ExPixString() // Declarações Local cFont Local aPixString Local cStringTeste // Inicializações cFont := "Arial" cMensagem := "" cStringTeste := "String de Teste" //+----------------------------------------------------------------------------+ //|Testa a função GetStringPixSize(...) //+----------------------------------------------------------------------------+ aPixString := GetStringPixSize(cStringTeste, cFont, 12) // Altura: 19 - Largura: 106 conout("[GetStringPixSize] => Altura => " + cValToChar(aPixString[1])) conout("[GetStringPixSize] => Largura[A] => " + cValToChar(aPixString[2])) aPixString := GetStringPixSize(cStringTeste, cFont, 12, .T.) // Altura: 20 - Largura: 115 conout("[GetStringPixSize] => Altura => " + cValToChar(aPixString[1])) conout("[GetStringPixSize] => Largura[B] => " + cValToChar(aPixString[2])) aPixString := GetStringPixSize(cStringTeste, cFont, 12, .F., .T.) // Altura: 20 - Largura: 108 conout("[GetStringPixSize] => Altura => " + cValToChar(aPixString[1])) conout("[GetStringPixSize] => Largura[C] => " + cValToChar(aPixString[2])) aPixString := GetStringPixSize(cStringTeste, cFont, 12, .F. , .F. , .T.) // Altura: 19 - Largura: 106 conout("[GetStringPixSize] => Altura => " + cValToChar(aPixString[1])) conout("[GetStringPixSize] => Largura[D] => " + cValToChar(aPixString[2])) Return
Microsiga Protheus 12 , TOTVS Application Server 12 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas