ryluru_menu.prg

来自「一套难绝对能编译的人事系统,界面漂亮,构思新颖,」· PRG 代码 · 共 23 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 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
*