object UD_Clock: TUD_Clock
  Left = 328
  Top = 264
  HelpContext = -1
  BorderStyle = bsDialog
  Caption = 'Clock & Alarm timer properties'
  ClientHeight = 250
  ClientWidth = 500
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object shFontColor: TShape
    Left = 312
    Top = 48
    Width = 16
    Height = 16
    Shape = stEllipse
  end
  object shFaceColor: TShape
    Left = 156
    Top = 48
    Width = 16
    Height = 16
    Shape = stEllipse
  end
  object Label1: TLabel
    Left = 400
    Top = 80
    Width = 65
    Height = 13
    AutoSize = False
    Caption = 'Date Format'
  end
  object ckShowAmPm: TCheckBox
    Left = 188
    Top = 12
    Width = 89
    Height = 17
    Hint = 
      'If checked, designate twelve-hour time as morning or afternoon/e' +
      'vening.'
    Caption = 'Show Am/Pm'
    TabOrder = 2
    OnClick = CheckBoxClick
  end
  object ckTwelveHour: TCheckBox
    Left = 96
    Top = 12
    Width = 85
    Height = 17
    Hint = 'If clear, time is displayed in 24-hour format.'
    Caption = 'Twelve Hour'
    TabOrder = 1
    OnClick = CheckBoxClick
  end
  object ckShowSeconds: TCheckBox
    Left = 284
    Top = 12
    Width = 93
    Height = 17
    Hint = 'If checked, show seconds as well as hours and minutes.'
    Caption = 'Show Seconds'
    TabOrder = 3
    OnClick = CheckBoxClick
  end
  object btFaceColor: TButton
    Left = 44
    Top = 44
    Width = 104
    Height = 24
    Hint = 'Click to choose the colour of the clock face.'
    Caption = 'Face Colour ...'
    TabOrder = 5
    OnClick = buttonClick
  end
  object btFontColor: TButton
    Left = 200
    Top = 44
    Width = 104
    Height = 24
    Hint = 'Click to choose the colour of the font or clock hands.'
    Caption = 'Font Colour ...'
    TabOrder = 6
    OnClick = buttonClick
  end
  object btSetDateTime: TButton
    Left = 352
    Top = 44
    Width = 104
    Height = 24
    Hint = 'Click to change the computer'#39's current time and date settings.'
    Caption = 'Set Date/Time ...'
    TabOrder = 7
    OnClick = buttonClick
  end
  object AlarmGroup: TGroupBox
    Left = 4
    Top = 100
    Width = 492
    Height = 144
    Hint = 'Enter alarm requirements'
    Caption = ' Alarm Timer  '
    TabOrder = 10
    object lbAlarmIndex: TLabel
      Left = 364
      Top = 36
      Width = 51
      Height = 13
      Caption = '123 of 234'
    end
    object Label2: TLabel
      Left = 334
      Top = 36
      Width = 31
      Height = 13
      AutoSize = False
      Caption = 'Alarm'
    end
    object Label6: TLabel
      Left = 50
      Top = 18
      Width = 43
      Height = 13
      AutoSize = False
      Caption = 'Month'
    end
    object Label7: TLabel
      Left = 132
      Top = 18
      Width = 29
      Height = 13
      AutoSize = False
      Caption = 'Year'
    end
    object Label8: TLabel
      Left = 228
      Top = 18
      Width = 41
      Height = 13
      AutoSize = False
      Caption = 'Repeat'
    end
    object Label9: TLabel
      Left = 8
      Top = 66
      Width = 49
      Height = 13
      AutoSize = False
      Caption = 'Message'
    end
    object lbWeekDay: TLabel
      Left = 8
      Top = 18
      Width = 21
      Height = 13
      Caption = 'Mon'
    end
    object Label3: TLabel
      Left = 168
      Top = 18
      Width = 29
      Height = 13
      AutoSize = False
      Caption = 'Hour'
    end
    object Label4: TLabel
      Left = 198
      Top = 18
      Width = 23
      Height = 13
      AutoSize = False
      Caption = 'Min'
    end
    object edDay: TEdit
      Left = 8
      Top = 32
      Width = 40
      Height = 21
      TabOrder = 2
      Text = '28/31'
      OnChange = NumericChange
    end
    object edYear: TEdit
      Left = 132
      Top = 32
      Width = 34
      Height = 21
      TabOrder = 4
      Text = '2000'
      OnChange = NumericChange
      OnEnter = edYearEnter
    end
    object cmRepeat: TComboBox
      Left = 228
      Top = 32
      Width = 74
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'None'
        'Hourly'
        'Daily'
        'Weekly'
        'Fortnightly'
        'Monthly'
        'Yearly')
      TabOrder = 7
    end
    object edReminder: TEdit
      Left = 8
      Top = 80
      Width = 474
      Height = 21
      Hint = 'Enter a message to be displayed when this alarm occurs.'
      TabOrder = 8
    end
    object cmMonth: TComboBox
      Left = 50
      Top = 32
      Width = 80
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'January'
        'February'
        'March'
        'April'
        'May'
        'June'
        'July'
        'August'
        'September'
        'October'
        'November'
        'December')
      TabOrder = 3
      OnChange = NumericChange
      OnExit = NumericChange
    end
    object btNewAlarm: TButton
      Left = 426
      Top = 18
      Width = 56
      Height = 24
      Hint = 'Click to create a new alarm.'
      Caption = 'New'
      TabOrder = 0
      OnClick = buttonClick
    end
    object btDeleteAlarm: TButton
      Left = 426
      Top = 46
      Width = 56
      Height = 24
      Hint = 'Click to delete this alarm.'
      Caption = 'Delete'
      TabOrder = 1
      OnClick = buttonClick
    end
    object btTest: TButton
      Left = 382
      Top = 110
      Width = 100
      Height = 24
      Hint = 
        'Click to view the message as it will be displayed when the alarm' +
        ' occurs.'
      Caption = 'Test'
      TabOrder = 9
      OnClick = buttonClick
    end
    object edHour: TEdit
      Left = 168
      Top = 32
      Width = 28
      Height = 21
      TabOrder = 5
      Text = '00'
      OnChange = NumericChange
      OnExit = edTimeExit
    end
    object edMin: TEdit
      Left = 198
      Top = 32
      Width = 28
      Height = 21
      TabOrder = 6
      Text = '00'
      OnChange = NumericChange
      OnExit = edTimeExit
    end
    object btSaveAlarms: TButton
      Left = 168
      Top = 110
      Width = 140
      Height = 24
      Hint = 'Click to save these alarm settings immediately.'
      Caption = 'Save alarm data NOW'
      TabOrder = 10
      OnClick = buttonClick
    end
    object udAlarmIndex: TUpDown
      Left = 304
      Top = 24
      Width = 18
      Height = 36
      Min = 0
      Max = 1000
      Position = 1000
      TabOrder = 11
      Wrap = False
      OnClick = udAlarmIndexClick
    end
    object ckSaveAtMidnight: TCheckBox
      Left = 8
      Top = 114
      Width = 113
      Height = 17
      Hint = 
        'If checked, alarm data will be saved and all registry data expor' +
        'ted to a file.'
      Caption = 'Save at midnight'
      TabOrder = 12
      OnClick = CheckBoxClick
    end
  end
  object ckClockVisible: TCheckBox
    Left = 4
    Top = 12
    Width = 85
    Height = 17
    Hint = 'If checked, the launch window clock will be visible.'
    Caption = 'Clock Visible'
    TabOrder = 0
    OnClick = CheckBoxClick
  end
  object ckSecondsEnabled: TCheckBox
    Left = 200
    Top = 98
    Width = 101
    Height = 17
    Hint = 
      'Unless checked, the alarm timer will use an interval of one minu' +
      'te.'
    Caption = 'Enable Seconds'
    TabOrder = 9
    OnClick = CheckBoxClick
  end
  object ckAlarmEnabled: TCheckBox
    Left = 88
    Top = 98
    Width = 89
    Height = 17
    Hint = 'Unless checked, the alarm system will be inactive.'
    Caption = 'Enable Alarms'
    TabOrder = 8
    OnClick = CheckBoxClick
  end
  object btOK: TButton
    Left = 68
    Top = 76
    Width = 60
    Height = 21
    Caption = 'OK'
    Default = True
    TabOrder = 12
    OnClick = buttonClick
  end
  object btCancel: TButton
    Left = 4
    Top = 76
    Width = 60
    Height = 21
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 11
    OnClick = buttonClick
  end
  object ckShowDateAsHint: TCheckBox
    Left = 384
    Top = 12
    Width = 113
    Height = 17
    Hint = 'If checked, today'#39's date will be displayed as a tooltip.'
    Caption = 'Show Date as Hint'
    TabOrder = 4
    OnClick = CheckBoxClick
  end
  object edDateFormat: TEdit
    Left = 400
    Top = 94
    Width = 88
    Height = 21
    Hint = 'ww=long weekday, mm=long month, yyyy=long year, $=US, %=posh '
    CharCase = ecLowerCase
    TabOrder = 13
    Text = 'ww mm yyyy $%'
    OnChange = edDateFormatChange
    OnEnter = edDateFormatEnter
    OnExit = edDateFormatExit
  end
end