edit_menu.mpr

来自「别处找来的红虎日记源代码」· MPR 代码 · 共 42 行

*       *********************************************************
*       *                                                         
*       * 2000-08-30           EDIT_MENU.MPR            19:43:29  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 黄虎锋                                                  
*       *                                                         
*       * 版权(C) 2000 红虎工作室                           
*       * 张家港                                                  
*       * 张家港, 江苏  215631                                      
*       * 中国                                              
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "撤消(\<U)"
DEFINE BAR 2 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 3 OF 快捷菜单 PROMPT "剪切(\<T)"
DEFINE BAR 4 OF 快捷菜单 PROMPT "复制(\<C)"
DEFINE BAR 5 OF 快捷菜单 PROMPT "粘贴(\<P)"
DEFINE BAR 6 OF 快捷菜单 PROMPT "删除(\<D)"
DEFINE BAR 7 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 8 OF 快捷菜单 PROMPT "全选(\<A)"
ON SELECTION BAR 1 OF 快捷菜单 sys(1500,'_med_undo','_msm_edit')
ON SELECTION BAR 3 OF 快捷菜单 sys(1500,'_med_cut','_msm_edit')
ON SELECTION BAR 4 OF 快捷菜单 sys(1500,'_med_copy','_msm_edit')
ON SELECTION BAR 5 OF 快捷菜单 sys(1500,'_med_paste','_msm_edit')
ON SELECTION BAR 6 OF 快捷菜单 sys(1500,'_med_del'

ACTIVATE POPUP 快捷菜单