topic-6066

pawelu

Posts: 126

Joined: Thu Oct 06, 2005 10:18 PM

MenuItem with Checked clause

Posted: Wed Feb 21, 2007 07:37 PM

Antonio,

Is this possible work with menu this type.

Thanks
Pawel

pawelu

Posts: 126

Joined: Thu Oct 06, 2005 10:18 PM

MenuItem with Checked clause

Posted: Thu Mar 01, 2007 07:55 PM

Antonio,

Checked menu type is possible or not ?

Thanks
Pawel

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

MenuItem with Checked clause

Posted: Thu Mar 01, 2007 09:00 PM

Pawel,

Yes, it is possible:

Though a new function and method is required:

Code: Select all Collapse

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. ) )

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

MenuItem with Checked clause

MenuItem with Checked clause

MenuItem with Checked clause

Continue the discussion