Parpadeo de Menu COLOR , Ayuda

[devwin2010]

Estimado Colegas

Tengo una aplicacion con menu en la pantalla principal que tiene fondo azul con letras blancas , cualquier operacion que haga dicho menu me parpadea viendose un blanco de fondo

MENU oMenu HEIGHT -4.8 COLORMENU CLR_BLUE, CLR_WHITE;
FONT oFontMenu 2013 NOBORDER

Alguien me puede orientar como resolverlo , estoy usando FWH 21 11 , xharbour 1.2.3 y Borland 7.3 gracias Fabian

[cnavarro]

Prueba este ejemplo que comento aquí
viewtopic.php?f=6&t=29649&sid=3cbeb83ce7350afd79c58b568b5d4b39#p254026
y dime si obtienes el mismo efecto que comentas

[karinha]

Intenta asi:

Code: Select all  Expand view

STATIC oFont, nHFont, cFont, nWFont, cFontH, oBrush, oFnt

   cFont  := "Segoe UI Symbol"  // "Calibri"
   cFontH := -14  //-10 //-12 //-16 //-18  //-20

   IF !IsWin8() .AND. !IsWindows10()
      cFont  := "Calibri"   //"Tahoma"
   ENDIF

   DEFINE FONT oFont NAME cFont SIZE 0, cFontH WEIGHT 300

   MENU oMenu 2013 HEIGHT 2.5 FONT oFont ADJUST
 

Regards, saludos.

[devwin2010]

Gracias Cristobal , probe mnu01.prg me hace un pequeño parpadeo , adjunto 3 capturas para que lo puedas visualizar





el sistema operativo que tengo es Windows 10 PRO

Muchas Gracias Fabian

[devwin2010]

https://freeimage.host/i/t1NRBj
https://freeimage.host/i/t1NThu
https://freeimage.host/i/t1NuLb

[cnavarro]

Si el parpadeo al que te refieres es el de la tercera imagen, he de ver el código o que me expliques que estás haciendo para que los iconos de cerrar y minimizar te salgan en esa posicion y en la misma barra del menu ( o por lo menos eso es lo que parece )

[devwin2010]

Gracias Cristobal , lo que quiero hacer es un menu tipo web (bootstrap) , los iconos de minimizar , cerrar son una opcion mas de menu

DEFINE WINDOW oWnd STYLE WS_POPUP ;
MENU oMenu
MENUITEM "-" FONT oFont ;

MENUITEM "x" FONT oFont ;

Fabian

[cnavarro]

Asi lo entendia yo ( que los simbolos eran tambien menuitems ) pero me sigue llamando la atención la parte de la derecha del menu
Puedes poner el menu completo aqui?
Solo los items del menu principal ( no hace falta los popups ), y la definicion de la ventana que contiene el menu

[devwin2010]

Code: Select all  Expand view

