Paradox UserMenu

[ljprivara]

I have a number of routines whereby I allow a user to generate dynamic queries using a form. It then opens a specific report which displays the query results.

When the form opens . . .

if r.open(reportName, WinStyleMaximize + WinStyleHScroll + WinStyleVScroll) then

create custom menu for report.

At this time, I have only been able to use menu constants . . .

f.addText("&Print...",MenuEnabled, MenuFilePrint)
f.addText("Printer &Setup...", MenuEnabled, MenuFilePrinterSetup)
f.addSeparator()
f.addText("&Close",MenuEnabled,MenuControlClose)

If I wanted to create a user defined menu I can add the following code.

f2.addText("&Word Perfect", MenuEnabled, kMenuWP + UserMenu)
f2.addText("&Microsoft Word" , MenuEnabled, kMenuWD + UserMenu)
f2.addText("&Microsoft Excel", MenuEnabled, kMenuXL + UserMenu)
f.addPopUp("&Publish To...", f2)

I can even define the constants for kMenuWP, et. al.

While the user-defined pop-up menus properly display, I am unable to pass the event instructions to the report. Does anyone know an approach I can take.

 

[footpad]

ljprivara,

Regrettably, reports can't contain custom code. There's no event available for responding to the choices you want to make available.

About the only way to handle it is to move thise choices to your dynamic querie dialog. I generally have options like:

Preview Report
Print Directly
Save as Text
Save as HTML

and so on. Then I add code to the pushButton() process to respond to those choices.

Hope this helps...

-- Lance