menu checked same menuitem

[Silvio.Falconi]

I wish create a menu popu having the same item check ( from the same)
static ltipo1:=.f.
static ltipo2:=.f.

then from a btnbmp open a menu popup with 2 option

Function BtnPop()
local oItem1,oItem2
MENU oMenu POPUP
MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED
SEPARATOR
MENUITEM oItem2 "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED
ENDMENU
return oMenu


why it is not compiled ?

[Antonio Linares]

what compile error do you get ?

[cnavarro]

I wish create a menu popu having the same item check ( from the same)
static ltipo1:=.f.
static ltipo2:=.f.

then from a btnbmp open a menu popup with 2 option

Function BtnPop()
local oItem1,oItem2
MENU oMenu POPUP
MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED
SEPARATOR
MENUITEM oItem2 "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED
ENDMENU
return oMenu


why it is not compiled ?

Try

Code: Select all  Expand view  RUN

Function BtnPop()
local oItem1,oItem2
MENU oMenu POPUP
MENUITEM oItem1 PROMPT "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED
SEPARATOR
MENUITEM oItem2 PROMPT "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED
ENDMENU
return oMenu
 

[Silvio.Falconi]

Now I have all items checked



I made
static lTipo1:=.f.,ltipo2:=.f.


@ 10, 550 BTNBMP oTipo PROMPT....
oTipo:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBrw,oMisura,lTipo1,lTipo2 ) } )}


Function BtnPopMenu(oBrw,oDbf,lTipo1,lTipo2)
local oItem1,oItem2
MENU oMenu POPUP
MENUITEM oItem1 PROMPT "First" ACTION (oItem1:SetCheck( ltipo1 := ! ltipo1 ),;
Maketree(oDbf,oBrw)) CHECKED
SEPARATOR
MENUITEM oItem2 PROMPT "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED
ENDMENU
return oMenu