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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TProgressDlg
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
TProgressDlg
lo probe asi t ambien : oMeter:TProgressDlg():Create( oParent ) y despues
oMeter:Run() pero no hace nada
Un Saludo : Francisco Sanchez
oMeter:Run() pero no hace nada
Un Saludo : Francisco Sanchez
TProgressDlg
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
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
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
TProgressDlg
OK alto y claro.