menu.mpr

别处找来的红虎日记源代码

*       *********************************************************
*       *                                                         
*       * 01/10/00              MENU.MPR                14:52:27  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 黄虎锋                                                  
*       *                                                         
*       * 版权(C) 2000 红虎工作室                           
*       * 张家港                                                  
*       * 张家港, 江苏  215631                                      
*       * 中国                                              
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _00a0vvpy3 OF _MSYSMENU PROMPT "日常管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _00a0vvpy8 OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _00a0vvpyb OF _MSYSMENU PROMPT "查看(\<V)" COLOR SCHEME 3 ;
	KEY ALT+V, ""
DEFINE PAD _00a0vvpye OF _MSYSMENU PROMPT "工具(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _00a0vvpyh OF _MSYSMENU PROMPT "窗口(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _00a0vvpyk OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _00a0vvpy3 OF _MSYSMENU ACTIVATE POPUP 日常管理m
ON PAD _00a0vvpy8 OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _00a0vvpyb OF _MSYSMENU ACTIVATE POPUP 查看v
ON PAD _00a0vvpye OF _MSYSMENU ACTIVATE POPUP 工具t
ON PAD _00a0vvpyh OF _MSYSMENU ACTIVATE POPUP 窗口w
ON PAD _00a0vvpyk OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 日常管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 日常管理m PROMPT "今日日记(\<T)" ;
	KEY CTRL+T, "Ctrl+T" ;
	MESSAGE "编辑今天的日记"
DEFINE BAR 2 OF 日常管理m PROMPT "昨日日记(\<Y)" ;
	KEY CTRL+Y, "Ctrl+Y" ;
	MESSAGE "编辑昨日的日记"
DEFINE BAR 3 OF 日常管理m PROMPT "查看日记(\<V)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "查看/编辑全部日记"
DEFINE BAR 4 OF 日常管理m PROMPT "查找文字(\<F)" ;
	KEY CTRL+F, "Ctrl+F" ;
	MESSAGE "查找日记中的指定文字"
DEFINE BAR 5 OF 日常管理m PROMPT "\-"
DEFINE BAR 6 OF 日常管理m PROMPT "设置提醒(\<S)"
DEFINE BAR 7 OF 日常管理m PROMPT "周期性提醒(\<Z)"
DEFINE BAR 8 OF 日常管理m PROMPT "\-"
DEFINE BAR 9 OF 日常管理m PROMPT "退出(\<X)" ;
	KEY ALT+F4, "Alt+F4" ;
	MESSAGE "退出前厅小秘系统"
ON SELECTION BAR 1 OF 日常管理m ;
	DO _00a0vvpzq ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 2 OF 日常管理m ;
	DO _00a0vvpzx ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 3 OF 日常管理m ;
	DO _00a0vvq05 ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 4 OF 日常管理m do form 文字查找
ON SELECTION BAR 6 OF 日常管理m do form 设置提醒
ON SELECTION BAR 7 OF 日常管理m do form 周期性提醒
ON SELECTION BAR 9 OF 日常管理m do shutdown

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MED_UNDO OF 编辑e PROMPT "撤消(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一步的操作"
DEFINE BAR _med_redo OF 编辑e PROMPT "重做(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR 3 OF 编辑e PROMPT "\-"
DEFINE BAR _med_cut OF 编辑e PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "删除被选取的部分，并移到剪贴板"
DEFINE BAR _med_copy OF 编辑e PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "复制被选取的部分，并移到剪贴板"
DEFINE BAR _med_paste OF 编辑e PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "从剪贴板上复制内容插入光标处"
DEFINE BAR _med_clear OF 编辑e PROMPT "清除(\<A)" ;
	MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR 8 OF 编辑e PROMPT "\-"
DEFINE BAR _MED_SLCTA OF 编辑e PROMPT "全选(\<A)" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "对操作区全部选取"
DEFINE BAR 10 OF 编辑e PROMPT "\-"
DEFINE BAR _med_find OF 编辑e PROMPT "查找(\<F)..." ;
	KEY CTRL+F, "Ctrl+F" ;
	MESSAGE "搜索指定文本"
DEFINE BAR _med_finda OF 编辑e PROMPT "再次查找(\<G)" ;
	KEY CTRL+G, "Ctrl+G" ;
	MESSAGE "重复上一次查找"
DEFINE BAR _med_repl OF 编辑e PROMPT "替换(\<E)..." ;
	KEY CTRL+L, "Ctrl+L" ;
	MESSAGE "用其他文本替换指定文本"

DEFINE POPUP 查看v MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查看v PROMPT "格式工具栏(\<F)"
DEFINE BAR 2 OF 查看v PROMPT "状态栏(\<S)"
ON SELECTION BAR 1 OF 查看v ;
	DO _00a0vvq1s ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 2 OF 查看v ;
	DO _00a0vvq1z ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")

DEFINE POPUP 工具t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工具t PROMPT "数据备份(\<B)"
DEFINE BAR 2 OF 工具t PROMPT "命令窗口(\<C)"
DEFINE BAR 3 OF 工具t PROMPT "\-"
DEFINE BAR 4 OF 工具t PROMPT "选项(\<O)..." ;
	MESSAGE "前厅小秘的高级设置"
ON SELECTION BAR 1 OF 工具t do form 数据备份
ON SELECTION BAR 2 OF 工具t do form 命令窗口
ON SELECTION BAR 4 OF 工具t do form 选项

DEFINE POPUP 窗口w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MWI_ARRAN OF 窗口w PROMPT "全部重排(\<A)" ;
	MESSAGE "全部重排所有的窗口"
DEFINE BAR 2 OF 窗口w PROMPT "\-"
DEFINE BAR _mwi_rotat OF 窗口w PROMPT "循环(\<Y)" ;
	KEY CTRL+F1, "Ctrl+F1" ;
	MESSAGE "在所有打开的窗口间循环切换"
DEFINE BAR _MFI_CLOSE OF 窗口w PROMPT "关闭(\<C)" ;
	KEY CTRL+F4, "Ctrl+F4" ;
	MESSAGE "关闭当前激活的窗口"

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题(\<C)" ;
	KEY F1, "F1" ;
	MESSAGE "显示前厅小秘的帮助主题"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "写给作者(\<W)" ;
	MESSAGE "通过电子邮件给作者发信"
DEFINE BAR 4 OF 帮助h PROMPT "红虎工作室主页(\<P)" ;
	MESSAGE "通过 WWW 网访问红虎工作室主页"
DEFINE BAR 5 OF 帮助h PROMPT "\-"
DEFINE BAR 6 OF 帮助h PROMPT "关于(\<A)..." ;
	MESSAGE "关于前厅小秘的版权信息"
ON SELECTION BAR 1 OF 帮助h ;
	DO _00a0vvq3k ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 3 OF 帮助h ;
	DO _00a0vvq3s ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 4 OF 帮助h ;
	DO _00a0vvq3z ;
	IN LOCFILE("红虎日记\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
ON SELECTION BAR 6 OF 帮助h do form 关于


*       *********************************************************
*       *                                                         
*       * _00A0VVPZQ  ON SELECTION BAR 1 OF POPUP 日常管理m       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 日常管理m       
*       * Prompt:     今日日记(T)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00a0vvpzq
if !(TYPE("oTodayDiary")="O" AND !ISNULL(oTodayDiary))
    do form 今日日记 name oTodayDiary
*    _screen.windowstate=1
else
   if oTodayDiary.windowstate=1
    oTodayDiary.windowstate=0