Saludos al forum
Tengo tres bottombar al iniciar el programa se carga uno que es el ::oBar0 cuando uso en otro ::oBar1 supuesta mente los iconos lo carga bien de este pero al pasar el cursor muestra el anterior.
lo hago de esta manera ::SelBar( ::oBar1 )
como puedo activar dicha barra.
Tengo tres bottombar al iniciar el programa se carga uno que es el ::oBar0 cuando uso en otro ::oBar1 supuesta mente los iconos lo carga bien de este pero al pasar el cursor muestra el anterior.
lo hago de esta manera ::SelBar( ::oBar1 )
como puedo activar dicha barra.
DEFINE BUTTONBAR ::oBar0 _3D SIZE 26,27 OF ::oWndMain TOP
DEFINE BUTTON OF ::oBar0 NAME "MOD_CATA" TOP FLAT ;
ACTION PROG_CONFSIT() TOOLTIP "Modulo de Catalogos "
DEFINE BUTTONBAR ::oBar1 _3D SIZE 26,27 OF ::oWndMain TOP
DEFINE BUTTON Pro01 OF ::oBar1 NAME "_CLIENTES" FLAT ;
ACTION Accesos("PROG_TERCEROS()","PROG_TERCEROS",0,::oWndMain) TOOLTIP "Registro de Terceros "
DEFINE BUTTONBAR ::oBar2 _3D SIZE 26,27 OF ::oWndMain TOP
DEFINE BUTTON Pro01 OF ::oBar2 NAME "_ALMACEN" FLAT ;
ACTION Accesos("PROG_ALMACEN()","PROG_ALMACEN",0,::oWndMain) TOOLTIP "Registro de aLMACEN "
::oBar = ::oBar0
::oBar1:Hide()
::oBar2:Hide()
::oBar4:Hide()
pARA CAMBIAR DE BARRA ejecuto esta funcion o clase SelBar, supuestamente muestera los iconos de dicha barra ,
cuando paso el cursor encima del icono muestra el icono anterior como lo activo.
METHOD SelBar( oNewBar ) CLASS TMENUINI //antes tenian static
Local oOldBar := ::oWndMain:oBar
::oWndMain:oBar = oNewBar
oOldBar:Hide()
oNewBar:Show()
oNewBar:Adjust()
oNewBar:Refresh()
RETURN SELF