Xailer & OZ Software

Hola tengo un problema con una barra de progreso (TProgressDlg) el tema es
el siguiente cuando hago MiTProgressDlg::run() por primera ves en el codigo
hace como si la mostrara pero no aparece nada ,despues de la primera ves
me aparece normal pero se va demasiado tarde tapandome los mensajes o quedando
atras.Incluso probe poniendole la instruccion ProcessMessages() antes o
despues y sigue haciendo lo mismo.
Si me pudieran ayudar se los agradeceria, la verdad q ya probe de todo y
no pude hacerlo andar.
Gracias otra ves
Saludos
Duilio

Saludos:
Una parte pequeña de código o una imagen de lo que te ocurre ayudan a
poderte ayudar.
José Ramón Castro.
Duilio escribió:
> Hola tengo un problema con una barra de progreso (TProgressDlg) el tema es
> el siguiente cuando hago MiTProgressDlg::run() por primera ves en el codigo
> hace como si la mostrara pero no aparece nada ,despues de la primera ves
> me aparece normal pero se va demasiado tarde tapandome los mensajes o quedando
> atras.Incluso probe poniendole la instruccion ProcessMessages() antes o
> despues y sigue haciendo lo mismo.
> Si me pudieran ayudar se los agradeceria, la verdad q ya probe de todo y
> no pude hacerlo andar.
> Gracias otra ves
> Saludos
> Duilio
>
>

=?ISO-8859-1?Q?Jos=E9_Ram=F3n_Castro_Polinio?= wrote:
>Saludos:
>
>Una parte pequeña de código o una imagen de lo que te ocurre ayudan a
>poderte ayudar.
>
>José Ramón Castro.
>Duilio escribió:hola esta es una partecita de un metodo de prueba mio el
tema es que cuando se ejecuta el primer miTprogressDg:run() no sale nada
pero se hace visible cuando en el methodo ordenar() cambia su estado aumentando
en la propiedad nValue. Yo lei en un post anterior (del 2006) que era porque
windows se tarda 2 segundos en hacerla aparecer , es esto asi todavia?. Ademas
para irse tarda unos segundos o sea se ejecuta la instruccion miTprogressDlg:
stop() y no se cierra ingluso ejecuta instrucciones siguientes en el codigo
que por ejemplo mustran carteles y es asi que se me juntan dos carteles por
unos segundos.
Gracias desde ya por tu tiempo
Saludos
Duilio
>> Hola tengo un problema con una barra de progreso (TProgressDlg) el tema
es
>> el siguiente cuando hago MiTProgressDlg::run() por primera ves en el codigo
>> hace como si la mostrara pero no aparece nada ,despues de la primera ves
>> me aparece normal pero se va demasiado tarde tapandome los mensajes o
quedando
>> atras.Incluso probe poniendole la instruccion ProcessMessages() antes
o
>> despues y sigue haciendo lo mismo.
>> Si me pudieran ayudar se los agradeceria, la verdad q ya probe de todo
y
>> no pude hacerlo andar.
>> Gracias otra ves
>> Saludos
>> Duilio
>>
>>

"Duilio" <duiliobacalor@gmail.com> wrote:
>
>=?ISO-8859-1?Q?Jos=E9_Ram=F3n_Castro_Polinio?= wrote:
>>Saludos:
>>
>>Una parte pequeña de código o una imagen de lo que te ocurre ayudan a
>>poderte ayudar.
>>
>>José Ramón Castro.
>>Duilio escribió:hola esta es una partecita de un metodo de prueba mio el
>tema es que cuando se ejecuta el primer miTprogressDg:run() no sale nada
>pero se hace visible cuando en el methodo ordenar() cambia su estado aumentando
>en la propiedad nValue. Yo lei en un post anterior (del 2006) que era porque
>windows se tarda 2 segundos en hacerla aparecer , es esto asi todavia?.
Ademas
>para irse tarda unos segundos o sea se ejecuta la instruccion miTprogressDlg:
>stop() y no se cierra ingluso ejecuta instrucciones siguientes en el codigo
>que por ejemplo mustran carteles y es asi que se me juntan dos carteles
por
>unos segundos.
>Gracias desde ya por tu tiempo
>Saludos
>Duilio
>>> Hola tengo un problema con una barra de progreso (TProgressDlg) el tema
>es
>>> el siguiente cuando hago MiTProgressDlg::run() por primera ves en el
codigo
>>> hace como si la mostrara pero no aparece nada ,despues de la primera
ves
>>> me aparece normal pero se va demasiado tarde tapandome los mensajes o
>quedando
>>> atras.Incluso probe poniendole la instruccion ProcessMessages() antes
>o
>>> despues y sigue haciendo lo mismo.
>>> Si me pudieran ayudar se los agradeceria, la verdad q ya probe de todo
>y
>>> no pude hacerlo andar.
>>> Gracias otra ves
>>> Saludos
>>> Duilio
>>>
>>>
>

