Nesse vídeo demonstraremos a utilização da função GetTextWidth, que serve para buscar a largura de um texto.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe292
Retorna a largura em pixels de um texto conforme uma fonte
@type  Function
@author Atilio
@since 21/02/2023
@obs 
    
    Função GetTextWidth
    Parâmetros
        + Fonte instanciada pela classe TFont
        + Texto a ser avaliado
    Retorno
        Retorna a largura em pixels

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe292()
    Local aArea       := FWGetArea()
    Local cFontNome   := 'Tahoma'
    Local oFontPadrao := TFont():New(cFontNome, , -12)
    Local cTexto      := "Ola mundo 123"
    Local nLargura    := 0

    //Busca a largura em pixels do texto
    nLargura := GetTextWidth(oFontPadrao, cTexto)
    FWAlertInfo("A largura é: " + cValToChar(nLargura), "Teste GetTextWidth")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++