Mensagem processamento
Enviado: 02 Abr 2010 15:13
Gostaria de fazer uso da funcao abaixo aonde apresenta uma tela enquanto uma rotina esta sendo executada. Acontece que a mensagem a ser exibida esta sendo apresentada no caption do oGroup1 e nao caption do oTimHabla.
Sei que o problema esta na funcao HW_Atualiza_Dialogo, porem fiz algumas alteracoes e nao tive sucesso.
Gostaria ainda de melhorar a mesmo, fazendo com que o usuario tivesse a possibilidade de interromper o processo, porem nao tenho ideia de como faria isto.
Alguem tem alguma ideia ?
Desde ja agradeço,
Sei que o problema esta na funcao HW_Atualiza_Dialogo, porem fiz algumas alteracoes e nao tive sucesso.
Gostaria ainda de melhorar a mesmo, fazendo com que o usuario tivesse a possibilidade de interromper o processo, porem nao tenho ideia de como faria isto.
Alguem tem alguma ideia ?
Desde ja agradeço,
Código: Selecionar todos
*********************
FUNCTION MsgRun( cMsg )
*********************
PRIVATE oTimHabla,oGroup
if cMsg=Nil
cMsg:="..."
endif
INIT DIALOG oDlgHabla TITLE " Aguarde" NOEXIT NOEXITESC;
AT 277,191 SIZE 295,73 ;
STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION
@ 11,29 SAY oTimHabla CAPTION cMsg OF oGroup1 SIZE 273,19
@ 8,0 GROUPBOX oGroup1 CAPTION "" SIZE 279,65
ACTIVATE DIALOG oDlgHabla NOMODAL
Return Nil
****************
Function Fim_Run
****************
IF oDlgHabla#NIL
oDlgHabla:CLOSE()
ENDIF
Return Nil
****************
FUNCTION HW_Atualiza_Dialogo(vMensagem)
****************
hwg_processmessage()
oDlgHabla:ACONTROLS[1]:SETTEXT(vMensagem)
RETURN NIL