menu.mpr
来自「别处找来的红虎日记源代码」· MPR 代码 · 共 382 行 · 第 1/2 页
MPR
382 行
endif
oTodayDiary.show
endif
* *********************************************************
* *
* * _00A0VVPZX ON SELECTION BAR 2 OF POPUP 日常管理m
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 日常管理m
* * Prompt: 昨日日记(Y)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _00a0vvpzx
if isNull(oYesterDayDiary)=.T. or type("oYesterDayDiary")#"O"
do form 昨日日记 name oYesterDayDiary
* _screen.windowstate=1
else
if oYesterDayDiary.windowstate=1
oYesterDayDiary.windowstate=0
endif
oYesterDayDiary.show
endif
* *********************************************************
* *
* * _00A0VVQ05 ON SELECTION BAR 3 OF POPUP 日常管理m
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 日常管理m
* * Prompt: 查看日记(V)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _00a0vvq05
if isNull(oCalendar)=.T. or type("oCalendar")#"O"
do form 日历类 name oCalendar
* _screen.windowstate=1
else
if oCalendar.windowstate=1
oCalendar.windowstate=0
endif
oCalendar.show
endif
* *********************************************************
* *
* * _00A0VVQ1S ON SELECTION BAR 1 OF POPUP 查看v
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 35
* * Called By: ON SELECTION BAR 1 OF POPUP 查看v
* * Prompt: 格式工具栏(F)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _00a0vvq1s
IF TYPE("oFormatBar")="O" AND;
!ISNULL(oFormatBar) && 如果存在的话
* oFormatBar.show
release oFormatBar
public oFormatBar
set mark of bar 1 of 查看V TO .F.
else
*!* oFormatBar=createobj("格式",thisform)
oFormatBar=createobj("格式工具栏")
oFormatbar.dock(0)
oFormatbar.show
set mark of bar 1 of 查看V TO .T.
ENDIF
* *********************************************************
* *
* * _00A0VVQ1Z ON SELECTION BAR 2 OF POPUP 查看v
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 36
* * Called By: ON SELECTION BAR 2 OF POPUP 查看v
* * Prompt: 状态栏(S)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _00a0vvq1z
if isShowStatus=.T.
set status bar off
set mark of bar 2 of 查看v .f.
isShowStatus=.f.
else
set status bar on
set mark of bar 2 of 查看v .t.
isShowStatus=.T.
endif
* *********************************************************
* *
* * _00A0VVQ3K ON SELECTION BAR 1 OF POPUP 帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 53
* * Called By: ON SELECTION BAR 1 OF POPUP 帮助h
* * Prompt: 帮助主题(C)
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _00a0vvq3k
if !file('qtxm.hlp')
messagebox("找不到帮助文件 qtxm.hlp，请与软件供应商联系！",64,"帮助")
else
set help to qtxm.hlp
help
endif
* *********************************************************
* *
* * _00A0VVQ3S ON SELECTION BAR 3 OF POPUP 帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 56
* * Called By: ON SELECTION BAR 3 OF POPUP 帮助h
* * Prompt: 写给作者(W)
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _00a0vvq3s
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
return shellexecute(0,"open","mailto:hu_feng@163.net?subject=发自黄虎锋的软件","","",1)
* *********************************************************
* *
* * _00A0VVQ3Z ON SELECTION BAR 4 OF POPUP 帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 57
* * Called By: ON SELECTION BAR 4 OF POPUP 帮助h
* * Prompt: 红虎工作室主页(P)
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _00a0vvq3z
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
return shellexecute(0,"open","http://rts.163.net","","",1)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?