TOTVSTEC

Árvore de páginas

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

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cString

caractere

String com o texto a ser contado (altura e largura).

X


cFontName

caractere

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

Nome

Tipo

Descrição

aRet

vetor

Retorna a altura e a largura 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.)
  • Função disponível, na linguagem AdvPL, a partir da build 7.00.170117A
    .

Exemplos

User Function Exemplo()
  // 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

Abrangência

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

  • Sem rótulos