Boa Noite!
Tomei algumas linhas de códigos em Clipper 5.2 de minha autoria, e estou migrando para HMG. Tenho aprendido muito com essa brincadeira!
Agora me vejo debatendo com o objeto “ProgressBar” em meu aplicativo. Pouco tempo atrás inclusive foi-me sugerido a utilização de tal objeto.
Implantei uma barra de tarefa (ProgressBar) no meu aplicativo que funciona perfeitamente, desde que o usuário mantenha a janela do aplicativo em foco. Se alternar para qualquer tarefa do Windows, quando voltar, o "ProgressBar" terá sumido.
O que tenho que fazer para fixar a “ProgressBar”, mantendo-a sempre visível, mesmo alternando entre tarefas do Windows?
* Ativa a (ProgressBar) - antes do "Do While" - - - Circuito Principal
Main.Barra.visible:=.T.
Do While .not. eof()
*
*------------------------------------------------------------------------*
* ---> Do Events
* Permite que a HMG processe suas mensagens (eventos),
* sendo que um deles é controlar a janela popup que se abre com o
* pressionamento da tecla F10
*------------------------------------------------------------------------*
Do Events
*
* Captura o número do registro atual da área ( 1 )
Wreg_tual := Recno()
*
* Mostra a Barra de Progressão de Tarefas - (ProgressBar)
Main.Barra.value:=(Wreg_tual/Wtotreg)*100
*
* -> Inicia as variáveis com blank
*
INIC_VARM()
*
*
*
*
*
* Desativa a (ProgressBar) ao final da execução do aplicativo
Main.Barra.visible:=.F.
*
*
Abraços!
Jamil S. Nascimento
Hmg 3.0.35 --- Windows Xp Sp3