unitmain.dfm

提示每天计划事件；显示倒计时；可输入保存当前或者往下日子的计划；等等

object MainForm: TMainForm
  Left = 88
  Top = 143
  BorderStyle = bsNone
  Caption = 'u'
  ClientHeight = 166
  ClientWidth = 363
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MemoryBox: TGroupBox
    Left = 0
    Top = 0
    Width = 363
    Height = 129
    Align = alTop
    Caption = ' '#22791' '#24536' '#24405' '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object MemoText: TRichEdit
      Left = 2
      Top = 21
      Width = 359
      Height = 106
      Align = alClient
      BorderStyle = bsNone
      Color = clScrollBar
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #40657#20307
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu
      ScrollBars = ssVertical
      TabOrder = 0
      OnKeyDown = MemoTextKeyDown
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 129
    Width = 363
    Height = 37
    Align = alClient
    PopupMenu = PopupMenu
    TabOrder = 1
    object WeekLabel: TLabel
      Left = 110
      Top = 20
      Width = 34
      Height = 13
      Caption = 'Week'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object FromTodayLabel: TLabel
      Left = 111
      Top = 5
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object button_Today: TButton
      Left = 3
      Top = 6
      Width = 38
      Height = 25
      Caption = 'Today'
      TabOrder = 0
      OnClick = button_TodayClick
    end
    object button_Next: TButton
      Left = 259
      Top = 7
      Width = 41
      Height = 25
      Caption = 'Next'
      TabOrder = 1
      OnClick = button_NextClick
    end
    object button_Back: TButton
      Left = 214
      Top = 7
      Width = 41
      Height = 25
      Caption = 'Back'
      TabOrder = 2
      OnClick = button_BackClick
    end
    object DateText: TStaticText
      Left = 46
      Top = 9
      Width = 33
      Height = 20
      Caption = 'Date'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object button_Save: TButton
      Left = 168
      Top = 7
      Width = 41
      Height = 25
      Caption = 'Save'
      TabOrder = 4
      OnClick = button_SaveClick
    end
    object button_Exit: TButton
      Left = 312
      Top = 8
      Width = 41
      Height = 25
      Caption = 'Exit'
      TabOrder = 5
      OnClick = button_ExitClick
    end
  end
  object ADOConnection: TADOConnection
    Left = 72
    Top = 88
  end
  object ADO: TADOQuery
    Parameters = <>
    Left = 120
    Top = 88
  end
  object PopupMenu: TPopupMenu
    Left = 216
    Top = 88
    object Hide1: TMenuItem
      Caption = 'Do'
      object Hid1: TMenuItem
        Caption = 'Hide'
        object N10s1: TMenuItem
          Caption = '10s'
          OnClick = N10s1Click
        end
        object N20s1: TMenuItem
          Caption = '200s'
          OnClick = N20s1Click
        end
        object N30m1: TMenuItem
          Caption = '3000s'
          OnClick = N30m1Click
        end
      end
      object AutoStart1: TMenuItem
        Caption = 'AutoStart'
        OnClick = AutoStart1Click
      end
      object AboutMe1: TMenuItem
        Caption = 'AboutMe'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
  end
  object Timer2: TTimer
    Interval = 3600000
    OnTimer = Timer2Timer
    Left = 256
    Top = 88
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 168
    Top = 88
  end
end