Customizing the Sysmenu

[ggrewe]

In FPD26 I was able to customize the system menu to display various bars of the default system menu and call them. In VFP 6, SP4 I trying to do the same with no success. Listed below is the command that I am using (which works the command line or within a program) that does not work from the complied MPR. Any ideas?

DEFINE PAD _0fr1b5mmk OF _MSYSMENU PROMPT &quot;\<Window&quot; COLOR SCHEME 3 KEY ALT+W, &quot;&quot;
DEFINE POPUP window MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF window PROMPT &quot;Arrange All&quot;
ON SELECTION BAR 1 OF window =SYS(1500, '_MWI_ARRAN', '_MWINDOW')

 

[rajeevnandanmishra]

Hi ggrewe,
You had just missed one line. Attach the bold line in your code.
--------------------
DEFINE PAD _0fr1b5mmk OF _MSYSMENU PROMPT &quot;\<Window&quot; COLOR SCHEME 3 KEY ALT+W, &quot;&quot;
ON PAD _0fr1b5mmk OF _MSYSMENU ACTIVATE POPUP window
DEFINE POPUP window MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF window PROMPT &quot;Arrange All&quot;
ON SELECTION BAR 1 OF window =SYS(1500, '_MWI_ARRAN', '_MWINDOW')
--------------------

Hope this works!

 

[ggrewe]

Thanks Raj, but I actually had the on pad code in already, I just forgot to copy it into my original message. Should I name the pad _mwindow instead of letting the designer give it a numebr? I will try that shortly. Thanks.

 

[dgrewe]

Hi Greg, You said you were trying to alter the SysMenu, The SysMenu already has a window for &quot;\Window&quot; defined. Maybe you are butting heads with that.

DEFINE PAD _msm_windo OF _MSYSMENU ;
PROMPT &quot;\<Window&quot; COLOR SCHEME 3 ;
KEY ALT+W, &quot;&quot; ;
SKIP FOR UPPER(GETENV(&quot;USERNAME&quot ) != &quot;DAVE&quot; ;
MESSAGE &quot;Manipulate windows, display Command and View windows&quot;
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwi_hide OF _mwindow PROMPT &quot;\<Hide&quot; ;
MESSAGE &quot;Remove active window from sight&quot;
etc..... David W. Grewe
Dave@internationalbid.com
ICQ VFP ActiveList #46145644

 

[ggrewe]

Dave,

It turns out that the menu designer does not name the sysmenu pad's the name that you give it. So this creates the problem. I guess I am going to have to fall back to coding by hand and not using the designers as much. Thanks!

Greg