Mensagem de Alerta

[Cavalo Marinho]

Bom pessoal, procurei algo a respeito e nao encontrei.
é o seguinte: Preciso executar uma determinada rotina(funcão) e quero mostrar uma mensagem na tela como uma msginfo só que sem botão sem nada somente a mensagem e a rotina que chamou continuar sendo executada e no final da rotina destruir a telinha de mensagem.
exemplo: de um determinado ponto do sistema eu chamo uma funcao A ou uma Funcao B ou C estas funcoes deverá chamar uma função que gere uma telinha com informação tipo "AGUARDE O PROCESSAMENTO" , mas sem interromper as funcoes que a chamaram, apos o processamento destas funcoes deverá destruir a tela de informação.
Desculpe se nao fui bem claro.

[Toledo]

Amigo, veja os seguintes exemplos na pasta \SAMPLES da sua MiniGui:

MiniGui Extended:
\SAMPLES\BASIC\WAIT_WINDOW

HMG Oficial:
\SAMPLES\Controls\WaitWindow\WAIT.WINDOW.1

Abraços,

[Cavalo Marinho]

Obrigado Toledo, vou olhar o exemplo pra ver se encaixa no que estou querendo.

[Poka]

Olá

Veja se esta rotina serve

Código: Selecionar todos

																										
# INCLUDE "MINIGUI.CH"
# INCLUDE "I_COLOR.CH"
# INCLUDE "ERROR.CH"
# INCLUDE "I_KEYBD.CH"
///////////////////
FUNCT MAIN


   PUBL W_LARGURA:=GETDESKTOPWIDTH()
   PUBL W_ALTURA:=GETDESKTOPHEIGHT()
   
   DEFINE WINDOW PRINCIPAL;
      AT 0,0;
      WIDTH w_largura;
      HEIGHT W_ALTURA;
      ICON "";
      MAIN ;
      ON INIT MSG(0) ;
      TITLE   "Sistema";
      NOMAXIMIZE;
      FONT "ARIAL" SIZE 10;
      BACKCOLOR   WHITE
      
      
		    *-------defincoes dos botoes da janela princiapl
   
			end window
   // tela de aviso de processamento
   DEFINE WINDOW MENSAGEM ;
      AT W_ALTURA/4,W_LARGURA/8 ; 
      WIDTH W_LARGURA-200;
      HEIGHT W_ALTURA/2;
      TITLE '';
      TOPMOST NOCAPTION;
      BACKCOLOR BLUE

      @ MENSAGEM.HEIGHT/2,0 LABEL LABEL_MENSAGEM ;
      WIDTH MENSAGEM.WIDTH HEIGHT 40 ;
      VALUE "" ;
      FONT 'ARIAL' SIZE 18;
      BACKCOLOR BLUE FONTCOLOR WHITE;
      CENTERALIGN

   END WINDOW
   
   *---------------------
   
   
   ACTIVATE WINDOW PRINCIPAL
   ACTIVATE WINDOW MENSAGEM
      
RETU NIL



*----------------
/////////////////////
FUNC MSG(X,_XMENSAGEM)
   /* 
   x= 1 mostra mensagem
			   0 esconde mensagem
			exemplo
			chame essa rotina antes do procedimento 
			msg(1)  mostra mensagem padrao
			msg(1," atualizando arquivos")   
			apos o porocedimento 
			msg(0)   esconde tela
			*/
					  

   DECLARE WINDOW MENSAGEM
   
  	IF EMPTY(_XMENSAGEM_)
    		MENSAGEM.LABEL_MENSAGEM.VALUE:="Aguarde...Processando"
  	ELSE
   		MENSAGEM.LABEL_MENSAGEM.VALUE:=LOWER(_XMENSAGEM_ )
  	ENDIF
	  IF X=1
	    MENSAGEM.SHOW
  	ELSE
	    MENSAGEM.HIDE
  	ENDIF

RETU NIL

*---------------------------

Poka

[Vlademiro]

Olá, pessoal

Amigo, veja os seguintes exemplos na pasta \SAMPLES da sua MiniGui:

MiniGui Extended:
\SAMPLES\BASIC\WAIT_WINDOW

HMG Oficial:
\SAMPLES\Controls\WaitWindow\WAIT.WINDOW.1

Abraços,

Executei esse exemplo e funcionou perfeitamente, mas quando a aplicação tem mais de uma janela fica esquisito, porque a janela MAIN sempre fica aparecendo.

Código: Selecionar todos

    WAIT WINDOW "Buscando CEP (Aguarde)..."  NOWAIT 
    //MEU PROCESSAMENTO
    WAIT CLEAR

Fui ler a documentação e lá tem o seguinte :
"This command must be used only after main window was activated."

Tem como evitar que a janela MAIN APAREÇA ?

Tentei usar o SetFocus na minha janela de formulário para evitar que a Main sobreponha, mas não deu certo.

Uso HMG 3.4.4

Não sei se fui claro, mas é um efeito esquisito mesmo. Eu tenho a Main, chamo a janela do meu formulário, consulto o CEP, e quando boto a mensagem de "aguarde", a janela Main aparece sobrepondo tudo e logo após a WAIT CLEAR o meu formulário aparece de novo.

Obrigado

[JoséQuintas]

Pra que complicar tanto?
Tem status bar?
Coloca lá um pedaço com numeração, indicando tarefas de background.

bola.jpg (11.61 KiB) Exibido 1554 vezes

[Vlademiro]

Vou seguir o seu conselho. O status bar é o controle indicado para esse tipo de tarefa. Acho que, nesse caso, as aplicações em modo texto são melhores. Uma boa janela de mensagem (a moda antiga, tipo PopOn/PopOff) é melhor para o operador ver o aviso. Um status bar é muito discreto, mas é o que vou usar agora. Se houver reclamação eu vejo outra solução. O colega Poka postou uns códigos que eu cheguei a testar sem sucesso, mas o problema está comigo e não com o código dele. Em todo caso eu vou ficar com esse status bar mesmo (pelo menos por enquanto)

Obrigado a todos

[JoséQuintas]

Se for o caso, coloque em vermelho quando tem tarefa, algo que fique em destaque.