sysmenu.mpr

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

else
   if oTodayDiary.windowstate=1
    oTodayDiary.windowstate=0
   endif
    oTodayDiary.show
endif




*       *********************************************************
*       *                                                         
*       * _06R16A1HS  ON SELECTION BAR 2 OF POPUP 日记d           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:    6        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 日记d           
*       * Prompt:     昨日日记(Y)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1hs
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




*       *********************************************************
*       *                                                         
*       * _06R16A1I5  ON SELECTION BAR 3 OF POPUP 日记d           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:    7        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 日记d           
*       * Prompt:     查看日记(V)                                 
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1i5
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




*       *********************************************************
*       *                                                         
*       * _06R16A1KT  ON SELECTION BAR 1 OF POPUP 查看v           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:   45        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 查看v           
*       * Prompt:     格式工具栏(F)                               
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1kt
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



*       *********************************************************
*       *                                                         
*       * _06R16A1L1  ON SELECTION BAR 2 OF POPUP 查看v           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:   46        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 查看v           
*       * Prompt:     状态栏(S)                                   
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1l1
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



*       *********************************************************
*       *                                                         
*       * _06R16A1LU  ON SELECTION BAR 4 OF POPUP _00a0w4xsp      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:   56        
*       * Called By:  ON SELECTION BAR 4 OF POPUP _00a0w4xsp      
*       * Prompt:     初始化(I)                                   
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1lu
ans=messagebox("这将清除所有的数据！",1+48+256,"严重警告！")
if ans=2
  retu
else
  clos data
  do new_diary
  do new_alarm
  clos data
  messagebox("初始化完毕！",64,"初始化")
endif


*       *********************************************************
*       *                                                         
*       * _06R16A1MW  ON SELECTION BAR 1 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:   64        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 帮助h           
*       * Prompt:     帮助主题(C)                                 
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1mw
if !file('hhrj.hlp')
   messagebox("找不到帮助文件 hhrj.hlp，请与软件供应商联系！",64,"帮助")
else
   set help to hhrj.hlp
   help
endif


*       *********************************************************
*       *                                                         
*       * _06R16A1N6  ON SELECTION BAR 3 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:   67        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 帮助h           
*       * Prompt:     写给作者(W)                                 
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1n6
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)



*       *********************************************************
*       *                                                         
*       * _06R16A1ND  ON SELECTION BAR 4 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SYSMENU.MPR,            Record:   68        
*       * Called By:  ON SELECTION BAR 4 OF POPUP 帮助h           
*       * Prompt:     红虎工作室主页(P)                           
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06r16a1nd
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)