Página 1 de 1
Progressbar en Statuspanel
Publicado: Vie Nov 13, 2015 9:46 am
por 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.
Re: Progressbar en Statuspanel
Publicado: Vie Nov 13, 2015 10:22 am
por 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
Re: Progressbar en Statuspanel
Publicado: Lun Nov 16, 2015 8:22 am
por 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.
Re: Progressbar en Statuspanel
Publicado: Lun Nov 16, 2015 10:35 am
por 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.
Re: Progressbar en Statuspanel
Publicado: Lun Nov 16, 2015 10:55 am
por 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.
Re: Progressbar en Statuspanel
Publicado: Lun Nov 16, 2015 4:09 pm
por 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.
Re: Progressbar en Statuspanel
Publicado: Lun Nov 16, 2015 5:11 pm
por 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
Re: Progressbar en Statuspanel
Publicado: Mié Nov 25, 2015 8:15 pm
por 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.
Re: Progressbar en Statuspanel
Publicado: Jue Nov 26, 2015 11:04 pm
por 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
Re: Progressbar en Statuspanel
Publicado: Mié Dic 02, 2015 2:34 pm
por 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.