how to create shortcutmenu by code

[Nifrabar]

Hi!
I just started to create a new VCX for a new application.
I used some basics from the examples in 1001-things.
In the book an editboxclass is described which uses in the rightclick event a quickmenu. In the example the shortcutmenu seemed to be created in the normal (not coded) way.
As I like the availability to select just the VCX for another project it seems a better solution to me to create the shortcut menu by code in the rightclick of the editboxclass within the VCX.
But howto ?
-Bart

 

[bborissov]

Bart,
Create a menu in usual way. Compile it and then just open and see file with your Menu name and MPR extension. That way you can create a dynamic menu.

Borislav Borissov

 

[Mike Lewis]

Bart,

Are you saying that you want to code the menu using DEFINE BAR, ON SELECTION BAR, and similar commands?

If so, your code will be almost identical to doing a normal menu. The main difference is that, instead of DEFINE PAD, you'll start with something like this:

DEFINE POPUP MyShortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My sites:
Visual FoxPro (www.ml-consult.demon.co.uk)
Crystal Reports (www.ml-crystal.com)

 

[Nifrabar]

Hi,
Thanks for the advices. They do what expected but..

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "\<Expand"
DEFINE BAR 2 OF shortcut PROMPT "\<Shrink"
DEFINE BAR 3 OF shortcut PROMPT "Change \<Font"
ON SELECTION BAR 1 OF shortcut pnMenuChoice = 1
ON SELECTION BAR 2 OF shortcut pnMenuChoice = 2
ON SELECTION BAR 3 OF shortcut pnMenuChoice = 3

ACTIVATE POPUP shortcut

this is what is among others in the rightclick event
As this code will be executed everytime the rightclick event fires, is there no need to remove or destroy, or some like that, the created shortcutmenu?

-Bart

 

[alvechurchdata]

is there no need to remove or destroy, or some like that, the created shortcutmenu?

You could try [TT]RELEASE POPUPS shortcut[/TT] but I do wonder why you need to create and destroy this shortcut menu. Why not just define the menu as part of the project?

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Mike Lewis]

Bart,

No need to specifically destroy the popup. Assuming the whole thing is in a PRG file, just DO that file in the right-click.

But I don't see why you don't use the menu designer for this. I know it's not the slickets part of VFP, but it will generate pretty much the same code that you would otherwise write yourself.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My sites:
Visual FoxPro (www.ml-consult.demon.co.uk)
Crystal Reports (www.ml-crystal.com)

 

[Nifrabar]

Hi!
The reason why I don't want to have a 'loose' menu in the application is to be able to pick out the vcx and use it for another app without thinking which accompanying files to pick out out as well.
-Bart

 

[alvechurchdata]

pick out the vcx and use it

You could create the popup in the Init method of the class rather than creating the menu on each right-click.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Nifrabar]

Geoff,
Agreed,
But than still there might be several popup menus defined once I have several editboxes on the form.
-Bart

 

[alvechurchdata]

But than still there might be several popup menus defined

I see, it all makes sense now. Sorry to have pestered you - just my natural curiousity coming through.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Nifrabar]

Geoff,
No, I just appreciate others 'voice' for sure. It often lead also to other solutions!.
Any way thanks for your help.
-Bart