Xailer & OZ Software

Un ejemplito de como utilizar esta clase seria todo un detalle ya vi el
ProgressDlg.Txt he hice lo siguiente :
WITH OBJECT oMeter := TProgressDlg():New()
:Create( ::oContactos )
:Run()
END
oMeter:nValue := 10
......
todos los procesos aumentando nvalue de 10 en 10 hasta 100 pero no se ve
nada, algo ando haciendo mal
Un Saludo : Francisco Sanchez

lo probe asi t ambien : oMeter:TProgressDlg():Create( oParent ) y despues
oMeter:Run() pero no hace nada
Un Saludo : Francisco Sanchez

Francisco,
tu ejemplo modificado (suponiendo que oContactos es una base de datos):
WITH OBJECT oMeter := TProgressDlg():New()
:Create( ::oContactos )
:nMax := ::oContactos:RecCount()
:Run()
END
If oMeter:Execute()
While ! ::oContactos:Eof()
oMeter:nValue++
oMeter:cText := "Procesando registro" + Str( nValue )
::oContactos:DbSkip()
If oMeter:IsCancel()
oMeter:Stop()
EXIT
Endif
End
Endif
Este control no se "ejecuta" realmente, sino que lo creas, lo configuras
y luego debes encargarte de actualizarlo mientras realizas el proceso.
Espero que te sirva.
Saludos,
José Lalí­n

OK alto y claro.