📄 appmenu.mpr
字号:
* ***********************************************************
* * *
* * 06/28/03 APPMENU.MPR 09:50:37 *
* * *
* ***********************************************************
* * *
* * Author's Name *
* * *
* * Copyright (c) 2003 Company Name *
* * Address *
* * City, Zip *
* * *
* * Description: *
* * This program was automatically generated by GENMENU. *
* * *
* ***********************************************************
* ***********************************************************
* * *
* * Setup Code *
* * *
* ***********************************************************
*
SET SYSMENU AUTOMATIC
EXTERNAL PROCEDURE showpop, juststem, justfname, justpath, addbs, ;
forceext, defaultext, justext
IF TYPE("SKIPVAR") <> "U"
RELEASE m.skipvar
ENDIF
PUBLIC m.skipvar
m.skipvar = .F.
CLEAR MACRO
* ***********************************************************
* * *
* * Menu Definition *
* * *
* ***********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0zk0l3js0 OF _MSYSMENU PROMPT "\<System" COLOR SCHEME 3 ;
KEY ALT+S, ""
DEFINE PAD _0zk0l3js5 OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
KEY ALT+E, ""
DEFINE PAD _0zk0l3js7 OF _MSYSMENU PROMPT "\<Application" COLOR SCHEME 3 ;
KEY ALT+A, " "
DEFINE PAD _0zk0l3js8 OF _MSYSMENU PROMPT "\<Utilities" COLOR SCHEME 3 ;
KEY ALT+U, " "
ON PAD _0zk0l3js0 OF _MSYSMENU ACTIVATE POPUP system
ON PAD _0zk0l3js5 OF _MSYSMENU ACTIVATE POPUP edit
ON PAD _0zk0l3js7 OF _MSYSMENU ACTIVATE POPUP applic
ON PAD _0zk0l3js8 OF _MSYSMENU ACTIVATE POPUP utilities
DEFINE POPUP system MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF system PROMPT "\<About..."
DEFINE BAR _MST_HELP OF system PROMPT "\<Help..." ;
KEY F1, "F1"
DEFINE BAR _MST_MACRO OF system PROMPT "\<Macros"
DEFINE BAR 4 OF system PROMPT "\-"
DEFINE BAR _MST_CALCU OF system PROMPT "\<Calculator"
DEFINE BAR _MST_DIARY OF system PROMPT "Calendar/\<Diary"
DEFINE BAR _MST_PUZZL OF system PROMPT "Pu\<zzle"
DEFINE BAR 8 OF system PROMPT "\-"
DEFINE BAR 9 OF system PROMPT "\<Quit" ;
SKIP FOR skipvar
ON SELECTION BAR 1 OF system ;
DO _0zk0l3jsr ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 9 OF system ;
DO _0zk0l3jt4 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DEFINE POPUP edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MED_CUT OF edit PROMPT "Cu\<t" ;
KEY CTRL+X, "^X"
DEFINE BAR _MED_COPY OF edit PROMPT "\<Copy" ;
KEY CTRL+C, "^C"
DEFINE BAR _MED_PASTE OF edit PROMPT "\<Paste" ;
KEY CTRL+V, "^V"
DEFINE BAR _MED_SP200 OF edit PROMPT "\-"
DEFINE BAR _MED_CLEAR OF edit PROMPT "Clear"
DEFINE BAR _MED_SLCTA OF edit PROMPT "Select \<All" ;
KEY CTRL+A, "^A"
DEFINE BAR _MED_SP300 OF edit PROMPT "\-"
DEFINE BAR _MED_PREF OF edit PROMPT "\<Preferences..."
DEFINE POPUP applic MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF applic PROMPT "\<Top" ;
KEY F2, "F2" ;
SKIP FOR skipvar or bof()
DEFINE BAR 2 OF applic PROMPT "\<Bottom" ;
KEY F3, "F3" ;
SKIP FOR skipvar or eof()
DEFINE BAR 3 OF applic PROMPT "\<Next" ;
KEY F4, "F4" ;
SKIP FOR skipvar or eof()
DEFINE BAR 4 OF applic PROMPT "\<Prior" ;
KEY F5, "F5" ;
SKIP FOR skipvar or bof()
DEFINE BAR 5 OF applic PROMPT "\-"
DEFINE BAR 6 OF applic PROMPT "\<Add record" ;
KEY CTRL+N, "^N" ;
SKIP FOR skipvar
DEFINE BAR 7 OF applic PROMPT "\<Copy record " ;
SKIP FOR skipvar
DEFINE BAR 8 OF applic PROMPT "\<Delete record" ;
KEY CTRL+D, "^D" ;
SKIP FOR skipvar
DEFINE BAR 9 OF applic PROMPT "\-"
DEFINE BAR 10 OF applic PROMPT "Bro\<wse" ;
KEY CTRL+B, "^B" ;
SKIP FOR skipvar
DEFINE BAR 11 OF applic PROMPT "\<Search..." ;
KEY CTRL+S, "^S" ;
SKIP FOR skipvar
DEFINE BAR 12 OF applic PROMPT "\<Filter..." ;
KEY CTRL+F, "^F" ;
SKIP FOR skipvar
DEFINE BAR 13 OF applic PROMPT "\<Order..." ;
KEY CTRL+O, "^O" ;
SKIP FOR skipvar
DEFINE BAR 14 OF applic PROMPT "\-"
DEFINE BAR 15 OF applic PROMPT "Pick \<list" ;
KEY CTRL+L, "^L" ;
SKIP FOR m.skipvar or m.nextdbf <= 2
DEFINE BAR 16 OF applic PROMPT "\-"
DEFINE BAR 17 OF applic PROMPT "\<Query..." ;
KEY CTRL+Q, "^Q" ;
SKIP FOR skipvar or ('EXE' $ VERSION())
DEFINE BAR 18 OF applic PROMPT "\<Report..." ;
KEY CTRL+R, "^R" ;
SKIP FOR skipvar
ON SELECTION BAR 1 OF applic ;
DO _0zk0l3jtn ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 2 OF applic ;
DO _0zk0l3jto ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 3 OF applic ;
DO _0zk0l3jtp ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 4 OF applic ;
DO _0zk0l3jty ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 6 OF applic ;
DO _0zk0l3ju0 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 7 OF applic ;
DO _0zk0l3ju2 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 8 OF applic ;
DO _0zk0l3ju4 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 10 OF applic ;
DO _0zk0l3ju5 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 11 OF applic ;
DO _0zk0l3ju7 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 12 OF applic ;
DO _0zk0l3ju8 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 13 OF applic ;
DO _0zk0l3jua ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 15 OF applic DO showpop WITH ALIAS(),VARREAD()
ON SELECTION BAR 17 OF applic ;
DO _0zk0l3jud ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 18 OF applic ;
DO _0zk0l3jue ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF utilities PROMPT "\<Refresh screen" ;
SKIP FOR skipvar
DEFINE BAR 2 OF utilities PROMPT "\<Construct index" ;
SKIP FOR skipvar
DEFINE BAR 3 OF utilities PROMPT "\<Pack " ;
SKIP FOR skipvar
DEFINE BAR 4 OF utilities PROMPT "\<Environment" ;
SKIP FOR skipvar
ON SELECTION BAR 1 OF utilities ;
DO _0zk0l3jul ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 2 OF utilities ;
DO _0zk0l3jun ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 3 OF utilities ;
DO _0zk0l3jup ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON BAR 4 OF utilities ACTIVATE POPUP enviro
DEFINE POPUP enviro MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF enviro PROMPT "\<Status Bar"
DEFINE BAR 2 OF enviro PROMPT "\<Clock"
DEFINE BAR 3 OF enviro PROMPT "\<Extended video"
DEFINE BAR 4 OF enviro PROMPT "S\<ticky"
DEFINE BAR 5 OF enviro PROMPT "S\<hadow"
ON SELECTION BAR 1 OF enviro ;
DO _0zk0l3juv ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 2 OF enviro ;
DO _0zk0l3juw ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 3 OF enviro ;
DO _0zk0l3juy ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 4 OF enviro ;
DO _0zk0l3jv0 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
ON SELECTION BAR 5 OF enviro ;
DO _0zk0l3jv1 ;
IN LOCFILE("\ATPOS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
* ***********************************************************
* * *
* * Cleanup Code & Procedures *
* * *
* ***********************************************************
*
SET MARK OF BAR 1 OF enviro TO (SET("STATUS") = "ON")
SET MARK OF BAR 2 OF enviro TO (SET("CLOCK") = "ON")
SET MARK OF BAR 3 OF enviro TO (SROWS() > 25)
SET MARK OF BAR 4 OF enviro TO (SET("STICKY") = "ON")
SET MARK OF BAR 5 OF enviro TO (SET("SHADOW") = "ON")
* ***********************************************************
* * *
* * _0ZK0L3JSR ON SELECTION BAR 1 OF POPUP system *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 5 *
* * Called By: ON SELECTION BAR 1 OF POPUP system *
* * Prompt: About... *
* * Snippet: 1 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jsr
IF !regen
mname = 'appabout.prg'
ELSE
mname = 'appabout.spr'
ENDIF
DO (mname)
* ***********************************************************
* * *
* * _0ZK0L3JT4 ON SELECTION BAR 9 OF POPUP system *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 13 *
* * Called By: ON SELECTION BAR 9 OF POPUP system *
* * Prompt: Quit *
* * Snippet: 2 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jt4
* Select the main database
dbfstem = juststem(m.dbfname)
SELECT (dbfstem)
=actwin(m.win_name)
bailout = .T.
CLEAR READ
* ***********************************************************
* * *
* * _0ZK0L3JTN ON SELECTION BAR 1 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 26 *
* * Called By: ON SELECTION BAR 1 OF POPUP applic *
* * Prompt: Top *
* * Snippet: 3 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jtn
GOTO TOP
ACTIVATE WINDOW appctrl
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JTO ON SELECTION BAR 2 OF POPUP applic *
* * *
* * Procedure Origin: *
* * *
* * From Menu: APPMENU.MPR, Record: 27 *
* * Called By: ON SELECTION BAR 2 OF POPUP applic *
* * Prompt: Bottom *
* * Snippet: 4 *
* * *
* ***********************************************************
*
PROCEDURE _0zk0l3jto
GOTO BOTTOM
SHOW GETS
* ***********************************************************
* * *
* * _0ZK0L3JTP ON SELECTION BAR 3 OF POPUP applic *
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -