Exibir origem

import.css=/download/attachments/327912/newLayout.css

Colapse ALL

Expand ALL

Função: GetFontPixWidths

Retorna uma matriz com a largura em pixels de uma determinada fonte.

Sintaxe

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

Parâmetros/Elementos

Nome	Tipo	Descrição	Obrigatório	Referência
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 lagura em pixels, dos caracteres ASCII 1-254, da fonte instalada no Smart Client. Se a fonte não existir, o retorno será vazio.

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.
O uso em excesso (por exemplo: Loops) pode interferir na performance do sistema operacional, devido ao tráfego de informações entre o Application Server e o Smart Client. Para que isso não ocorra, não tente obter a lista com o tamanho de todos os caracteres das fontes instaladas, somente obtenha as fontes necessárias para o seu programa.

Além disso, armazene a matriz de retorno em uma variável estática, para que não tenha que chamar a função várias vezes no código-fonte.

Exemplos

#DEFINE CRLF Chr(13)+Chr(10)#DEFINE TAB  Chr(9)User Function Exemplo()Local aFontList := Nil, aPixWidths := NilLocal cFont := "Arial", cMensagem := ""Local lFont := .F.Local nCount := 0  aFontList := GetFontList()  AEval(aFontList, {|aFontList|IIf(aFontList == cFont, lFont  := .T.,)})  If !(lFont)    Return MsgStop("Não foi possível encontrar a fonte utilizada no teste")  EndIf//+----------------------------------------------------------------------------+//|Exemplifica o uso da função GetFontPixWidths                                |//+----------------------------------------------------------------------------+  aPixWidths := GetFontPixWidths(cFont, 12, .F., .F., .F.)  nTotal := Len(aPixWidths)  For nCount := ASC("A") To ASC("Z")    If nCount % 4 == 0      cMensagem += Chr(nCount) + "=" + cValToChar(aPixWidths[nCount]) + " pix" + CRLF    Else      cMensagem += Chr(nCount) + "=" + cValToChar(aPixWidths[nCount]) + " pix" + TAB    EndIf  Next nCount//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do GetFontPixWidths")

Preview

Exemplo da função GetFontPixWidths

Abrangência

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