FiveTech Support Forums

 MENUITEM oMenuItem[1] PROMPT  "5 minutes - massimo spazio per i dettagli" CHECKED  ACTION (oApp():oCalex:oDayView:SetInterval( 5 )  ,oApp():oCalex:oDayView:refresh(), oMenuItem[1]:SetCheck( !oMenuItem[ 1 ]:lChecked ) )

.../...
 ACTIVATE POPUP oMenu OF oView:oCalex AT nRow, nCol

oMenuItem[ 1 ]:SetCheck( .F. )

Application
===========
   Path and name: C:\Work\Prg\Agenda - giusto_15_04_2017\main.Exe (32 bits)
   Size: 3,804,160 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
   FiveWin  version: FWHX 17.02
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.1, Build 7600 

   Time from start: 0 hours 0 mins 5 secs 
   Error occurred at: 18-04-2017, 15:09:11
   Error description: Error BASE/1004  Class: 'CHARACTER' has no exported method: LCHECKED
   Args:
     [   1] = C   10 minutes

Stack Calls
===========
   Called from:  => LCHECKED( 0 )
   Called from: Source\PAgenda.prg => (b)BUILDPOP( 658 )
   Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1270 )
   Called from: Source\PAgenda.prg => BUILDPOP( 677 )
   Called from: Source\PAgenda.prg => (b)BUILDCALEX( 273 )
   Called from: Lib\calex\prg\tcalex.prg => TCALEX:RBUTTONUP( 1267 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCALEX:HANDLEEVENT( 1731 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1036 )
   Called from: Source\main.prg => TAPPLICATION

 
#include "FiveWin.ch"
static oWnd

//----------------------------------------------------------------------------//

Function test()

 DEFINE WINDOW oWnd FROM 1, 5 TO 20, 70 TITLE "Testing Menus" ;
      MENU BuildMenu()

 SET MESSAGE OF oWnd TO FWVERSION + " - Menu Management Power"

   ACTIVATE WINDOW oWnd
return nil 

//----------------------------------------------------------------------------//

Function BuildMenu()
Local oMenu
Local ofirst,oSecond,oThird
Local ofirst1,oSecond1,oThird1
 MENU oMenu
      MENUITEM "&Test"
        MENU
           MENUITEM oFirst PROMPT "First"     checked    action oFirst:SetCheck( ! oFirst:lChecked )
           MENUITEM oSecond PROMPT "Second"   checked    action oSecond:SetCheck( ! oSecond:lChecked )
           MENUITEM oThird PROMPT "Third"     checked    action oThird:SetCheck( ! oThird:lChecked )
           MENUITEM oFirst1 PROMPT "First1"   checked    action oFirst1:SetCheck( ! oFirst1:lChecked )
           MENUITEM oSecond1 PROMPT "Second1" checked    action oSecond1:SetCheck( ! oSecond1:lChecked )
           MENUITEM oThird1 PROMPT "Third1"   checked    action oThird1:SetCheck( ! oThird1:lChecked )

         ENDMENU
  ENDMENU

oFirst:SetCheck(.f.)
oSecond:SetCheck(.f.)
oThird:SetCheck(.f.)
oFirst1:SetCheck(.f.)
oSecond1:SetCheck(.f.)
oThird1:SetCheck(.f.)



return oMen

Function BuildMenuSil()

   Local oMenu
   Local ofirst, oSecond, oThird
   Local ofirst1, oSecond1, oThird1
   MENU oMenu
      MENUITEM "&Test"
        MENU
           MENUITEM oFirst PROMPT "First"     CHECKED    ACTION oFirst:SetCheck( ! oFirst:lChecked )
           MENUITEM oSecond PROMPT "Second"   CHECKED    ACTION oSecond:SetCheck( ! oSecond:lChecked )
           MENUITEM oThird PROMPT "Third"     CHECKED    ACTION oThird:SetCheck( ! oThird:lChecked )
           MENUITEM oFirst1 PROMPT "First1"   CHECKED    ACTION oFirst1:SetCheck( ! oFirst1:lChecked )
           MENUITEM oSecond1 PROMPT "Second1" CHECKED    ACTION oSecond1:SetCheck( ! oSecond1:lChecked )
           MENUITEM oThird1 PROMPT "Third1"   CHECKED    ACTION oThird1:SetCheck( ! oThird1:lChecked )

         ENDMENU
   ENDMENU

   oFirst:SetCheck(.f.)
   oSecond:SetCheck(.f.)
   oThird:SetCheck(.f.)
   oFirst1:SetCheck(.f.)
   oSecond1:SetCheck(.f.)
   oThird1:SetCheck(.f.)

return oMenu

Function BuildMenuSil()

   Local oMenu
   local oItems   := Array( 6 )
   
   MENU oMenu
      MENUITEM "&Test"
        MENU
           MENUITEM oItems[ 1 ] PROMPT "First"   CHECKED  ACTION ( ChangeCheck( oItems ), oItems[ 1 ]:SetCheck( ! oItems[ 1 ]:lChecked ) )
           MENUITEM oItems[ 2 ] PROMPT "Second"  CHECKED  ACTION ( ChangeCheck( oItems ), oItems[ 2 ]:SetCheck( ! oItems[ 2 ]:lChecked ) )
           MENUITEM oItems[ 3 ] PROMPT "Third"   CHECKED  ACTION ( ChangeCheck( oItems ), oItems[ 3 ]:SetCheck( ! oItems[ 3 ]:lChecked ) )
           MENUITEM oItems[ 4 ] PROMPT "First1"  CHECKED  ACTION ( ChangeCheck( oItems ), oItems[ 4 ]:SetCheck( ! oItems[ 4 ]:lChecked ) )
           MENUITEM oItems[ 5 ] PROMPT "Second1" CHECKED  ACTION ( ChangeCheck( oItems ), oItems[ 5 ]:SetCheck( ! oItems[ 5 ]:lChecked ) )
           MENUITEM oItems[ 6 ] PROMPT "Third1"  CHECKED  ACTION ( ChangeCheck( oItems ), oItems[ 6 ]:SetCheck( ! oItems[ 6 ]:lChecked ) )

         ENDMENU
   ENDMENU
   ChangeCheck( oItems )

return oMenu

Function ChangeCheck( oItems )
   AEval( oItems, { | o | o:SetCheck( .F. ) } )
Return nil

//----------------------------------------------------------------------------//