Progressbar en Statuspanel

[bingen]

Buenas xTeam, estoy seguro de haberlo visto en agun Sample pero no lo encuentro.

Algun Sample que tenga una Progressbar dentro de una linea de Status dentro de un StatusPanel ???


Gracias.

[ignacio]

Hola Bingen,

Lo más sencillo es utilizar un TBevel con más TBevels en su interior. Si no has de ser tu el responsable de posicionarlo. Un ejemplo:

Código: Seleccionar todo

   LOCAL aRect
   
   aRect := ::oStatusBar1:aItems[2]:GetRect( .f. )  

   WITH OBJECT TProgressBar():New( ::oStatusBar1 )
      :SetBounds( aRect[1]+2, aRect[2]+2, aRect[3]-6, aRect[4]-6 )
      :Create()
   END WITH

Saludos

[bingen]

Gracias pero me pasa lo mismo que con mi sistema, no lo reposiciona correctamnente en la StatusBar cuando se maximiza la ventana, se queda en su posición original.

Probaré la alternativa de usar unos bEvel en la parte inferior de la ventana.

Gracias.

[bingen]

Puede ser una gran idea la de usar bEvels y quedar mucho más lucido que con un StatusBar, pero....

Los mensajes de los objetos que ponemos en cMessage, por ejemplo de las opciones de los menús, ya no saldrían automáticamente en un tLabel dentro del bEvel, entonces ¿se pueden redirigir e alguna manera?

Gracias.

[jfgimenez]

Bingen,

sólo tienes que poner la progressbar encima de la statusbar (que sea su padre), y después, en la propiedad oControl del panel de la statusbar, seleccionas el control progressbar. Aquí tienes un ejemplo.

[bingen]

Vaya, en mi caso no existe la Statusbar, se crea por código dependiendo del programa, de su versiónn, del idioma de uso, etc.

Todo ello de forma dinámica, asi que lo pinto yo y luego no cambia de sitio al redimensiona la ventana.

Gracias José.

Salu2.

[avitalini]

Hola Bingen!
La forma que pude hacer que se pintara en su lugar fue poniéndose en el status panel:nResizeStyle en sbAUTO
Y creo que asignando el oControl:=oProgress desde código

[bingen]

Asi lo he intentado y pintar lo pinta pero en cuanto redimensiono la ventana le da por irse a la porra.

Lo mismo de repènte le da por ocupar la StatusBar entera.

Que cosas.....

Salu2 y gracias.

[avitalini]

Bingen perdón, se me olvidó decirte, que lo puse entre 2 StatusPanel :nResizeStyle := sbNone

Al redimensionarse la ventana divide el resto de las sumas del ancho de todos los StatusPanel:sBNone entre los :sbAuto

Je je je... espero haberme explicado...

Saludos

[bingen]

Gracias pero he abandonado el StatusPanel y me he creado mi propia barra de estado con bEvels tal y como me comentó Ignacio y ahora va todo perfecto, menuda diferencia.....

Salu2.