Barra de Herramientas
Hola.
Tengo varias barras de herramientas (toolbar) hay una que la llamo cuando abro el sistema y las otras las llamo desde su respectivo formulario, ahora lo que quiero hacer y no se como es que cuando llame a uno de estos formularios se me quite la barra de herramientas que llamo cundo abro el sistema y se coloque la que llamo con el formulario. Te agradecería si me puedes ayudar con esto por fafor.
Saludos.
Tengo varias barras de herramientas (toolbar) hay una que la llamo cuando abro el sistema y las otras las llamo desde su respectivo formulario, ahora lo que quiero hacer y no se como es que cuando llame a uno de estos formularios se me quite la barra de herramientas que llamo cundo abro el sistema y se coloque la que llamo con el formulario. Te agradecería si me puedes ayudar con esto por fafor.
Saludos.
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
Para la pantalla principal utilizo este:
_SCREEN.ADDPROPERTY('oToolbar', .F.)
_SCREEN.OTOOLBAR = CREATEOBJECT("Barraprincipal")
_SCREEN.OTOOLBAR.CAPTION = 'Herramientas'
_SCREEN.OTOOLBAR.SHOW
Y para los Formularios:
Init
Set ClassLib To BarraHerramientas.vcx
ThisForm.MiBarra = CreateObject("BarraActivo")
ThisForm.MiBarra.Dock(0)
ThisForm.MiBarra.Show()
Unload
ThisForm.MiBarra = .Null.
_SCREEN.ADDPROPERTY('oToolbar', .F.)
_SCREEN.OTOOLBAR = CREATEOBJECT("Barraprincipal")
_SCREEN.OTOOLBAR.CAPTION = 'Herramientas'
_SCREEN.OTOOLBAR.SHOW
Y para los Formularios:
Init
Set ClassLib To BarraHerramientas.vcx
ThisForm.MiBarra = CreateObject("BarraActivo")
ThisForm.MiBarra.Dock(0)
ThisForm.MiBarra.Show()
Unload
ThisForm.MiBarra = .Null.
En el evento init de los formularios a los que llamas puedes escribir el siguiente código:
_Screen.oToolbar = .Null.
o bien
_Screen.oToolbar.Visible = .F.
Y en el evento destroy de los formularios a los que llamas puedes escribir el siguiente código:
_Screen.oToolbar = CreateObject("Barraprincipal")
_Screen.oToolbar.Caption = 'Herramientas'
_Screen.oToolbar.Show()
o bien
_Screen.oToolbar.Visible = .T.
_Screen.oToolbar = .Null.
o bien
_Screen.oToolbar.Visible = .F.
Y en el evento destroy de los formularios a los que llamas puedes escribir el siguiente código:
_Screen.oToolbar = CreateObject("Barraprincipal")
_Screen.oToolbar.Caption = 'Herramientas'
_Screen.oToolbar.Show()
o bien
_Screen.oToolbar.Visible = .T.
