Status Bar com gtwvw

[SandroBelarmino]

Olá pessoal,

Peguei um exemplo para compilar meu programa com gtwvw e nesse exemplo tem uma status bar na janela principal que mostra a hora no canto direito, estou tentando incluir um texto na primeira parte da status bar (lado esquerdo) porém nao estou conseguindo.
Alguém sabe me dizer o que tenho que fazer?
Abaixo segue o código que gera a status bar.

Código: Selecionar todos

if wvw_SBcreate() > 0 .and.;
   wvw_SBaddPart(, "99:99:99") > 0
   wvw_SetTimer(, 1000)
endif

Valeu galera !!

[SandroBelarmino]

Fiz a seguinte alteração no código e deu certo.

Código: Selecionar todos

if wvw_SBcreate() > 0 .and.;
   wvw_SBaddPart(, "99:99:99") > 0
   wvw_SetTimer(, 1000)
   wvw_SBSetText(,0,'MINHA MENSAGEM AQUI')
endif

Se mais alguém tiver a mesma dúvida espero ter ajudado !!! ) )
Forte abraço a todos.

[TerraSoftware]

Caro colega sandro, compilei seu exemplo, mas o relogio nao aparece, a funcao wvw_SetTimer(, 1000) retorno .f., o resto deu certo.

O que estou fazendo errado? pode me ajudar?

[SandroBelarmino]

Voce precisa incluir a seguinte funcao no seu aplicativo:

Código: Selecionar todos

function WVW_TIMER(nWinNum, hWnd, message, wParam, lParam)
* this function is called every certain interval, by GTWVW gtwndproc
   WVW_SBsetText(0, 1, time())
return NIL

Ela pode ser incluida no prog. principal mesmo.
Abraço.

[TerraSoftware]

Sandro, deu certinho, relogio funcionando. Gostei muito dessa possibilidade de usar o timer().

Agora me diga uma coisa, por favor, como faço para criar novos eventos e chama-los em lugares diferentes?

Por exemplo: as funcoes que vc me passou vai mostrar time() a cada 1000 milessegundos na barra de estatus da janela principal, agora eu gostaria que ao entrar na tela de venda, por exemplo, disparace um outro evento a cada x milessegundos, tem como fazer isso?

Tem como eu passar um parametro pra funcao wvw_timer() informando qual funcao ela deve executar? Ou algum outro tipo de teste?

[sygecom]

Bom vou pegar o bonde andando, mas pelo o que entendi, basta vc mencionar direto o que você deseja mostrar na STATUS BAR:
WVW_SBSetText( 0,0, "AQUI VAI SEU TEXTO")

[TerraSoftware]

Amigo sygecom, agradeço sua ajuda, mas nao era exatamente isso que eu perguntei, vejo só, eu queria fazer assim:

Código: Selecionar todos

******************************************************
function WVW_TIMER(nWinNum,hWnd,message,wParam,lParam)
******************************************************
if algumacoisa
   WVW_SBsetText(0, 1, time())
endif
if outracoisa
   minhafuncaoqualquer()
endif
if novacoisa
   mostraitemnatela()
endif
return

Desta forma eu poderia usar a funcao timer para disparar diversos eventos diferentes, nao somente na StatusBar, chamados de diversos pontos diferentes. Acho inclusive que se eu criar variaveis publicas, provavelmente irei conseguir, tipo assim: hora algumacoisa é .t. hora é .f., assim a funcao timer vai executar o que eu quero na hora que eu quero.

Este é o jeito mais facil? ou existe outro?

[sygecom]

Justamente, acho que seu modo é o modo mais facil, ou pode deixar uma rotina em BACKGROUND rodando e atualizando sua BARRA de STATUS conforme uma variavel public:

Código: Selecionar todos

Function main
nTask1 := HB_BackGroundAdd( {|| Atualiza_barra() }, 5000 )  // atualiza a cada 5 segundos
return

Function Atualiza_barra
WVW_SBsetText(0, 1, time() ) // atualiza a hora
WVW_SBSetText( 0,0, vVARIAVEL_PUBLICA ) // atualiza a janela que esta aberta
return