FiveTech Software tech support forums

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oDlg, aBtn[ 4 ]

   DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL

   @ 40,180 BTNBMP aBtn[ 2 ] PROMPT "btnbmp" SIZE 100,40 PIXEL OF oDlg CENTER ;
      ACTION ::ShowPopUp( PopupObject( Self ) )

   ACTIVATE DIALOG oDlg CENTERED

return nil

function PopupObject(oBtn)

   local oPop

   MENU oPop POPUP
      MENUITEM "One"   ACTION test(oPop,oBtn);
      CHECKED

      MENUITEM "Two"
   ENDMENU

return oPop


Function test(oPop,oBtn)
   local n
   Msginfo("change")
   
for n=1 to len(oPop:aItems)
oPop:aItems[n]:SetCheck(.f.)
next n

oBtn:refresh()

return nil