start.bak

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

set talk off
set esca off
set echo off
set safe off
set noti off
set dele on
set sysmenu to
SET CENTURY on
set date ansi
on shutdown do shutdown
*on error do error_hand
public isNoticeAlarm,isNormalShut
cCaption="红虎日记 - 红虎工作室"
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,cCaption)#0
_screen.caption=cCaption
  =messagebox("红虎日记程序已经运行，请查看任务栏！",16,"系统资源省着点用哦！ ^_^ ")
  public cinifile
  isNormalShut=.T.
  cIniFile=getenv('windir')+"\rtDiary.ini"
  return .f.
endif
_screen.autocenter=.t.
_screen.caption=cCaption

set classlib to myclasslib addi
public first_day,old_day,cur_pass,screen_pass,cWinDir,cTempDir,cIniFile,mFileList(8,2),nFiles
public nAlarm,Alarm_msg(1,9),max_alarm,alarm_id,nAlarmFormLeft,nAlarmFormTop,nGetAlarmTime            && 定义一些常量
public oCalendar,oTodayDiary,oYesterdayDiary,oFormatBar,oGZ,oGetAlarmMsg                        && 定义一些对象变量
public isFormatBarRun,isIni,isAutoSaveDiary,isShowStatus
public year_month,nDelayTime,nIntervalSaveDiary
public ToolBarShow,cBackImage,cBackColor,nWhichBack
public screen_left,screen_top,screen_width,screen_height,screen_state   && 主窗口的位置

** 初始这些必须初始的量 (默认值)**
cur_pass=""
nGetAlarmtime=60000
alarm_id=1
max_alarm=1
nDelayTime=0   && 提醒延迟时间
nIntervalSaveDiary=120000  && 日记保存间隔时间
isAutoSaveDiary=.T. && 是否自动保存日记
isShowStatus=.t. && 是否显示状态栏
first_day=1
old_day=31
cWinDir=getenv('WinDir')
cTempDir=getenv('Temp')
isNoticeAlarm=.T. && 关闭程序是否提醒
_screen.autocenter=.t.
screen_left=_screen.left
screen_top=_screen.top
screen_width=_screen.width
screen_height=_screen.height     
screen_state=_screen.windowstate
cBackImage=""
cBackColor=Rgb(255,255,255)
nWhichBack=3

do prog_ini  && 程序初始化
do SYSmenu.mpr

*!*	save to &cIniFile  && 保存默认值
*!*	oLogoForm.release
*!*	release oLogoForm

cIniFile=getenv('windir')+"\rtDiary.ini"
if file('&cIniFile')
   restore from &cIniFile addi
   isIni=.F.
else
   screen_pass="Tiger Huang"
   save to &cIniFile
   isIni=.T.
endif
do form 开始画面  && name oLogoForm

** 以下变量是必须初始化的值 ***
nAlarmFormLeft=0
nAlarmFormTop=0
ToolBarShow=""
do case
   case nWhichBack=1
      _screen.backcolor=-1
      _screen.picture=cBackImage
   case nWhichBack=2
      _screen.picture=""
      _screen.Backcolor=cbackcolor
   case nWhichBack=3
      _screen.picture=""
      _screen.backcolor=-1
endcase   
set mark of bar 2 of 查看v isShowStatus
set mark of bar 1 of 查看v isFormatBarRun
if isFormatBarRun=.T.
   oFormatBar=createobj("格式工具栏")
   oFormatBar.dock(0)
   oFormatBar.show
endif
if isShowStatus=.F.
   set status bar off
endif   
set message to "就绪"
read event