=?ISO-8859-1?Q?Jos=E9_Ram=F3n_Castro_Polinio?= wrote:
>Saludos:
>
>Una parte pequeña de código o una imagen de lo que te ocurre ayudan a
>poderte ayudar.
>
>José Ramón Castro.
>Duilio escribió:perdon aca va el codigo
METHOD botonOrdenarArchivosClick( oSender ) CLASS TForm1
*VARIABLE Q ALMACENA EL NOMBRE DE LOS ARCHIVOS YA ORDENADOS PARA MOSTRAR
AL FINAL
Local cantidadArchAOrdenar
PUBLIC mensajeArchOrdenados:= " "+CRLF
Public operacionOrdenar:=.T.
cantidadArchAOrdenar:=0
ningunoMarcado:= .T.
::BarraProgresoOrdenacion:nValue:=10000
::BarraProgresoOrdenacion:cMessage:="empezo"
::BarraProgresoOrdenacion:run()
ProcessMessages()
*ARCHIVO ARTICULOS
IF ::CheckboxArticulos:LChecked==.T.
IF ::CheckboxArticulos:LEnabled==.T.
opcion=1
IF ningunoMarcado==.T.
ningunoMarcado:= .F.
EndIf
::iniciarOrdenacion(opcion,operacionOrdenar)
::CheckboxArticulos:LEnabled:=.F.
IF operacionOrdenar==.F.
cantidadArchDefectuososXClick:=cantidadArchDefectuososXClick +1
IF cantidadAOrdenar==cantidadArchDefectuososXClick
::MessageBoxUnicoArchivoErroneo:cText:="ERROR NO SE PUDO
ORDENAR EL ARCHIVO "+MARCHIVOdos + "INDICE: "+MINDICEdos
::MessageBoxUnicoArchivoErroneo:Run()
::CheckboxArticulos:cText:=MARCHIVOdos+ " - ARCHIVO DEFECTUOSO
"+CRLF+ MINDICEdos + " INDICE DEFECTUOSO"
RETURN NIL
ELSE
::MessageBoxSigueOrdenando:cText:="ERROR NO SE PUDO ORDENAR
EL ARCHIVO"+ MARCHIVOdos+CRLF+CRLF+"INDICE DEFECTUOSO: "+MINDICEdos+CRLF+"DESEA
SEGUIR ORDENANDO LOS OTROS ARCHIVOS QUE MARCO?"
::MessageBoxSigueOrdenando:Run()
::CheckboxArticulos:cText:=MARCHIVOdos+" - ARCHIVO DEFECTUOSO
"+CRLF+MINDICEdos+" - INDICE DEFECTUOSO "
OP:=::MessageBoxSigueOrdenando:Nresult()
IF OP == 1
RETURN NIL
ENDif
ENDIF
ELSE
mensajeArchOrdenados:=mensajeArchOrdenados + "--> ARTICULOS "+CRLF
cantidadArchOrdenados:=cantidadArchOrdenados + 1
cantidadArchOrdenadosXClick:=cantidadArchOrdenadosXClick+1
EndIf
EndIf
EndIf
*ARCHIVO CLIENTES
IF ::CheckboxClientes:LChecked==.T.
IF ::CheckboxClientes:LEnabled==.T.
opcion=2
IF ningunoMarcado==.T.
ningunoMarcado:= .F.
EndIf
::iniciarOrdenacion(opcion,operacionOrdenar)
::CheckboxClientes:LEnabled:=.F.
IF operacionOrdenar==.F.
cantidadArchDefectuososXClick:=cantidadArchDefectuososXClick +1
IF cantidadAOrdenar==cantidadArchDefectuososXClick
::MessageBoxUnicoArchivoErroneo:cText:="ERROR NO SE PUDO
ORDENAR EL ARCHIVO "+MARCHIVOdos + "INDICE: "+MINDICEdos
::MessageBoxUnicoArchivoErroneo:Run()
::CheckboxClientes:cText:=MARCHIVOdos+ " - ARCHIVO DEFECTUOSO
"+CRLF+ MINDICEdos + " INDICE DEFECTUOSO"
RETURN NIL
ELSE
::MessageBoxSigueOrdenando:cText:="ERROR NO SE PUDO ORDENAR
EL ARCHIVO"+ MARCHIVOdos+CRLF+CRLF+"INDICE DEFECTUOSO: "+MINDICEdos+CRLF+"DESEA
SEGUIR ORDENANDO LOS OTROS ARCHIVOS QUE MARCO?"
::MessageBoxSigueOrdenando:Run()
::CheckboxClientes:cText:=MARCHIVOdos+" - ARCHIVO DEFECTUOSO
"+CRLF+MINDICEdos+" - INDICE DEFECTUOSO "
OP:=::MessageBoxSigueOrdenando:Nresult()
IF OP == 2
RETURN NIL
ENDif
ENDIF
ELSE
mensajeArchOrdenados:=mensajeArchOrdenados + "--> CLIENTES "+CRLF
cantidadArchOrdenados:=cantidadArchOrdenados + 1
cantidadArchOrdenadosXClick:=cantidadArchOrdenadosXClick+1
EndIf
EndIf
EndIf
*ARCHIVO PROVEEDORES
>> Hola tengo un problema con una barra de progreso (TProgressDlg) el tema
es
>> el siguiente cuando hago MiTProgressDlg::run() por primera ves en el codigo
>> hace como si la mostrara pero no aparece nada ,despues de la primera ves
>> me aparece normal pero se va demasiado tarde tapandome los mensajes o
quedando
>> atras.Incluso probe poniendole la instruccion ProcessMessages() antes
o
>> despues y sigue haciendo lo mismo.
>> Si me pudieran ayudar se los agradeceria, la verdad q ya probe de todo
y
>> no pude hacerlo andar.
>> Gracias otra ves
>> Saludos
>> Duilio
>>
>>

