Menu TopBarMenu() de Harbour Sombra Ventana
Posted: Fri Nov 16, 2018 12:31 am
Saludos al Forum.
Mi pregunta las ventanas me coloca una sombra pero negra, como le cambio el color a la sombra
https://www.4shared.com/photo/uCSF8UWsf ... ombra.html
Mi pregunta las ventanas me coloca una sombra pero negra, como le cambio el color a la sombra
https://www.4shared.com/photo/uCSF8UWsf ... ombra.html
Code: Select all
LOCAL MENU_COLOR := "B/W,W+/R,W+/W,G+/R,B+/W+,B/W"
oTopBar := TopBarMenu():new( 03, 00, MaxCol() )
oPopUp1 := POPUPMENU():NEW()
oPopUp2 := POPUPMENU():NEW()
oTopBar:ColorSpec := MENU_COLOR
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
oPopUp2:ColorSpec := MENU_COLOR
oPopUp2:shadowed( TRUE )
oPopUp1:AddItem( MenuItem( "&Grupos de Inventario", oPopUp2 , NIL, MESAG_MENU ) )
oPopUp1:AddItem( MenuItem( "&Articulos", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp1:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp1:AddItem( MenuItem( "&Clientes", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp1:AddItem( MenuItem( "&Proveedores", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp1:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp1:AddItem( MenuItem( "&Vendedores", {|| ALERT( VERSION() ) }, NIL, OS() ) )
*--
oTopBar:AddItem( MenuItem(" &Catalogos ", oPopUp1, NIL, MESAG_MENU ) )
*--
oPopUp2:AddItem( MenuItem( "&Grupos de Inventario", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp2:AddItem( MenuItem( "&Articulos", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp2:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp2:AddItem( MenuItem( "&Clientes", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp2:AddItem( MenuItem( "&Proveedores", {|| Accesos("PXP200_1(1,0)","PXP200_1",0) }, NIL, MESAG_MENU ) )
oPopUp2:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp2:AddItem( MenuItem( "&Vendedores", {|| ALERT( VERSION() ) }, NIL, OS() ) )
*--
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
*--
oPopUp1:AddItem( MenuItem( ATO("&Facturación"), {|| .t. }, NIL, MESAG_MENU ) )
*--
oTopBar:AddItem( MenuItem(" &Datos Generales ", oPopUp1, NIL, MESAG_MENU ) )
*--
_
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
*--
oPopUp1:AddItem( MenuItem( "Cuentas X &Cobrar", {|| ALERT( VERSION() ) }, NIL, OS() ) )
oPopUp1:AddItem( MenuItem( "Cuentas X &Pagar", {|| ALERT( VERSION() ) }, NIL, OS() ) )
*--
oTopBar:AddItem( MenuItem(" &Logistica ", oPopUp1, NIL, MESAG_MENU ) )
*--
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
*--
oPopUp1:AddItem( MenuItem( "&Clientes", {|| ALERT( VERSION() ) }, NIL, OS() ) )
oPopUp1:AddItem( MenuItem( "&Lista de Precios", {|| ALERT( VERSION() ) }, NIL, OS() ) )
oPopUp1:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp1:AddItem( MenuItem( "&Ventas", {|| .t. }, NIL, MESAG_MENU ) )
*--
oTopBar:AddItem( MenuItem(" &Planeacion ", oPopUp1, NIL, MESAG_MENU ) )
*--
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
*--
oPopUp1:AddItem( MenuItem( "&Respaldo de Datos", {|| ALERT( VERSION() ) }, NIL, OS() ) )
oPopUp1:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp1:AddItem( MenuItem( ATO("Recuperar &Información"),{|| ALERT( VERSION() ) }, NIL, OS() ) )
*--
oTopBar:AddItem( MenuItem(" &Reportes ", oPopUp1, NIL, MESAG_MENU ) )
*--
*--
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
oPopUp1:AddItem( MenuItem( "&Respaldo de Datos", {|| ALERT( VERSION() ) }, NIL, OS() ) )
oPopUp1:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp1:AddItem( MenuItem( ATO("Recuperar &Información"),{|| ALERT( VERSION() ) }, NIL, OS() ) )
*--
oTopBar:AddItem( MenuItem(" &Consultas ", oPopUp1, NIL, MESAG_MENU ) )
*--
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( TRUE )
oPopUp1:AddItem( MenuItem( "&Respaldo de Datos", {|| ALERT( VERSION() ) }, NIL, OS() ) )
oPopUp1:AddItem( MenuItem( MENU_SEPARATOR ) )
oPopUp1:AddItem( MenuItem( ATO("Recuperar &Información"),{|| ALERT( VERSION() ) }, NIL, OS() ) )
*--
oTopBar:AddItem( MenuItem(" &Procesos ", oPopUp1, NIL, MESAG_MENU ) )
*--
oPopUp1 := POPUPMENU():NEW()
oPopUp1:ColorSpec := MENU_COLOR
oPopUp1:shadowed( FALSE )
oPopUp1:AddItem( MenuItem( " Sal&ir ", {|| ::End },,VERSION(),999 ) )
*--
oTopBar:AddItem( MenuItem( " &Salida ", oPopUp1, NIL, MESAG_MENU ) )
RETURN( oTopbar )