Problem with Menu in 2-Top form 1

[fredgmain]

I tried to create a simple menu (test.mpr) in the 2-As Top Level Form. When I compile the project and it keeps asking to locate the test.mpr, in which is already in my project. This happen everytime I conpile the project (I know something is not right but don't know what...)

I also added "DO test.mpr WITH THISFORM,.T." in the Init section of the form.

I followed the instruction from "ramani" in faq183-844 and is not working for me

Thanks
Fredgmain

 

[Mike Gagnon]

Since there are always many ways to do thing in foxpro, an alternative method might be, putting this code in the activate method of your form (Form has to be top-level)
¨

CLEAR
   SET SYSMENU SAVE
   SET SYSMENU TO
   ON KEY LABEL ESC KEYBOARD CHR(13)
   DEFINE MENU example BAR in window form1 && Change this to your forms name
   DEFINE PAD convpad OF example PROMPT '\<Conversions' COLOR SCHEME 3;
      KEY ALT+C, ''
   ON PAD convpad OF example ACTIVATE POPUP conversion
   DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4
   DEFINE BAR 1 OF conversion PROMPT 'Ar\<ea' KEY CTRL+E, '^E'
   DEFINE BAR 2 OF conversion PROMPT '\<Length' KEY CTRL+L, '^L'
   DEFINE BAR 3 OF conversion PROMPT 'Ma\<ss' KEY CTRL+S, '^S'
   DEFINE BAR 4 OF conversion PROMPT 'Spee\<d'KEY CTRL+D, '^D'
   DEFINE BAR 5 OF conversion PROMPT '\<Temperature' KEY CTRL+T, '^T'
   DEFINE BAR 6 OF conversion PROMPT 'T\<ime' KEY CTRL+I, '^I'
   DEFINE BAR 7 OF conversion PROMPT 'Volu\<me' KEY CTRL+M, '^M'
   ON SELECTION POPUP conversion DO choice IN defimenu;
      WITH PROMPT(), POPUP()
   ACTIVATE MENU example nowait

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)