Duilio,
> hola esta es una partecita de un metodo de prueba mio el
> tema es que cuando se ejecuta el primer miTprogressDg:run() no sale nada
> pero se hace visible cuando en el methodo ordenar() cambia su estado
> aumentando
> en la propiedad nValue. Yo lei en un post anterior (del 2006) que era
> porque
> windows se tarda 2 segundos en hacerla aparecer , es esto asi todavia?.
> Ademas
> para irse tarda unos segundos o sea se ejecuta la instruccion
> miTprogressDlg:
> stop() y no se cierra ingluso ejecuta instrucciones siguientes en el
> codigo
> que por ejemplo mustran carteles y es asi que se me juntan dos carteles
> por
> unos segundos.
Sí, me temo que es el propio windows quién demora 2 segundos en mostrar la
ventana. El propio explorador de windows funciona exactamente igual. Prueba
a copiar pequeños ficheros con el explorador y verás que no llega a salir la
ventana de progreso de la copia, mientras que si los ficheros son grandes sí
sale.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Duilio,
>
>> hola esta es una partecita de un metodo de prueba mio el
>> tema es que cuando se ejecuta el primer miTprogressDg:run() no sale nada
>> pero se hace visible cuando en el methodo ordenar() cambia su estado
>> aumentando
>> en la propiedad nValue. Yo lei en un post anterior (del 2006) que era
>> porque
>> windows se tarda 2 segundos en hacerla aparecer , es esto asi todavia?.
>> Ademas
>> para irse tarda unos segundos o sea se ejecuta la instruccion
>> miTprogressDlg:
>> stop() y no se cierra ingluso ejecuta instrucciones siguientes en el
>> codigo
>> que por ejemplo mustran carteles y es asi que se me juntan dos carteles
>> por
>> unos segundos.
>
>Sí, me temo que es el propio windows quién demora 2 segundos en mostrar
la
>ventana. El propio explorador de windows funciona exactamente igual. Prueba
>a copiar pequeños ficheros con el explorador y verás que no llega a salir
la
>ventana de progreso de la copia, mientras que si los ficheros son grandes
sí
>sale.
>
>
>--
>Un saludo,
>
>José F. Giménez
>http://www.xailer.com
>http://www.xailer.info
>
>
Muchas gracias José
Saludos
Duilio