I have this code in my "Cleanup" section of the menu:
*************************************
FOR padcnt = 1 TO CNTPAD('_msysmenu') && Number of pads
cMenuName = GETPAD('_msysmenu',padcnt)
*?"Menu: "+cMenuName
nRemoved = 0
FOR barcnt = 1 TO CNTBAR(LEFT(cmenuname,10))
cbarname = PRMBAR(LEFT(cmenuname,10),GETBAR(LEFT(cmenuname,10),barcnt-nRemoved))
*?"Bar: "+cbarname
* here i check if the menu item is to be visible to the user
IF !oSecurity.chkmenuaccess(UPPER(cbarname))
cCmd = "RELEASE BAR "+TRANSFORM(barcnt)+" OF "+LEFT(cMenuName,10)
&cCmd
nRemoved = nRemoved + 1
ENDIF
ENDFOR
ENDFOR
************************************
This code is working for me currently.
HTH
Bernard
>i want to release a pad in my own menu. if i want to release a bar, i simply put a no. in the bar # then put
release bar 990 of ([a_mainmenu(4)] in the clean up code of the menu.
>
>how can i do this for the pad?