📄 ryluru_menu.prg
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: RYLURU_MENU.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
DEFINE MENU RYLURU_MENU BAR IN (OTHISFORM.NAME)
DEFINE PAD PAD1 OF RYLURU_MENU PROMPT '文件(\<F)' COLOR SCHEME 3 KEY ALT+F , ''
DEFINE PAD PAD2 OF RYLURU_MENU PROMPT '信息窗口(\<I)' COLOR SCHEME 3 KEY ALT+I , ''
ON PAD PAD1 OF RYLURU_MENU ACTIVATE POPUP 文件
ON PAD PAD2 OF RYLURU_MENU ACTIVATE POPUP 信息
DEFINE POPUP 文件 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 文件 PROMPT '保存当前数据' KEY Alt+S , 'Alt+S'
DEFINE BAR 2 OF 文件 PROMPT '添加新纪录' KEY Alt+N , 'Alt+N'
DEFINE BAR 3 OF 文件 PROMPT '\-'
DEFINE BAR 4 OF 文件 PROMPT '退 出'
ON SELECTION BAR 4 OF 文件 oThisform.release
DEFINE POPUP 信息 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 信息 PROMPT '显示信息窗口' SKIP FOR .NOT. OTHISFORM.CONTAINER4.VISIBLE ;
KEY Alt+I , ''
ON SELECTION BAR 1 OF 信息 othisform.container4.label1.Click
ACTIVATE MENU RYLURU_MENU NOWAIT
*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -