select menuitem border do not show
in version 17.04 its ok
in version 17.07 not show
Source code:
*------------------------------------------------------------------------------*
FUNCTION TaskMenu( nRow, nCol )
DEFINE FONT oFontMenu NAME "Verdana" SIZE 0, -14 BOLD
MENU oTrayMenu POPUP FONT oFontMenu 2013 ;
NOBORDER ; // UPPERMNU ;
LOGOMENU "acessosoftv.png" ;
COLORSEPARATOR CLR_RED ;
COLORMENU CLR_WHITE, CLR_BLACK ;
COLORSELECT CLR_WHITE, CLR_WHITE, CLR_RED ;
COLORLEFT CLR_WHITE ;
COLORRIGHT CLR_HGRAY ;
NOINHERIT ;
FACTOR 4 ;
ROUND 5 ; //5 //
HEIGHT 1.0 * 2
MENUITEM "Versão do Sistema: 17.09" ACTION NIL
SEPARATOR
MENUITEM oMenuGAuto PROMPT "&G-Auto Sistema Gerenciador de CFC" ACTION NIL
SEPARATOR
MENUITEM "&Suporte..." ACTION NIL
MENU
MENUITEM "Abrir chamado" ACTION NIL
MENUITEM "Sugestões " ACTION NIL
MENUITEM "Reclamações " ACTION NIL
ENDMENU
SEPARATOR
MENUITEM "Agenda " ACTION NIL
MENUITEM "&Recibos " ACTION NIL
MENUITEM "&Backup " ACTION NIL
MENUITEM "C&onfigurações" ACTION NIL
SEPARATOR
MENUITEM "&Sair" ACTION QuitTray()
ENDMENU
ACTIVATE POPUP oTrayMenu AT nRow, nCol OF oTray:oWnd
oTrayMenu := NIL
oMenuGAuto := NIL
RETURN NIL