estou iniciando o desenvolvimento de uma aplicação com essa famosa biblioteca, e me orgulho em dizer que "já" conseguí migrar uma rotina de indexação para uso com HProgressBar() (grande coisa). Inclusive com uso dela, reduzí a rotina de quase 800 linhas para umas 500as
Mas eu gostaria de saber a que se refere cada parâmetro.
Eu uso da seguinte maneira:
Código: Selecionar todos
... index on pgrfor tag indpgr01 to indpgr eval {|| progre(recno()) } every lastrec()/10 ...Código: Selecionar todos
Function progre(arg)
barra = HProgressBar():NewBox( "Reindexando "+trim(dbf()),,,350,80,10,final,,.T. )
Do While arg<final
++arg
barra:Step()
Enddo
barra:close()
Return .t.
