Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to release pad in the menu clean up code
Message
De
18/07/2004 22:34:02
 
 
À
12/07/2004 08:08:35
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00923251
Message ID:
00925626
Vues:
19
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?
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform