Page 1 of 1
Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 12:49 am
by 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
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 11:41 am
by cnavarro
Prueba este ejemplo que comento aquí
viewtopic.php?f=6&t=29649&sid=3cbeb83ce7350afd79c58b568b5d4b39#p254026y dime si obtienes el mismo efecto que comentas
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 1:02 pm
by karinha
Intenta asi:
Code: Select all | Expand
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.
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 6:08 pm
by 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
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 6:09 pm
by devwin2010
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 6:16 pm
by 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 )
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 6:51 pm
by 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
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:04 pm
by 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
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:12 pm
by devwin2010
Code: Select all | Expand
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
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:20 pm
by cnavarro
Ok, solo me queda la definicion de la ventana en la que se sitúa el menu
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:24 pm
by devwin2010
DEFINE WINDOW oWnd STYLE WS_POPUP ;
MENU oMenu
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:24 pm
by 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 ")
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:25 pm
by cnavarro
Ok, intento montar un ejemplo con tus codigo y te digo algo
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:28 pm
by cnavarro
Qué tienes en oFontMenu ?
Re: Parpadeo de Menu COLOR , Ayuda
Posted: Tue Oct 18, 2022 7:40 pm
by devwin2010
Local cFont := "Tahoma"
Local cFontH := -14
DEFINE FONT oFontMenu NAME cFont SIZE 0, cFontH WEIGHT 300