MENU oMenu  HEIGHT -4.8  COLORMENU  CLR_BLUE, CLR_WHITE;
     FONT oFontMenu 2013 NOBORDER


      MENUITEM "&Archivos"
     MENU
        MENUITEM "&Clientes"  ;
        ACTION Clientes(user)
        MENUITEM "&Proveedores";
        ACTION Proveed()
           
            MENUITEM "&Stocks";
        ACTION  Stock()
            MENUITEM "&Componentes";
            ACTION  iStock()

        MENUITEM "&Cuentas Corrientes por Cliente";
            ACTION  CtacteT()
        MENUITEM "&Vendedores";
        ACTION  Vendedor()
            MENUITEM "&Comprobantes Emitidos";
            ACTION  Facremit()
            MENUITEM "&Cobranzas";
            ACTION  Vfacrem()
            MENUITEM "&Recibos";
            ACTION  Recibo1()
             MENUITEM "&Transporte";
            ACTION  Tra()

           
         
             MENUITEM "&Generar Etiquetas Precios y Cod. Barr.";
            ACTION  mainprub()
           

           MENUITEM "&Generar Etiquetas Precios y Cod. Barr.";
            ACTION  pruebax()
     

         ENDMENU



     MENUITEM "&Ventas"

         MENU
            MENUITEM  oemtoansi("&Facturaci¢n") ;
            Action (xtipo:= "factura",GRID())

                       MENUITEM  oemtoansi("&Facturaci¢n PRUEBA") ;
            Action (xtipo:= "factura",SBARRAY())



           MENUITEM  oemtoansi("&Remitos") ;
            Action ( xtipo:= "remito",RGRID())

            MENUITEM  oemtoansi("&Pedidos") ;
            Action (xtipo:= "pedido",PGRID())



         ENDMENU




     MENUITEM "&Compras"
     MENU
            MENUITEM  oemtoansi("&Compras") ;
            Action cGRID()

          MENUITEM  oemtoansi("&Consultas Compras x Proveedores Facturas") ;
           Action ( compras() )

          MENUITEM  oemtoansi("&Consultas Compras x Proveedores Totales ") ;
           Action ( comprasp() )


          MENUITEM  oemtoansi("&Cuentas Corrientes  Proveedores") ;
           Action ( CTACTET1() )


         ENDMENU








      MENUITEM "Caja"
     MENU
            MENUITEM "&Caja" ;
        ACTION  Caja()

            MENUITEM "Tarjetas de &credito";
        ACTION  TARJETA()
     ENDMENU




      MENUITEM "Cheques"
     MENU
        MENUITEM "C&heques";
        ACTION  CHEQUE()

            MENUITEM "Vencimietos de C&heques";
            ACTION  cCHEck()


     ENDMENU





      MENUITEM "Bancos"
     MENU

            MENUITEM "&Cuentas " ;
            ACTION  CUENTAS()
            MENUITEM "&Movimientos Bancarios " ;
            ACTION  Movban()
            MENUITEM "&Cuentas/Saldos " ;
            ACTION  Salban()
            MENUITEM "&Importar desde Excel " ;
            action   (rBancosS(),impoexcel1c())

         ENDMENU

       


     MENUITEM "&Libros IVA"
     MENU
            MENUITEM "&IVA Ventas" ;
            ACTION  livav()

            MENUITEM "&Exportar a Regimen Informacion Ventas Comprobantes" ;
            ACTION  CITIVC()

            MENUITEM "&Exportar a Regimen Informacion Ventas Alicuotas" ;
            ACTION  CITIVCA()



            MENUITEM  oemtoansi("&IVA Compras") ;
            Action livac()


            MENUITEM "&Exportar a Regimen Informacion Compras Comprobantes" ;
            ACTION  CITICC()

            MENUITEM "&Exportar a Regimen Informacion Compras Alicuotas" ;
            ACTION  CITICCA()


         ENDMENU


      MENUITEM "&Informes y Estadisticas"
        MENU
        MENUITEM "&Ventas Diarias y Mensuales";
        action Vdym()
            *MENUITEM "&Ventas Diarias y Mensuales por horario";
            *action Vdymh()
            MENUITEM "&Ventas Diarias y Mensuales Por Rubro";
        action Vdym2()
            MENUITEM "&Ventas Diarias y Mensuales Por Vendedor";
            action Vdymv()
             MENUITEM "&Presupuestos / Pedidos  Diarios y Mensuales Por Cliente detallada";
            action Vdyp()

            MENUITEM "&Presupuestos / Pedidos diarios y mensuales";
            action Vdymp()



            MENUITEM "&Listado de  Precios 1 ";
            action  (repLPRE(),lstoc())



            MENUITEM "&Listado de  Precios 2 ";
            action  (repLPRE(),lstoc1())


           

            MENUITEM "&Listado de  Precios 3 ";
            action  (repLPRE(),lstoc2())


            MENUITEM "&Listado de  Precios 4 ";
            action  (repLPRE(),lstoc3())




            endmenu







      MENUITEM OEMTOANSI("Configuraci¢n")
     MENU
        MENUITEM "&Empresa" ;
        ACTION  empresa()
        MENUITEM "&Back Up de Archivos" ;
        ACTION  czip()
        MENUITEM "&Restaurar Archivos" ;
        ACTION  dzip()
            MENUITEM "&Numeracion de Comprobantes" ;
            ACTION  talonar()
        MENUITEM "&Rubros" ;
        ACTION  Rubro()

            MENUITEM "&Rubros Compras" ;
            ACTION  Rubroc()



            MENUITEM "&Cotizacion Monedas" ;
        ACTION  Cotiz()
        MENUITEM "&Usuarios" ;
        ACTION  User()
        MENUITEM "&Reorganizacion de archivos" ;
        ACTION  Indexa()
           MENUITEM "&Modificacion de Codigo Stock" ;
           ACTION  Mstock()
           MENUITEM "&Texto" ;
           ACTION  clausula()


            MENUITEM "&Datos Conexion" ;
            ACTION  Dconex()


            MENUITEM "&Aumento de Precios" ;
            ACTION  Aumento()
     ENDMENU


      MENUITEM "&Salir";
       ACTION (Blan(), OwND:END())




     MENUITEM ""  
     
     MENUITEM ""
     
     MENUITEM ""
   
     MENUITEM ""
       
   
     MENUITEM ""  
     
     MENUITEM ""
     
     MENUITEM ""
   
     MENUITEM ""
   
         
   
   MENUITEM "-"   FONT oFont      ;
       
   MENUITEM "x"   FONT oFont   ;
       


 ENDMENU
 

[cnavarro]

Ok, solo me queda la definicion de la ventana en la que se sitúa el menu

[devwin2010]

DEFINE WINDOW oWnd STYLE WS_POPUP ;
MENU oMenu

[devwin2010]

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT (pASSWORD(),INDEXA1()) ;
ON PAINT DrawBitmap( hDC, oBmp:hBitmap, ;
( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ), ;
( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ),0,0 );
VALID MsgYesNo(oemtoansi( "¨ Desea Salir ?"),"Salida del Sistema ")

[cnavarro]

Ok, intento montar un ejemplo con tus codigo y te digo algo

[cnavarro]

Qué tienes en oFontMenu ?

[devwin2010]

Local cFont := "Tahoma"
Local cFontH := -14

DEFINE FONT oFontMenu NAME cFont SIZE 0, cFontH WEIGHT 300