FiveTech Software tech support forums

?aChk[1]:lChecked() why it is wrong ? How I can Know if a checkbox is true or false ? Please try this test , why I cannot change the state of checkboxes with select_All() ) #include "FiveWin.ch"#include "Constant.ch"Function ...

... see here oGet:bChange := {|nKey|(Chr(nKey)$"0123456789.")} oGet:bKeyDown := { | nKey |(oGet:assign(), ActiveNavigator(cVar,oBrw,oItem2:lChecked)) } https://i.postimg.cc/Dyr6MKKx/jjjjj.png

hi Antonio, thx for your Sample. Here you have your example modified to work as you want: static lChecked := .F.         if lChecked               MENUITEM oItem PROMPT "Two" CHECKED          else             MENUITEM oItem PROMPT "Two"         endif ...

Crisobal I have six options on that menupopup and the it make error .. lchecked value Application===========   Path and name: C:\Work\Prg\Agenda - giusto_15_04_2017\main.Exe (32 bits)   Size: 3,804,160 bytes   Compiler ...

... ; MESSAGE OemToAnsi(ALLTRIM((cMnuAlias)->FLDMESSAGE)) ; ACCELERATOR (cMnuAlias)->FLDNSTATE, (cMnuAlias)->FLDVIRTKEY ENDIF oMnuItem:lChecked := (cMnuAlias)->FLDCHECK oMnuItem:lActive := ( lRight:= Eval( {||&(ALLTRIM((cMnuAlias)->FLDCONDI))} ) ) IF ! EMPTY( fAction := ALLTRIM((cMnuAlias)->FLDACTION) ...

... ::oMenu:L2010 ), MF_OWNERDRAW, 0 ) ) if I exclude all works /* nFlags := nOR( If( ::lActive, MF_ENABLED,; nOR( MF_DISABLED, MF_GRAYED ) ),; If( ::lChecked, MF_CHECKED, 0 ),; If( ::lHelp, MF_HELP, 0 ),; If( ::lBreak, MF_BREAK, 0 ),; If( ::oMenu != nil .and. ( ::oMenu:l2007 .OR. ::oMenu:L2010 ), ...

...      675  2436 LCANCEL                WINDOW.PRG      438 LCAPTION                WINDOW.PRG      486  1115  1123  1130  1131  1132  1133 LCHECKED                WINDOW.PRG     3859  3934 LCREATEDC              WINDOW.PRG      557 LDBLCLICK()            (function  in ?)    WINDOW.PRG   ...

... ; MESSAGE OemToAnsi(ALLTRIM((cMnuAlias)->FLDMESSAGE)) ; ACCELERATOR (cMnuAlias)->FLDNSTATE, (cMnuAlias)->FLDVIRTKEY ENDIF oMnuItem:lChecked := (cMnuAlias)->FLDCHECK oMnuItem:lActive := ( lRight:= Eval( {||&(ALLTRIM((cMnuAlias)->FLDCONDI))} ) ) IF ! EMPTY( fAction := ALLTRIM((cMnuAlias)->FLDACTION) ...

Silvio:

I have no test it yet

oMenuItem:lChecked := (.T.)

Regards

... nil       , "FLAGS2" => nil        , "TECLA2" => nil       , "ACCION" => { | oItm | oItm:setCheck( !oItm:lChecked ) }, "WHEN" => { || ::nDbgStatus == 0 }, "VARIABLE" => "_OITMDBG" }, ;             {                   ...

... oPopRecord POPUP MENUITEM oMenuItem[1] PROMPT "Record and Print" ACTION (oDlg:oPopup := nil,MsgInfo("Stampa"),oMenuItem[1]:lChecked:=.t.) MENUITEM oMenuItem[2] PROMPT "Record and Email" MENUITEM oMenuItem[3] PROMPT "Record and Fax" MENUITEM oMenuItem[4] ...

... for each text I want save the checkbox ( yes or not) I wish save the congiguration sample ( yes,not ,not,yes) to call each record sample IF oLbx:lChecked( n ) ->..... I wish also a button "Default" to return the old config Someone can help with a minimal sample ?

... oLbx      :SetCheck( .t., )   END  i WANT SHOW THE LIST OF ALL DEVICES AND IT MUST RETURN ALL THE ITEMS LCHECKED = .T. THERE IS A LCHEKED DATA ON XBROWSE CLASS ?

... is that oHome is the menu object not the variable containg a logical. MENUITEM oHome PROMPT "Home" CHECKED There is DATA of the object, lChecked which you can check: If oHome:lChecked ... endif However, I am not sure what you are trying to do. If you are defining the menu item in code ...

on oldest clipper function I have


If ValType(uVar)<>"L"
oEdit:Value:=uVar
Endif

and


If lOk
If ValType(uVar)<>"L"
uVar:=oEdit:Value
Else
uVar:=oEdit:lChecked
Endif

How I can make on fwh ?