Janela de Processos

[Minduim]

pessoal bom dia;
como faço para criar uma janela que apresente o nome de alguns processos e após apresente o resultado dos processos e ao final fechar esta janela;

estou partindo do exemplo abaixo:

Código: Selecionar todos

   INIT DIALOG oDlg TITLE cTitleWin AT 20,20 SIZE 350,170 FONT HFont():Add( "Georgia",0,-15,,204 ) ;
         STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
      @  20, 10 SAY "Iniciando Aplicativo"                  SIZE 250,22
      @  40, 40 SAY "Verificando espaço livre no disco"     SIZE 250,22
      @  40, 70 SAY "Verificando arquivos de index"         SIZE 250,22
      @  40,100 SAY "Verificando renovações cadastrais"     SIZE 250,22

      lRet:= DirSpace()
      if lRet
         @ 300, 40 SAY "Ok"     SIZE 20,22
         lRet:= Reorg()
         if lRet
            @ 300, 70 SAY "Ok"     SIZE 20,22
            lRet:= RenCad()
            if lRet
               @ 300,100 SAY "Ok"     SIZE 20,22
            endif 
         endif  
      endif     
      oDlg:Close()
 
   ACTIVATE DIALOG oDlg
   return lRet

[Minduim]

pessoal, bom dia;

modifiquei o exemplo da postagem anterior, conseguindo alguns resultados;
o que ainda não consegui resolver é que quando apresenta na janela o "Ok", o "Ok" anterior é apagado;

exemplo modificado

Código: Selecionar todos

********************************
Static Function SysEntra( cTitleWin )

   local oMsg, lRet

   oMsg = JanelaMsg( cTitleWin )

   lRet:= DirSpace()
   if lRet
      @ 300, 40 SAY "Ok"     SIZE 20,22
      Millisec(1000)
      lRet:= reorg()
      if lRet
         @ 300, 70 SAY "Ok"     SIZE 20,22
         Millisec(1000)  
         lRet:= RenCad()
         if lRet
            @ 300,100 SAY "Ok"     SIZE 20,22
            Millisec(1000)  
         endif  
      endif
      oMsg:Close()
 
   return lRet

********************************
Static Function JanelaMsg( cTitleWin )

   local oDlg

   INIT DIALOG oDlg NOEXIT NOEXITESC NOCLOSABLE TITLE cTitleWin AT 20,20 SIZE 350,170 ;
         FONT HFont():Add( "Georgia",0,-15,,204 )
      @  20, 10 SAY "Iniciando Aplicativo"                  SIZE 250,22
      @  40, 40 SAY "Verificando espaço livre no disco"     SIZE 250,22
      @  40, 70 SAY "Verificando arquivos de index"         SIZE 250,22
      @  40,100 SAY "Verificando renovações cadastrais"     SIZE 250,22

   ACTIVATE DIALOG oDlg NOMODAL
   return oDlg

[marcos.gurupi]

Caro, use objetos no SAY e logo q o processo terminar atualizar os SAY com settext()

[Minduim]

Marcos, agradeço sua colaboração;
alterei os fontes seguindo sua orientação e consegui o resultado esperado;


exemplo modificado

Código: Selecionar todos

********************************
Static Function SysEntra( cTitleWin )

   local oMsg, oSay01, oSay02, oSay03, cMsg01, cMsg02, lRet

   oMsg = JanelaMsg( cTitleWin )

   oSay01:= oSay02:= oSay03:= ""
   cMsg01:= "Aguarde..."
   cMsg02:= "Ok"

   @ 300, 40 SAY oSay01 CAPTION ""  SIZE 80,22
   @ 300, 70 SAY oSay02 CAPTION ""  SIZE 80,22
   @ 300,100 SAY oSay03 CAPTION ""  SIZE 80,22

   oSay01:SetText( cMsg01 )
   oSay01:Refresh()
   lRet:= DirSpace()
   if lRet
      oSay01:SetText( cMsg02 )
      oSay01:Refresh()
      Millisec(1000)  

      oSay02:SetText( cMsg01 )
      oSay02:Refresh()
      lRet:= reorg()
      if lRet
         oSay02:SetText( cMsg02 )
         oSay02:Refresh()
         Millisec(1000)  

         oSay03:SetText( cMsg01 )
         oSay03:Refresh()
         lRet:= RenCad()
         if lRet
            oSay03:SetText( cMsg02 )
            oSay03:Refresh()
            Millisec(1000)  

         endif 
      endif  
   endif
   oMsg:Close()
    
   return lRet

********************************
Static Function JanelaMsg( cTitleWin )

   local oDlg

   INIT DIALOG oDlg NOEXIT NOEXITESC NOCLOSABLE TITLE cTitleWin AT 20,20 SIZE 400,170 FONT HFont():Add( "Georgia",0,-15,,204 )
      @  20, 10 SAY "Iniciando Servidor Daemon"             SIZE 250,22
      @  40, 40 SAY "Verificando espaço livre no disco"     SIZE 250,22
      @  40, 70 SAY "Verificando arquivos de index"         SIZE 250,22
      @  40,100 SAY "Verificando arquivos de auditoria"     SIZE 250,22

   ACTIVATE DIALOG oDlg NOMODAL
   return oDlg