SYSMENU FUNCTIONALITY IN DEFINED MENU

[harryjr]

How do I achieve the FUNCTIONALITY of the SYSMENU in a
DEFINED MENU. I'm defining the MENU because I want to be
able to set FONT Attributes.

Specifically -

(1) Having the MENU displayed while in the Command Window - accessible by depressing the ALT Key

(2) Returning to the Command Window when <Escape> Key depressed (MENU does not disappear)

harryjr

 

[Zog1]

You'll want to look into SET SYSMENU TO, Harry. Check out SYS(2013) for a list of the system menu names.

 

[harryjr]

zog1

Perhaps you misuderstood my question. I want to DEFINE
a MENU (ie, I select the MENU NAMES and corresponding
ACTIONS) yet have the SYSMENU Functionality. Is that
possible? If so, how?

Thanks for response,

harryjr

 

[Zog1]

Yes, it is, Harry. You might also want to read the RELEASE PAD, DEFINE PAD and DEFINE BAR topics.

Sorry, I'm at home now, and most of my FP is at the office, but here's a bit of old code to get you going. It won't do anything spectacular since you don't have the full code, but give it a run. Enjoy!

SET SYSMENU TO DEFAULT
SET SYSMENU AUTOMATIC

DEFINE PAD _roy0jwczu OF _MSYSMENU PROMPT &quot;De\<v&quot; COLOR SCHEME 3 ;
AFTER _MWINDOW ;
KEY ALT+V, &quot;&quot;
ON PAD _roy0jwczu OF _MSYSMENU ACTIVATE POPUP Dev

DEFINE POPUP Dev MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MWI_DEBUG OF Dev PROMPT &quot;\<Debug&quot;
DEFINE BAR _MWI_TRACE OF Dev PROMPT &quot;\<Trace&quot;
DEFINE BAR _MWI_CMD OF Dev PROMPT &quot;\<Command&quot; ;
KEY CTRL+F2, &quot;&quot;
DEFINE BAR _MWI_View OF Dev PROMPT &quot;\<View&quot;
DEFINE BAR 5 OF Dev PROMPT &quot;\<Reset&quot;
DEFINE BAR 6 OF Dev PROMPT &quot;\-&quot;
DEFINE BAR 7 OF Dev PROMPT &quot;\<Program list&quot;
DEFINE BAR 8 OF Dev PROMPT &quot;\<Update program list&quot;
ON SELECTION BAR 5 OF Dev ;
DO Reset ;
IN LOCFILE(&quot;C:\FPD26\DOGAPP\PRGS\AC&quot; ,&quot;FXP;PRG&quot; ,&quot;Where is AC?&quot
ON SELECTION BAR 7 OF Dev ;
DO ProgList;
IN LOCFILE(&quot;C:\FPD26\DOGAPP\PRGS\AC&quot; ,&quot;FXP;PRG&quot; ,&quot;Where is AC?&quot
ON SELECTION BAR 8 OF Dev ;
DO UpdateTOC;
IN LOCFILE(&quot;C:\FPD26\DOGAPP\PRGS\AC&quot; ,&quot;FXP;PRG&quot; ,&quot;Where is AC?&quot
RETURN