Barra de progresso para criar arquiv de indice

[nilv]

Boa tarde, Gostaria de saber como faço para gerar a barra de progresso na hora de criar indice, no clipper eu usava assim:
index on nome to cliente.ntx EVAL PROGRESS(Cliente,Cliente.ntx) EVERY LASTREC()/100
em minigui como seria usando o PROGRESSBAR:

[Pablo César]

Olha achei este exemplo:

Código: Selecionar todos

..//..
          @ 30,19 PROGRESSBAR ProgressBar_1 RANGE 0,100 WIDTH 252 HEIGHT 18
          @ 6,94 LABEL Label_001 VALUE "Completed " WIDTH 120 HEIGHT 24

FUNCTION _INDEXAR(cCampo,cArqIdx)
INDEX ON &cCampo TO &ArqIdx EVAL NtxProgress() EVERY LASTREC()/20
RETURN NIL

FUNCTION NtxProgress()
LOCAL nComplete := INT((RECNO()/LASTREC()) * 100)
Local cComplete := LTRIM(STR(nComplete))
Form_idx.Label_001.Value := "Completed "+ cComplete + "%"
Form_idx.ProgressBar_1.Value := nComplete
Return .t.

[nilv]

Valeu Pablo, ficou ótimo, obrigado.
Nilson Vilela