No cliente onde possui apenas uma máquina e essa máquina seja veloz, não dá nem tempo de ser ver a minha tela de splash, que é a seguinte:
As linhas que fazem isso são:
Wvg_Image ( 10 , 10 , 20 , 60 , , GOBJ_IMAGESOURCE_FILE, "Splash" , , .f. )
Wvg_BoxRaised ( 10 , 10 , 20 , 60 )
Agora num cliente onde tem win server 2k3 e com 5 estações de trabalho, sendo 3 win xp/32, 2 win 7/64, o sistema demora uns 10 a 30 segundos para abrir...
Observem que coloquei uma frase na imagem de splash:
"carregando sistema..."
Então, queria algo assim...
próximo a essa frase, uma progressbar que executasse de acordo com a velocidade do sistema:
- na minha máquina (aqui de destes que não tem nada no banco de dados) não daria nem pra ver, mas que uma progressbar (horizontal) preenchesse com a velocidade da minha máquina (menos de 1 segundo);
- já no cliente com esse tanto de estações de trabalho, a PROGRESSBAR rodasse na velocidade da máquina dele.
Tentei o seguinte código (by professor JQuintas):
STATIC FUNCTION TestProgressbar()
LOCAL oProgressbar, nCont
oProgressbar := wvtProgressbar():New( wvgSetAppWindow(), , 15, 5, 20, 70 )
oProgressbar:Create()
oProgressbar:Activate()
FOR nCont = 1 TO 100
oProgressBar:Display( nCont, 100 )
Inkey(0.02)
NEXT
oProgressbar:Destroy()
oProgressbar:Deactivate()
RETURN NIL
Mas, não sei como fazer para ela funcionar...
Pode ser algo simples, bobo ou até idiota de se perguntar... mas, estou sempre em construção... e o que pode ser para muitos, uma questão de simplicidade, para mim pode ser muito difÃcil... e o que pode ser difÃcil para alguém para mim pode ser muito simples...
por exemplo (só para quebrar o gelo):
tocar (solo) o hino nacional brasileiro no violão com olhos fechados? pra mim é extremamente fácil!
entenderam?
enfim, alguém pode me ajudar com essa "coisa difÃcil"?