Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dynamic Prompts?
Message
 
To
11/08/2003 16:38:43
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00819148
Message ID:
00819179
Views:
9
Yes there is. When a control action opens the menu, the dynamic bar can be [re] defined. In these snippets, OpenEDLVPopMenu is called by the action that activates the menu. Notice in the DEFINE POPUP procedure, BAR 5 (Period) is redefined in the activating procedure (OpenEDLVPopMenu)
PROCEDURE DefineEDLVPopUpMenu(oform)
********************************************************************
* Edit Detail Pop service
********************************************************************
DEFINE POPUP popEDLV in Window BM MARGIN RELATIVE shortcut TITLE "Returns" COLOR SCHEME 4
DEFINE BAR 1 OF popEDLV PROMPT 'New' 
DEFINE BAR 4 OF popEDLV PROMPT 'Edit'
DEFINE BAR 2 OF popEDLV PROMPT 'Delete'
DEFINE BAR 3 OF popEDLV PROMPT "\-"
DEFINE BAR 5 OF popEDLV PROMPT 'Period' 
ON SELECTION BAR 1 of popEDLV DO popEDLV_EDNEW with oform
ON SELECTION BAR 4 of popEDLV do BMToolBarButtonClicks with [EDEDIT],oform 
ON SELECTION BAR 2 of popEDLV do BMToolBarButtonClicks with [EDDELETE],oform
********************************************************************
ENDPROC 

PROCEDURE OpenEDLVPopMenu(nRow,nCol,oform,oSNLV,oEDLV)
lcPrompt=[Period return: ]+TRANSFORM(GetPortfolioPeriodReturn(oEDLV))
DEFINE BAR 5 OF popEDLV PROMPT lcPrompt 
ACTIVATE popup popEDLV at nRow,nCol
DEACTIVATE POPUP popEDLV
ENDPROC
>I'm using VFP 7.0.
>
>Is there anyway to get the menu designer to put dynamic prompts into the menu.
>
>I'd like to be able to "do myMenu.mpr with thisform, thisform.name, .f., myPrompt1, myPrompt2"
>
>TIA
Imagination is more important than knowledge
Previous
Reply
Map
View

Click here to load this message in the networking platform