Xailer & OZ Software

Estimados Xailer-Gurús, mucho les agradecerí­a si me pudieran orientar.
Porque la ventana de TProgressDlg despliega el botón "Cancelar" si se le
está indicando que no lo haga?
Porque la ventana de TProgressDlg tarda en desplegarse, sin cumplir su
cometido de mostrar el avance del proceso desde el principio?
Porque la ventana de TprogressDlg ya no despliega la animación AVI en
Windows 7?
WITH OBJECT TProgressDlg()
:cTitle := l_cTitulo
:lNoMinimize := .T.
:lNoCancel := .T.
:lNoTime := .T.
:lCenter := .T.
:nMax := 100
:lModal := .F.
:nCommonAVI := aviCOPYLILES
:Execute()
:cText := 'Procesando...'
Reo_Abo()
:nValue := (1/10)*:nMax
Reo_Age()
:nValue := (2/10)*:nMax
Reo_Art()
:nValue := (3/10)*:nMax
Reo_Caj()
:nValue := (4/10)*:nMax
Reo_Cbr()
:nValue := (5/10)*:nMax
Reo_Cte()
:nValue := (6/10)*:nMax
Reo_Chq()
:nValue := (7/10)*:nMax
Reo_Fct()
:nValue := (8/10)*:nMax
Reo_Ncr()
:nValue := (9/10)*:nMax
Reo_Nvt()
:nValue := (10/10)*:nMax
Reo_Rms()
:Stop()
END WITH
Saludos
Alex

Saludos:
Lo primero decirte que no se bien conque versión trabajas, en la versión
2.0.9 que es la que yo tengo y mirando la ayuda de xailer.
El 03/02/2010 15:36, Alex escribió:
> Estimados Xailer-Gurús, mucho les agradecerí­a si me pudieran orientar.
>
> Porque la ventana de TProgressDlg despliega el botón "Cancelar" si se le
> está indicando que no lo haga?
Perdona pero donde le estas diciendo que no muestre el botón "Cancelar"
lNoCancel dice la ayuda "Impide cerrar el diálogo mientras se ejecuta el
proceso"
> Porque la ventana de TProgressDlg tarda en desplegarse, sin cumplir su
> cometido de mostrar el avance del proceso desde el principio?
Esta respuesta está en uno de los hilos:
Quizás el problema es que no le dejas tiempo para pintarse. Prueba a llamar
a ProcessMessages() cada vez que actualices la barra.
> Porque la ventana de TprogressDlg ya no despliega la animación AVI en
> Windows 7?
No te puedo contestar no tengo Windows7.
Mi sugerencia has usado los "Messages para Xailer" de Bingen creo que
hay uno que utiliza un TProgressDlg que te resultará mas cómodo su uso
puedes buscarlos en http://xailer.info/esp/
>
> WITH OBJECT TProgressDlg()
> :cTitle := l_cTitulo
> :lNoMinimize := .T.
> :lNoCancel := .T.
> :lNoTime := .T.
> :lCenter := .T.
> :nMax := 100
> :lModal := .F.
> :nCommonAVI := aviCOPYLILES
> :Execute()
> :cText := 'Procesando...'
> Reo_Abo()
> :nValue := (1/10)*:nMax
> Reo_Age()
> :nValue := (2/10)*:nMax
> Reo_Art()
> :nValue := (3/10)*:nMax
> Reo_Caj()
> :nValue := (4/10)*:nMax
> Reo_Cbr()
> :nValue := (5/10)*:nMax
> Reo_Cte()
> :nValue := (6/10)*:nMax
> Reo_Chq()
> :nValue := (7/10)*:nMax
> Reo_Fct()
> :nValue := (8/10)*:nMax
> Reo_Ncr()
> :nValue := (9/10)*:nMax
> Reo_Nvt()
> :nValue := (10/10)*:nMax
> Reo_Rms()
> :Stop()
> END WITH
>
> Saludos
>
> Alex
José Ramón Castro.

