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
|