#DEFINE CRLF Chr(13)+Chr(10)
#DEFINE TAB Chr(9)
User Function Exemplo()
Local aFontList := Nil, aPixWidths := Nil
Local 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 |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Exemplo do GetFontPixWidths")
Return |