Cria diálogo com uma régua de progressão.
Sintaxe
Processa( bAcao, [ cTitulo ] , [ cMsg ], [ lAborta] ) -> nil
| Argumento | Obrigat. | Tipo | Descrição |
| bAcao | Sim | C | Função a ser executada. |
| cMsg | Não | C | Mensagem a ser exibida a baixo da régua de progressão |
cTitulo | Não | C | Título de janela |
| lAborta | Não | L | Habilita botão cancelar. |
Descrição
A função Processa() cria um diálogo onde a execução de um determinada função pode ser acompanhada através de uma régua de progressão. Para atribuir o valor total da régua utilizamos a função ProcRegua() e para incrementar a régua utilizamos a função IncProc().
Exemplo
User Function <nome-da-função>( )
Local bAcao := {|lFim| Exemplo(@lFim) }
Local cTitulo := ”
Local cMsg := ‘Processando’
Local lAborta := .T.
Processa( bAcao, cTitulo, cMsg, lAborta )
Return
Static Function Exemplo(lFim)
Local nI
ProcRegua(10000)
For nI := 1 To 10000
If lFim
Exit
EndIf
IncProc()
Next nI
Return