tryn2learn
Programmer
I'm trying to add the last 3 product numbers searched off of my menu. (Like you see the last several documents you've accessed in Word). I'm not sure how to dynamically create these options off of the menu. Any suggestions?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Dynamically Building Menu Options
- Thread starter tryn2learn
- Start date
- Status
As long as you know the Menu Pad's "name", you can add and change the bar's to your heart's content. For example I modify the Visual FoxPro menu in development mode with the following:
DEFINE BAR 10 OF _MSYSTEM PROMPT "\-"
DEFINE BAR 11 OF _MSYSTEM PROMPT "\<Filer" ;
MESSAGE "Finds files and directories"
ON SELECTION BAR 11 OF _MSYSTEM ;
DO FORM (HOME()+"ADD-ONS\FILER\FILER"
DEFINE BAR 12 OF _MSYSTEM PROMPT "Ca\<lculator" ;
MESSAGE "Perform calculations"
ON SELECTION BAR 12 OF _MSYSTEM ACTIVATE WINDOW calculator
DEFINE BAR 13 OF _MSYSTEM PROMPT "Calendar/D\<iary" ;
MESSAGE "Check dates and keep track of appointments"
ON SELECTION BAR 13 OF _MSYSTEM ACTIVATE WINDOW calendar
DEFINE BAR 15 OF _MSYSTEM PROMPT "\-"
DEFINE BAR 16 OF _MSYSTEM PROMPT "Di\<rectory..." ;
MESSAGE "Change directory"
ON SELECTION BAR 16 OF _MSYSTEM CD?
DEFINE BAR 17 OF _MSYSTEM PROMPT "File to \<Clipboard..." ;
MESSAGE "Get file dialog to clipboard"
ON SELECTION BAR 17 OF _MSYSTEM _CLIPTEXT=LOWER(GETFILE())
When I was doing cross-platform development in FPD and FPW, one distracting problem was how the menus were totally different. So I simply "redesigned" the FPD menu to be (almost) identical to FPW - it made finding things so much easier when switching back and forth.
Note: As long as a BAR isn't defined, it can be used, and FoxPro doesn't "worry" if some of the numbered bars are missing. Look at the syntax for RELEASE BAR and check out more example code in the DEFINE BAR help topic.
Rick
DEFINE BAR 10 OF _MSYSTEM PROMPT "\-"
DEFINE BAR 11 OF _MSYSTEM PROMPT "\<Filer" ;
MESSAGE "Finds files and directories"
ON SELECTION BAR 11 OF _MSYSTEM ;
DO FORM (HOME()+"ADD-ONS\FILER\FILER"
DEFINE BAR 12 OF _MSYSTEM PROMPT "Ca\<lculator" ;
MESSAGE "Perform calculations"
ON SELECTION BAR 12 OF _MSYSTEM ACTIVATE WINDOW calculator
DEFINE BAR 13 OF _MSYSTEM PROMPT "Calendar/D\<iary" ;
MESSAGE "Check dates and keep track of appointments"
ON SELECTION BAR 13 OF _MSYSTEM ACTIVATE WINDOW calendar
DEFINE BAR 15 OF _MSYSTEM PROMPT "\-"
DEFINE BAR 16 OF _MSYSTEM PROMPT "Di\<rectory..." ;
MESSAGE "Change directory"
ON SELECTION BAR 16 OF _MSYSTEM CD?
DEFINE BAR 17 OF _MSYSTEM PROMPT "File to \<Clipboard..." ;
MESSAGE "Get file dialog to clipboard"
ON SELECTION BAR 17 OF _MSYSTEM _CLIPTEXT=LOWER(GETFILE())
When I was doing cross-platform development in FPD and FPW, one distracting problem was how the menus were totally different. So I simply "redesigned" the FPD menu to be (almost) identical to FPW - it made finding things so much easier when switching back and forth.
Note: As long as a BAR isn't defined, it can be used, and FoxPro doesn't "worry" if some of the numbered bars are missing. Look at the syntax for RELEASE BAR and check out more example code in the DEFINE BAR help topic.
Rick
- Status
Similar threads
- Locked
- Question