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.