alarm.dfm

从“闹钟时”下拉框选择要闹铃的小时(0-23)

object AlarmClock: TAlarmClock
  Left = 241
  Top = 127
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '快乐小闹钟 V1.06'
  ClientHeight = 132
  ClientWidth = 397
  Color = clCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000666666660000000000000000000000000000000000000000000000000
    0000000000000000000000000000060000000000000000000000000000600000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000EEEEEEEEEEEEEEEEEE0000000000000
    0EEEEEEEEEEEEEEEEEE00000000000000EEEEEE444444EEEEEE0000000000000
    0EEEEE4EEEEEE4EEEEE00000000000000EEEEEEEEEEEEEEEEEE0001100000000
    0EEEEEEEE44EEEEEEEE00111100000000EEEEEEEE44EEEEEEEE0011110000000
    0EEEEEEEE44EEEEEEEE00011000000000EEEEEEEEEEEEEEEEEE0000000000000
    0EE44EE44EE44EE44EE00000000000000EEE4444EEEE4444EEE0001100000000
    0EEEE44EEEEEE44EEEE00111100000000EEEEEEEEEEEEEEEEEE0011110000000
    0EEEEEEEEEEEEEEEEEE000110000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000600
    0000000000000000000000000060000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000600000000000
    600000000000000000000600000006660000000000000000000000666000FFFF
    FFFFF000001FF000001FFE0000FFFF1FE3FF8000000180000001800000018000
    0001800000018000000180000001800000018000000180000001800000018000
    0001800000018000000180000001800000018000000180000001800000018000
    00018000000180000001FF1FE3FFFE3FF1FFFC7FF87FF0FFFC3F81FFFE07}
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMinimized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 8
    Top = 16
    Width = 89
    Height = 25
    AutoSize = False
    Caption = '闹钟时刻:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 56
    Width = 89
    Height = 25
    AutoSize = False
    Caption = '现在时刻:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 120
    Top = 56
    Width = 280
    Height = 25
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 120
    Top = 16
    Width = 280
    Height = 25
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ComboBox1: TComboBox
    Left = 107
    Top = 98
    Width = 75
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clTeal
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 0
    Text = '闹钟时'
    Items.Strings = (
      '不设置'
      '0时'
      '1时'
      '2时'
      '3时'
      '4时'
      '5时'
      '6时'
      '7时'
      '8时'
      '9时'
      '10时'
      '11时'
      '12时'
      '13时'
      '14时'
      '15时'
      '16时'
      '17时'
      '18时'
      '19时'
      '20时'
      '21时'
      '22时'
      '23时')
  end
  object ComboBox2: TComboBox
    Left = 215
    Top = 98
    Width = 75
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clTeal
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 1
    Text = '闹钟分'
    Items.Strings = (
      '不设置'
      '0分钟'
      '5分'
      '10分'
      '15分'
      '20分'
      '25分'
      '30分'
      '35分'
      '40分'
      '45分'
      '50分'
      '55分')
  end
  object Timer1: TTimer
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 192
    Top = 56
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 120
    Top = 64
  end
  object MainMenu1: TMainMenu
    Left = 416
    Top = 112
    object N1: TMenuItem
      Caption = '闹铃'
      object N3: TMenuItem
        Caption = '关闭闹钟'
        OnClick = N3Click
      end
    end
    object N4: TMenuItem
      Caption = '关于闹钟'
      object N2: TMenuItem
        Caption = '帮助文件'
        OnClick = N2Click
      end
      object About1: TMenuItem
        Caption = '关于本软件'
        OnClick = About1Click
      end
    end
  end
  object Timer3: TTimer
    OnTimer = Timer3Timer
    Left = 40
    Top = 96
  end
  object OpenDialog1: TOpenDialog
    Left = 400
    Top = 8
  end
end