GetStringPixSize

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).

Sintaxe

GetStringPixSize ( <cString>, < cFontName>, < nTamanho>, [ lBold], [ lItalic], [ lUnderline] ) --> aRet

Parâmetros/Elementos

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.

Retorno

aRet

Retorna a altura e a lagura total em pixels, dos caracteres fornecidos em cString.

Observações

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
Função disponível, na linguagem AdvPL, a partir da build 7.00.060322A.

Exemplo

#INCLUDE "TOTVS.CH"
 
User Function ExPixString()
    // Declarações
	Local cFont
	Local aPixString
	Local cStringTeste
	
	// Inicializações
	cFont := "Arial"
	cMensagem := ""
	cStringTeste := "String de Teste" // Largura em pixels para Arial 12 normal => Altura: 19 Largura: 106
 
    //+----------------------------------------------------------------------------+
    //|Testa a função GetStringPixSize(...)
    //+----------------------------------------------------------------------------+
    aPixString := GetStringPixSize(cStringTeste, cFont, 12, .F., .F., .F.)
    conout("[GetStringPixSize] => Altura  => " + cValToChar(aPixString[1]))
    conout("[GetStringPixSize] => Largura => " + cValToChar(aPixString[2]))
    
Return

Abrangência

Microsiga Protheus 12 , TOTVS Application Server 12 , ByYou Application Server

Árvore de páginas

GetStringPixSize

Função: GetStringPixSize