In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Duda con StatusPanel

Foro de Xailer profesional en español
Responder
jmartial
Mensajes: 397
Registrado: Vie May 20, 2005 8:53 pm

Duda con StatusPanel

Mensaje por jmartial »

Hola,
Necesito en el StatusBar que uno de los paneles contenga un Tlabel y otro un
ProgressBar, en el FormInitialize llamo a Crear un Tlabel y como oParent le
pongo el Tstatuspanel , en mi caso, oStatusBar:aItems[1], pero me casca la
aplicación en el Create() del Tlabel al ejecutar el metodo GETFORM.
//-----------------
WITH OBJECT ::oLabelTTS := TLabel():New( ::oStatusBar:aItems[1] )
:cText := "Prueba"
:Create()
END
//-----------------
¿Tenéis un ejemplo de implementar una statusbar con todos sus "habíos"?
Un Saludo,
Joaquín
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Duda con StatusPanel

Mensaje por jfgimenez »

Joaquín,
añade los controles desde el IDE, colocándolos sobre la statusbar. Después,
en el FormInitialize pon:
WITH OBJECT ::oStatusBar1
:aItems[1]:oControl := ::oLabel1
:aItems[2]:oControl := ::oProgressBar1
...
END
Nota: la propiedad oControl de los paneles se debería poder asignar
directamente desde el IDE, pero me temo que no está funcionando. Lo
corregiremos lo antes posible.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder