PC Toledo

Enviado: **28 Mar 2017 05:43**

olá pessoal,
A "mensagem" do comando PROMPT não funciona no Harbour 3.2, não exibe nada, quando chega na linha do prompt não dá erro
mas não mostra nada na tela

Código: Selecionar todos

#Include "hwgui.ch"
#include "harupdf.ch"
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "hwgcompat.ch"

Proc Main()
   SET(40,159)
   SETMODE(25,80) 
   DO WHILE .T.
      @ 10,10 PROMPT " Imprimir Relatorio " 
      @ 11,10 PROMPT " Encerrar Execucao  "
      MENU TO nOp
      IF LASTKEY() = 27
         EXIT
      ENDIF
     DO CASE
      CASE nOp = 1
           OpenRel(alltrim(cArq))
      CASE nOp = 2
           RETU
     ENDCASE
   ENDDO

Que raios é isto?

Código: Selecionar todos

#Include "hwgui.ch"
#include "wvtwin.ch"
#include "hbgtwvg.ch"
#include "hwgcompat.ch"

ou é Harbour, ou é hwgui, ou é wvt, tudo junto desse jeito não dá.

Provavelmente teve ter alguma redefinição do comando @ PROMPT em algumas dessas includes do fonte.
Pra ter certeza disso há 3 opções:
- Verificar o .PPO se estiver compilando com a opção /p (e coloca aqui pra gente dar uma olhada)
- Retirar todas as includes e verificar se funciona. Se funcionar, coloque 1 por 1 pra ver qual está com o problema
- Revisar as includes e verificar qual tem a redefinição desse comando.

[]'s

Ana

PC Toledo

Comando Prompt não exibe nada na tela

Comando Prompt não exibe nada na tela

Comando Prompt não exibe nada na tela

Comando Prompt não exibe nada na tela