menu.mpr

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

   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:[e-mail]?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)