Menu TopBarMenu() de Harbour Sombra Ventana

Post Reply
User avatar
ruben Dario
Posts: 986
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Menu TopBarMenu() de Harbour Sombra Ventana

Post by ruben Dario »

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

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 )
 
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Post Reply