TMenu and checked items
Posted: Mon Feb 06, 2006 9:37 am
The following sample shows an unpleasant inset effect in checked menu items:
This is not a fix but with the following change in Add method (I just add a .f.) the effect vanishes:
EMG
Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
DEFINE WINDOW oWnd;
MENU BUILDMENU()
ACTIVATE WINDOW oWnd
RETURN NIL
STATIC FUNCTION BUILDMENU()
LOCAL oMenu
MENU oMenu
MENUITEM "Test"
MENU
MENUITEM "Test1" ACTION MSGINFO( "Test1" ) CHECKED
SEPARATOR
MENUITEM "Test2" ACTION MSGINFO( "Test2" )
ENDMENU
ENDMENU
RETURN oMenuCode: Select all
else
if oMenuItem:cPrompt != nil
AppendMenu( ::hMenu,;
nOR( If( oMenuItem:lActive,;
nOr( MF_ENABLED, If( oMenuItem:hBitmap != 0 .or. ;
( .f. .and. IsWinNT() .and. ! lRoot .and. ! ::lSysMenu ),;
MF_OWNERDRAW, 0 ) ),;