Hi Fred,

I am using VFP7 service pack 1. I have 2 activeX on this form.
The TreeView (List Tree) and the Image List. It did not work on my form.
It worked on a form with no ActiveX.

The below was the actual code in the timer.

WITH This
     IF .Enabled
	*** Disable the timer
	.Enabled=.F.
	.Interval=0
	DO MyMenu.Mpr
      ENDIF
ENDWITH

Regards,

Doron

>>Hi Fred,
>>
>>Yes it is working when there is a simple form with no ActiveX on top of it.
>>I am using a List Tree control and had to add a timer to make it work.
>>
>
>You made no mention of an ActiveX control (or I missed it). BTW, it works for me with a TreeView control, too. What version of VFP are you using?
>
>
>
>>Within the timer() method entered the below code.
>>DO MyMenu.mpr
>>This.Enabled=.F.
>>
>>
>>I also set the Interval to 20 at development mode
>>
>>Regards,
>>
>>Doron
>>
>>>I just tried this again in VFP7/SP1 to be sure.
>>>
>>>In your modal form's Init:
>>>

PUSH MENU _MSYSMENU

>>>
>>>In your modal form's Destroy:
>>>

POP MENU _MSYSMENU

>>>
>>>In your modal form's GotFocus:
>>>

DO yourmenu.mpr

>>>
>>>That's it, nothing special anywhere else.
>>>
>>>
>>>
>>>>Hi Fred,
>>>>
>>>>That is strange I created a simple form and made it a modal and none of the options became available. In the INIT() entered this code: PUSH MENU _MSYSMENU and in the GotFocus() entered this code: DO Test.Mpr and in the Destroy() entered POP MENU _MSYSMENU.
>>>>
>>>>Below is the code of the TEST.MPR file.
>>>>The only way it works if I entered the DO Test.mpr in the Paint() method, but that is a bad choice, since it is fired all the time
>>>>
>>>>

>>>>SET SYSMENU TO
>>>>SET SYSMENU AUTOMATIC
>>>>
>>>>DEFINE PAD _0pc1bczsm OF _MSYSMENU PROMPT "File" COLOR SCHEME 3 ;
>>>> KEY ALT+F, ""
>>>>DEFINE PAD _0pc1bczsn OF _MSYSMENU PROMPT "Help" COLOR SCHEME 3 ;
>>>> KEY ALT+H, ""
>>>>ON PAD _0pc1bczsm OF _MSYSMENU ACTIVATE POPUP file
>>>>ON PAD _0pc1bczsn OF _MSYSMENU ACTIVATE POPUP help
>>>>
>>>>DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4
>>>>DEFINE BAR 1 OF file PROMPT "Close"
>>>>DEFINE BAR 2 OF file PROMPT "\>>>>ON SELECTION BAR 1 OF file _Screen.ActiveForm.Release()
>>>>ON SELECTION BAR 2 OF file ;
>>>> DO _0pc1bczsw ;
>>>> IN LOCFILE("VREP\TEST" ,"MPX;MPR|FXP;PRG" ,"WHERE is TEST?")
>>>>
>>>>DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
>>>>DEFINE BAR 1 OF help PROMPT "About"
>>>>DEFINE BAR 2 OF help PROMPT "Help"
>>>>ON SELECTION BAR 1 OF help DO FORM About.SCX
>>>>ON SELECTION BAR 2 OF help Help
>>>>

>>>>
>>>>Also tested it under VFP6 and VFP7 and got the same results.
>>>>What else is there?
>>>>
>>>>Regards,
>>>>
>>>>Doron
>>>>
>>>>>Wow, talk about a blast from the past! (18 months since that post)
>>>>>
>>>>>I've since found a better place for the menu.
>>>>>
>>>>>In your Form.Init:
>>>>>PUSH MENU _MSYSMENU
>>>>>
>>>>>In your Form.GotFocus:
>>>>>DO yourmenu.mpr
>>>>>
>>>>>In your Form.Destroy:
>>>>>POP MENU _MSYSMENU
>>>>>
>>>>>This should work, and doesn't require a flag for the menu activation. The
>>>>>Paint method should work, but Paint get's fired off for many reasons (one of
>>>>>which is if you're current field has a blinking cursor!).
>>>>>
>>>>>
>>>>>>Hi Fred,
>>>>>>
>>>>>>I tried to do what you suggested and it did not work for me.
>>>>>>I have one main model form and entered the 2 lines in the GotFocus method and the menu options still were not available. I tried that either in VFP 6 or VFP 7. This main form is called from the main prg.
>>>>>>
>>>>>>PUSH MENU _msysmenu
>>>>>>DO modal.mpr
>>>>>>
>>>>>>Also the other suggestion worked if I let the Paint method to be fired all the time without the IF NOT this.lMenuDone.
>>>>>>
>>>>>>Any ideas?
>>>>>>
>>>>>>Regards,
>>>>>>
>>>>>>Doron
>>>>>>
>>>>>>
>>>>>>
>>>>>>>>>
>>>>>>>>>Add a property called lMenuDone to your modal form. This code in the form's Paint method:
>>>>>>>>>
>>>>>>>>>

>>>>>>>>>IF NOT This.lMenuDone
>>>>>>>>>   PUSH MENU _MSYSMENU
>>>>>>>>>   This.lMenuDone = .T.
>>>>>>>>>   DO MyMenu.prg
>>>>>>>>>   DO MyMenu.prg
>>>>>>>>>ENDIF
>>>>>>>>>

>>>>>>>>>
>>>>>>>>>Then you can issue a POP MENU in the form's Unload.
>>>>>>>>
>>>>>>>>Marcia,
>>>>>>>>
>>>>>>>>why i must run
>>>>>>>>
>>>>>>>>DO MyMenu.prg
>>>>>>>>
>>>>>>>>twice?
>>>>>>>>
>>>>>>>>One line seems to be sufficient.
>>>>>>>>Is it possible to use vfp standard _msysmenu (e.q.standard copy, edit,paste pads) ? I do'nt want to define new menu of each modal form.
>>>>>>>>
>>>>>>>>It it possible to run this code in some other event than paint (Load event)?
>>>>>>>>I haven't never used paint.
>>>>>>>
>>>>>>>You can put in your Form's GotFocus:
>>>>>>>

>>>>>>>PUSH MENU _msysmenu
>>>>>>>DO modal.mpr
>>>>>>>

>>>>>>>and in your Form's Unload:
>>>>>>>

>>>>>>>POP MENU _msysmenu
>>>>>>>