wapi_MessageBox() clone, com temporizador

[lugab]

Boa noite, pessoal..

Alguém tem pra compartilhar uma função similar em aparência a wapi_MessageBox(), mas que ofereça opção de definir o tempo de exposição ?

Código: Selecionar todos

*--------------------------
FUNCTION Aviso( cText)
*--------------------------
wapi_MessageBox( wapi_GetActiveWindow(), cText, "Atencao", WIN_MB_ICONASTERISK)
RETURN NIL

[bpd2000]

Refer it may help you:
http://www.hmgforum.com/viewtopic.php?f ... ISK#p29718

[lugab]

Valeu Bpd2000,

Esqueci de dizer que eu uso Harbour Console...não sei usar HMG !!!

[bpd2000]

Check this:

Código: Selecionar todos

/*
* bpd2000
* Messagebox with timer
* COMPILE: hbmk2 demo.prg -run -lhbwin
*/
#include "hbwin.ch"

FUNCTION MAIN()

   wapi_MessageBoxTimeout( 0,"Test by bpd","MessageBoxTimeout",WIN_MB_ICONQUESTION,,5000)
   WAPI_MESSAGEBOX( 0, "Time is over", "MESSAGEBOX", WIN_MB_ICONQUESTION )
   
RETURN nil

[lugab]

BPD2000, onde tem o código de WAPI_MESSAGEBOXTIMEOUT()?

hbmk2: Erro: Referenciado, faltando, mas funções desconhecida(s):
WAPI_MESSAGEBOXTIMEOUT()

Eu compilei com hbmk2 teste.prg -run -lhbwin
e uso Hb32 com gtwvw.hbc e hbwin.hbc


Hazael, vc tem esse código ?

Você teria que extrair o código que aciona a API do Windows

[bpd2000]

Refer link, I am facing no problem while compiling my code
https://github.com/Petewg/harbour-core/wiki/HBWIN

[janio]

BPD2000, onde tem o código de WAPI_MESSAGEBOXTIMEOUT()?

Pra mim também está dando função desconhecida.

Uso harbour3.2, compilação de 2017

[JoséQuintas]

No Harbour 3.2 tá tudo espalhado em LIBs.
No Harbour 3.4, o Viktor organizou e colocou na hbwin.

Eu pretendo retirar todo uso de Messagebox do meu aplicativo.
Usar a Messagebox do Windows atrapalha.
Recomendo o mesmo.

[janio]

Eu pretendo retirar todo uso de Messagebox do meu aplicativo.

Tenho uma situação específica em que preciso de uma mensagem com timeout

Por isso é que eu não conhecia... é meio recente (bom... mais de um ano...)

Xiii

Aproveitando, alguém sabe o link para baixar o harbour3.2 mais recente (ja compilado)?

Janio

[lugab]

Amigos, esse é o meu Harbour 3.2

D:\>harbour -build
Harbour 3.2.0dev (r1709181715)
Copyright (c) 1999-2016, http://harbour-project.org/
Harbour Build Info
---------------------------
Version: Harbour 3.2.0dev (r1709181715)
Compiler: MinGW GNU C 5.3 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2017-09-18 17:15 UTC Viktor Szakats (vszakats users.norepl
y.github.com)
ChangeLog ID: 4dc53f95d0404bcae8e73e648904f1efb9aad452
Built on: Sep 21 2017 04:46:45
Build options: (Clipper 5.3b) (Clipper 5.x undoc)

Aonde eu pego a versão que já incorpora o wapi_MessageBoxTimeOut()

[janio]

Encontrei no link abaixo

viewtopic.php?f=4&t=19340

ou

viewtopic.php?f=43&t=17565

[asimoes]

Prefiro criar uma função de caixa de diálogo com timeout em hwgui, minigui ou gtwvg

[lucimauro]

Deste link o arquivo baixado esta corrompido.

[JoséQuintas]

O que comentei sobre não usar a Messagebox() da API do Windows:

A pergunta do sim ou não, ok, Messagebox() faz... mas... aparece em primeiro plano.

Qual o problema disso?
Estou lá mexendo em uma janela, de repente vém o Sim ou Não da outra... e respondo pra janela errada...
No uso normal tudo bem, mas na correria... lá se foi uma resposta errada.

Já se for na própria LIB, sem API Windows, tudo bem, fica vinculada à janela que estava aberta, e só vai aparecer se alterar o foco para aquela janela.

Por enquanto só aconteceu comigo, em uma situação eventual.

Já não lembro mais se foi no uso do multithread, janelas do mesmo aplicativo, ou no uso de mais de um aplicativo por vez.

De repente tem um processamento, que no final pergunta sim ou não, e a gente vai fazendo outra coisa sem esperar... seria esta a situação.

[JoséQuintas]

Pera aí... vamos começar de novo....
Sinceramente... só agora fui olhar o visual da messagebox....

É isso mesmo?

Agora sim, é que vou alterar minhas mensagens.... muito feia.... rs
Nem tava prestando atenção nelas...