Página 1 de 1

Duda con StatusPanel

Publicado: Lun Jun 13, 2005 2:09 am
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

Duda con StatusPanel

Publicado: Mar Jun 14, 2005 10:53 am
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