José Ramón Castro Polinio escribió:
> Saludos:
>
> Lo primero decirte que no se bien conque versión trabajas, en la
> versión 2.0.9 que es la que yo tengo y mirando la ayuda de xailer.
Primero Gracias por tu respuesta J.Ramón
Utilizo también la 2.0.9
> Perdona pero donde le estas diciendo que no muestre el botón "Cancelar"
> lNoCancel dice la ayuda "Impide cerrar el diálogo mientras se ejecuta
> el proceso"
En versiones antes de Xailer 2, aparecia el botón "Cancelar "
desactivado cuando poniamos lNoCancel := .T.
no crees que es un bug que se muestre activado, ya que cuando lo
oprimes, la ventana pierde el avance que estaba mostrando.
>> Porque la ventana de TProgressDlg tarda en desplegarse, sin cumplir su
>> cometido de mostrar el avance del proceso desde el principio?
> Esta respuesta está en uno de los hilos:
Busqué en todos los hilos y no encuentro solución en ninguno de ellos
> Quizás el problema es que no le dejas tiempo para pintarse. Prueba a
> llamar
> a ProcessMessages() cada vez que actualices la barra.
Te parece buén tiempo 40 segs. en una reconstrucción de indices para que
la barra empiece a mostrarse
Sin embargo voy a probar con ProcessMessages()
>> Porque la ventana de TprogressDlg ya no despliega la animación AVI en
>> Windows 7?
> No te puedo contestar no tengo Windows7.
No crees que a esta duda deben responderla los gurús de Xailer si es un bug
>
> Mi sugerencia has usado los "Messages para Xailer" de Bingen creo que
> hay uno que utiliza un TProgressDlg que te resultará mas cómodo su uso
> puedes buscarlos en http://xailer.info/esp/
Utilizo algunas de las rutinas de Bingen adaptadas a mis necesidades,
son buenas pero no resuelven todos los problemas
Saludos
Alex
>>
>> WITH OBJECT TProgressDlg()
>> :cTitle := l_cTitulo
>> :lNoMinimize := .T.
>> :lNoCancel := .T.
>> :lNoTime := .T.
>> :lCenter := .T.
>> :nMax := 100
>> :lModal := .F.
>> :nCommonAVI := aviCOPYLILES
>> :Execute()
>> :cText := 'Procesando...'
>> Reo_Abo()
>> :nValue := (1/10)*:nMax
>> Reo_Age()
>> :nValue := (2/10)*:nMax
>> Reo_Art()
>> :nValue := (3/10)*:nMax
>> Reo_Caj()
>> :nValue := (4/10)*:nMax
>> Reo_Cbr()
>> :nValue := (5/10)*:nMax
>> Reo_Cte()
>> :nValue := (6/10)*:nMax
>> Reo_Chq()
>> :nValue := (7/10)*:nMax
>> Reo_Fct()
>> :nValue := (8/10)*:nMax
>> Reo_Ncr()
>> :nValue := (9/10)*:nMax
>> Reo_Nvt()
>> :nValue := (10/10)*:nMax
>> Reo_Rms()
>> :Stop()
>> END WITH
>>
>> Saludos
>>
>> Alex
>
> José Ramón Castro.

Saludos:
El 06/02/2010 18:43, Alex escribió:
> José Ramón Castro Polinio escribió:
>> Saludos:
>>
>> Lo primero decirte que no se bien conque versión trabajas, en la
>> versión 2.0.9 que es la que yo tengo y mirando la ayuda de xailer.
> Primero Gracias por tu respuesta J.Ramón
> Utilizo también la 2.0.9
>> Perdona pero donde le estas diciendo que no muestre el botón "Cancelar"
>> lNoCancel dice la ayuda "Impide cerrar el diálogo mientras se ejecuta
>> el proceso"
> En versiones antes de Xailer 2, aparecia el botón "Cancelar "
> desactivado cuando poniamos lNoCancel := .T.
Te sugiero que pongas un hilo con esta cuestión solo, si es que el
comportamiento es diferente a anteriores versiones de Xailer 2.
> no crees que es un bug que se muestre activado, ya que cuando lo
> oprimes, la ventana pierde el avance que estaba mostrando.
>>> Porque la ventana de TProgressDlg tarda en desplegarse, sin cumplir su
>>> cometido de mostrar el avance del proceso desde el principio?
>> Esta respuesta está en uno de los hilos:
> Busqué en todos los hilos y no encuentro solución en ninguno de ellos
>> Quizás el problema es que no le dejas tiempo para pintarse. Prueba a
>> llamar
>> a ProcessMessages() cada vez que actualices la barra.
> Te parece buén tiempo 40 segs. en una reconstrucción de indices para que
> la barra empiece a mostrarse
> Sin embargo voy a probar con ProcessMessages()
El TprogressDlg es un control propio de Windows y desde luego se demora
bastante en su ejecución incluso si los ficheros a copiar son pequeños
ni aparece a veces, por lo tanto no creo que puedan los de Xailer
modificar su comportamiento a no ser un control propio, yo aunque sea
menos vistoso uso un formulario hecho por mí­ que solo contiene una barra
de progreso y que es mucho más rápido en mostrar el avance, prueba a
hacerte tu propio formulario con una barra de progreso y mira haber
cuanto demoras en la misma tarea.
>>> Porque la ventana de TprogressDlg ya no despliega la animación AVI en
>>> Windows 7?
>> No te puedo contestar no tengo Windows7.
> No crees que a esta duda deben responderla los gurús de Xailer si es un bug
>>
Me extraña que nadie haya preguntado por lo que planteas en el foro PRO
y en los Messages de Bingen existe uno que utiliza un TProgressDlg
prueba haber si tampoco te muestra la imagen usándolo en Windows7
>> Mi sugerencia has usado los "Messages para Xailer" de Bingen creo que
>> hay uno que utiliza un TProgressDlg que te resultará mas cómodo su uso
>> puedes buscarlos en http://xailer.info/esp/
> Utilizo algunas de las rutinas de Bingen adaptadas a mis necesidades,
> son buenas pero no resuelven todos los problemas
>
> Saludos
>
> Alex
José Ramón Castro.
>>>
>>> WITH OBJECT TProgressDlg()
>>> :cTitle := l_cTitulo
>>> :lNoMinimize := .T.
>>> :lNoCancel := .T.
>>> :lNoTime := .T.
>>> :lCenter := .T.
>>> :nMax := 100
>>> :lModal := .F.
>>> :nCommonAVI := aviCOPYLILES
>>> :Execute()
>>> :cText := 'Procesando...'
>>> Reo_Abo()
>>> :nValue := (1/10)*:nMax
>>> Reo_Age()
>>> :nValue := (2/10)*:nMax
>>> Reo_Art()
>>> :nValue := (3/10)*:nMax
>>> Reo_Caj()
>>> :nValue := (4/10)*:nMax
>>> Reo_Cbr()
>>> :nValue := (5/10)*:nMax
>>> Reo_Cte()
>>> :nValue := (6/10)*:nMax
>>> Reo_Chq()
>>> :nValue := (7/10)*:nMax
>>> Reo_Fct()
>>> :nValue := (8/10)*:nMax
>>> Reo_Ncr()
>>> :nValue := (9/10)*:nMax
>>> Reo_Nvt()
>>> :nValue := (10/10)*:nMax
>>> Reo_Rms()
>>> :Stop()
>>> END WITH
>>>
>>> Saludos
>>>
>>> Alex
>>
>> José Ramón Castro.
>

José Ramón
Gracias por tus buenos deseos de ayudarme
Saludos
Alex