sysmenu.mpr

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

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "日记(\<D)" COLOR SCHEME 3 ;
	NEGOTIATE LEFT ;
	KEY ALT+F, "" ;
	SKIP FOR !file('diary.dbf').or.!file('diary.fpt') ;
	MESSAGE "日记操作"
DEFINE PAD _06r16a1e5 OF _MSYSMENU PROMPT "提醒(\<N)" COLOR SCHEME 3 ;
	KEY ALT+N, "" ;
	SKIP FOR !file('alarm.dbf').or.!file('alarm.fpt') ;
	MESSAGE "提醒操作"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	MESSAGE "编辑文本或当前选定内容"
DEFINE PAD _06r16a1g2 OF _MSYSMENU PROMPT "查看(\<V)" COLOR SCHEME 3 ;
	KEY ALT+V, "" ;
	MESSAGE "查看及选项"
DEFINE PAD _06r16a1g6 OF _MSYSMENU PROMPT "工具(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, "" ;
	MESSAGE "辅助工具"
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "窗口(\<W)" COLOR SCHEME 3 ;
	NEGOTIATE RIGHT ;
	KEY ALT+W, "" ;
	MESSAGE "操作窗口"
DEFINE PAD _06r16a1gd OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, "" ;
	MESSAGE "帮助信息"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP 日记d
ON PAD _06r16a1e5 OF _MSYSMENU ACTIVATE POPUP 提醒n
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _06r16a1g2 OF _MSYSMENU ACTIVATE POPUP 查看v
ON PAD _06r16a1g6 OF _MSYSMENU ACTIVATE POPUP _00a0w4xsp
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
ON PAD _06r16a1gd OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 日记d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 日记d PROMPT "今日日记(\<T)" ;
	KEY CTRL+T, "Ctrl+T " ;
	MESSAGE "编辑今天的日记"
DEFINE BAR 2 OF 日记d PROMPT "昨日日记(\<Y)" ;
	MESSAGE "编辑昨日的日记"
DEFINE BAR 3 OF 日记d PROMPT "查看日记(\<V)" ;
	MESSAGE "查看/编辑全部日记"
DEFINE BAR 4 OF 日记d PROMPT "\-"
DEFINE BAR 5 OF 日记d PROMPT "查找文字(\<F)" ;
	KEY CTRL+F, "Ctrl+F" ;
	MESSAGE "查找日记中的指定文字"
DEFINE BAR 6 OF 日记d PROMPT "\-"
DEFINE BAR _mfi_close OF 日记d PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR _mfi_clall OF 日记d PROMPT "全部关闭" ;
	MESSAGE "全部关闭窗口"
DEFINE BAR _mfi_sp100 OF 日记d PROMPT "\-"
DEFINE BAR 10 OF 日记d PROMPT "退出(\<X)" ;
	KEY ALT+F4, "Alt+F4" ;
	MESSAGE "退出系统"
ON SELECTION BAR 1 OF 日记d ;
	DO _06r16a1hk ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 2 OF 日记d ;
	DO _06r16a1hs ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 3 OF 日记d ;
	DO _06r16a1i5 ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 5 OF 日记d do form 文字查找
ON SELECTION BAR 10 OF 日记d DO SHUTDOWN

DEFINE POPUP 提醒n MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 提醒n PROMPT "设置提醒(\<S)"
DEFINE BAR 2 OF 提醒n PROMPT "周期性提醒(\<Z)"
ON SELECTION BAR 1 OF 提醒n do form 设置提醒
ON SELECTION BAR 2 OF 提醒n do form 周期性提醒

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 _med_sp100 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_pstlk OF 编辑e PROMPT "选择性粘贴(\<S)..." ;
	MESSAGE "将剪贴板上的内容作为链接对象、嵌入对象、或其他类型的对象来粘贴"
DEFINE BAR _med_clear OF 编辑e PROMPT "清除(\<A)" ;
	MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR _med_sp200 OF 编辑e PROMPT "\-"
DEFINE BAR _med_slcta OF 编辑e PROMPT "全部选定(\<L)" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "选定当前窗口中的所有文本或数据项"
DEFINE BAR _med_sp300 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 BAR _med_sp400 OF 编辑e PROMPT "\-"
DEFINE BAR _med_insob OF 编辑e PROMPT "插入对象(\<I)..." ;
	MESSAGE "在通用类型字段中嵌入一个对象"
DEFINE BAR _med_obj OF 编辑e PROMPT "对象(\<O)..." ;
	MESSAGE "编辑选定对象"
DEFINE BAR _med_link OF 编辑e PROMPT "链接(\<K)..." ;
	MESSAGE "打开链接文件或更改链接"
DEFINE BAR _med_sp500 OF 编辑e PROMPT "\-"
DEFINE BAR _med_pref OF 编辑e PROMPT "属性(\<R)..." ;
	MESSAGE "设置编辑器属性"

DEFINE POPUP 查看v MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查看v PROMPT "格式工具栏(\<F)"
DEFINE BAR 2 OF 查看v PROMPT "状态栏(\<S)"
DEFINE BAR 3 OF 查看v PROMPT "\-"
DEFINE BAR 4 OF 查看v PROMPT "选项(\<O)..." ;
	MESSAGE "高级设置"
ON SELECTION BAR 1 OF 查看v ;
	DO _06r16a1kt ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 2 OF 查看v ;
	DO _06r16a1l1 ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 4 OF 查看v do form 选项

DEFINE POPUP _00a0w4xsp MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _00a0w4xsp PROMPT "数据备份(\<B)"
DEFINE BAR 2 OF _00a0w4xsp PROMPT "命令窗口(\<C)"
DEFINE BAR 3 OF _00a0w4xsp PROMPT "\-"
DEFINE BAR 4 OF _00a0w4xsp PROMPT "初始化(\<I)"
ON SELECTION BAR 1 OF _00a0w4xsp do form 数据备份
ON SELECTION BAR 2 OF _00a0w4xsp do form 命令窗口
ON SELECTION BAR 4 OF _00a0w4xsp ;
	DO _06r16a1lu ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")

DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mwi_arran OF _mwindow PROMPT "全部重排(\<A)" ;
	MESSAGE "用非重叠方式重排窗口"
DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "\-"
DEFINE BAR _mwi_rotat OF _mwindow PROMPT "循环(\<Y)" ;
	KEY CTRL+F1, "Ctrl+F1" ;
	MESSAGE "在所有打开的窗口间循环切换"

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题(\<C)" ;
	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 _06r16a1mw ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 3 OF 帮助h ;
	DO _06r16a1n6 ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 4 OF 帮助h ;
	DO _06r16a1nd ;
	IN LOCFILE("红虎日记\SYSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 SYSMENU?")
ON SELECTION BAR 6 OF 帮助h do form 关于


*       *********************************************************
*       *                                                         
*       * _06R16A1HK  ON SELECTION BAR 1 OF POPUP 日记d           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:    5        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 日记d           
*       * Prompt:     今日日记(T)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1hk
if !(TYPE("oTodayDiary")="O" AND !ISNULL(oTodayDiary))
    do form 今日日记 name oTodayDiary
*    _screen.windowstate=1