MenuItem with Checked clause

pawelu · Post by **pawelu** » Wed Feb 21, 2007 7:37 pm

Antonio,

Is this possible work with menu this type.

Thanks
Pawel

pawelu · Post by **pawelu** » Thu Mar 01, 2007 7:55 pm

Antonio,

Checked menu type is possible or not ?

Thanks
Pawel

Post by **Antonio Linares** » Thu Mar 01, 2007 9:00 pm

Pawel,

Yes, it is possible:

Though a new function and method is required:

Code: Select all

HB_FUNC( ENABLEMENUITEM )
{
   hb_retl( EnableMenuItem( ( HMENU ) hb_parnl( 1 ), hb_parnl( 2 ), hb_parnl( 3 ) ) );
}   	

#define MF_BYCOMMAND  0
#define MF_UNCHECKED  0
#define MF_CHECKED    8

DATA lChecked

   METHOD SetCheck( lOnOff ) INLINE ;
          ::lChecked := lOnOff, CheckMenuItem( ::oMenu:hMenu,;
          ::nId, nOR( MF_BYCOMMAND, If( lOnOff, MF_CHECKED, MF_UNCHECKED ) ) )

   REDEFINE MENUITEM oItem ID 110 OF oMenu ACTION ( MsgInfo( "Clientes" ), oItem:SetCheck( .t. ) )