Refrescar un TStatusBar

[Yamil Bracho]

Saludos
Tengo una ventana donde ejecuto un proceso y qusiera mostrar un mensaje y
colocar y progressbar en un statusbar. Empece con el mensaje y tengo el
siguiente codigo :
FOR EACH aITem IN aData
cOrigen := aItem[ 2 ]
cDestino := ::oConfig:cTempDir + SUBSTR( cOrigen,RAT( "/", cOrigen ) +
1 )
MsgInfo( cDestino )
::oStatusBar1:cText:= cDestino
//::DownLoad( cOrigen, cDestino )
NEXT
Sin embargo no me muestra nada en la linea ::oStatusBar1:cText:= cDestino a
pesar de que tengo el Statusbar con lSimple := .T.
¿ Tengo que agregar un panel para acomodar el progressbar y asi si puedo
mostrar el mensaje y el progress al mismo tienpo ?
Como añado el progress al statusbar ?
Gracias por la atencion
Yamil

[Guest]

Yamil,
Se han hecho bastantes cambios en la StatusBar. Si nos pudiese mandar un
pequeño proyecto podriamos comprobar que funciona correctamente con él y
tener la seguridad de que la próxima versión funciona correctamente, no
obstante estoy casi seguro de que el problema está resuelto de antemano.
Mucha gracias de antemano.
Un saludo,
"Yamil Bracho" <YamilBracho@hotmail.com> escribió en el mensaje
news:[email=43fa7e3c@ozsrvnegro.ozlan.local...]43fa7e3c@ozsrvnegro.ozlan.local...[/email]
> Saludos
> Tengo una ventana donde ejecuto un proceso y qusiera mostrar un mensaje y
> colocar y progressbar en un statusbar. Empece con el mensaje y tengo el
> siguiente codigo :
>
> FOR EACH aITem IN aData
> cOrigen := aItem[ 2 ]
> cDestino := ::oConfig:cTempDir + SUBSTR( cOrigen,RAT( "/", cOrigen ) +
> 1 )
> MsgInfo( cDestino )
> ::oStatusBar1:cText:= cDestino
> //::DownLoad( cOrigen, cDestino )
> NEXT
>
> Sin embargo no me muestra nada en la linea ::oStatusBar1:cText:= cDestino
> a pesar de que tengo el Statusbar con lSimple := .T.
>
> ¿ Tengo que agregar un panel para acomodar el progressbar y asi si puedo
> mostrar el mensaje y el progress al mismo tienpo ?
> Como añado el progress al statusbar ?
>
> Gracias por la atencion
>
> Yamil
>

[Yamil Bracho]

Gracias Ignacio, te anexo un pequeno proyecto. La idea es que se refresque
el mensaje en el StatusBar (sin invocar mucho a DoEvents() o SysRefresh() o
como se llame)
Y lo otro es que me gustaria que se mostrara un ProgressBar en el
StatusBar...
Una vez mas gracias y saludos
"Ignacio Ortiz" <Noname@ozs.com> wrote in message
news:43fabb57$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Yamil,
>
> Se han hecho bastantes cambios en la StatusBar. Si nos pudiese mandar un
> pequeño proyecto podriamos comprobar que funciona correctamente con él y
> tener la seguridad de que la próxima versión funciona correctamente, no
> obstante estoy casi seguro de que el problema está resuelto de antemano.
> Mucha gracias de antemano.
>
> Un saludo,
>
> "Yamil Bracho" <YamilBracho@hotmail.com> escribió en el mensaje
> news:[email=43fa7e3c@ozsrvnegro.ozlan.local...]43fa7e3c@ozsrvnegro.ozlan.local...[/email]
> > Saludos
> > Tengo una ventana donde ejecuto un proceso y qusiera mostrar un mensaje
y
> > colocar y progressbar en un statusbar. Empece con el mensaje y tengo el
> > siguiente codigo :
> >
> > FOR EACH aITem IN aData
> > cOrigen := aItem[ 2 ]
> > cDestino := ::oConfig:cTempDir + SUBSTR( cOrigen,RAT( "/", cOrigen )
+
> > 1 )
> > MsgInfo( cDestino )
> > ::oStatusBar1:cText:= cDestino
> > //::DownLoad( cOrigen, cDestino )
> > NEXT
> >
> > Sin embargo no me muestra nada en la linea ::oStatusBar1:cText:=
cDestino
> > a pesar de que tengo el Statusbar con lSimple := .T.
> >
> > ¿ Tengo que agregar un panel para acomodar el progressbar y asi si puedo
> > mostrar el mensaje y el progress al mismo tienpo ?
> > Como añado el progress al statusbar ?
> >
> > Gracias por la atencion
> >
> > Yamil
> >
>
>


Attached files Prueba.zip (2.3 KB)Â

[jfgimenez]

Yamil,
gracias por el ejemplo.
> Gracias Ignacio, te anexo un pequeno proyecto. La idea es que se refresque
> el mensaje en el StatusBar (sin invocar mucho a DoEvents() o SysRefresh()
> o
> como se llame)
Lo he probado y funciona bien al 100%, sin necesidad de llamar a
ProcessMessages() en ningún momento.
> Y lo otro es que me gustaria que se mostrara un ProgressBar en el
> StatusBar...
Para eso necesitas crear paneles, y la progressbar debe estar en uno de
ellos. Aquí tienes tu mismo ejemplo donde he añadido 2 paneles, el primero
con el texto y el segundo con una progressbar. No sé si funcionará con la
PR6a, pero con lo que tenemos ahora funciona perfectamente.
--
Un saludo,
José F. Giménez


Attached files prueba.zip (1.6 KB)Â

[Yamil Bracho]

OK, Gracias Jose.
Te dijo que con la version 6A no funciona...
Cuando liberan la nueva version ?
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in message
news:[email=43fc2cac@ozsrvnegro.ozlan.local...]43fc2cac@ozsrvnegro.ozlan.local...[/email]
> Yamil,
>
> gracias por el ejemplo.
>
> > Gracias Ignacio, te anexo un pequeno proyecto. La idea es que se
refresque
> > el mensaje en el StatusBar (sin invocar mucho a DoEvents() o
SysRefresh()
> > o
> > como se llame)
>
> Lo he probado y funciona bien al 100%, sin necesidad de llamar a
> ProcessMessages() en ningún momento.
>
>
> > Y lo otro es que me gustaria que se mostrara un ProgressBar en el
> > StatusBar...
>
> Para eso necesitas crear paneles, y la progressbar debe estar en uno de
> ellos. Aquí tienes tu mismo ejemplo donde he añadido 2 paneles, el primero
> con el texto y el segundo con una progressbar. No sé si funcionará con la
> PR6a, pero con lo que tenemos ahora funciona perfectamente.
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>
>

[jfgimenez]

Yamil,
> Te dijo que con la version 6A no funciona...
Gracias por la información.
> Cuando liberan la nueva version ?
Esperamos que sea esta misma semana.
--
Un saludo,
José F. Giménez