Nesse vídeo demonstraremos em como mudar o cursor do mouse para os ícones de espera ou ao normal com as funções CursorArrow e CursorWait.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe103
Exemplo de como mudar o cursor do mouse enquanto uma rotina entra em "loading"
@type Function
@author Atilio
@since 12/12/2022
@see https://tdn.totvs.com/display/tec/CursorArrow e https://tdn.totvs.com/display/tec/CursorWait
@obs 
    Função CursorArrow
        Não tem parâmetros nem retorno

    Função CursorWait
        Não tem parâmetros nem retorno

    Nas versões mais recentes do Windows, esses comandos não surtem efeito

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

User Function zExe103()
    Local aArea     := FWGetArea()
    Local nTotal    := 0
    Local aDados    := Array(1000000)
    
    //Muda o cursor para carregamento
    CursorWait()

    //Mostra qualquer mensagem
    MsgRun("Lendo informações...", "Teste", {|| aEval(aDados, {|x| nTotal++}) })

    //Volta o cursor para flecha
    CursorArrow()

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++