The Best of Windows 95.com 1996 December/WIN95_DEC_1996_4.ISO/pim/krnlstnt.exe/ULTIMATE.EXE/0/RCDATA/TALARM/TALARM.txt

Text File | 1996-12-15 | 5KB | 222 lines

object Alarm: TAlarm
  Left = 8
  Top = 95
  BorderStyle = bsDialog
  Caption = 'Alarm'
  ClientHeight = 181
  ClientWidth = 618
  Color = clTeal
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  OnMouseDown = FormMouseDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object AlrmLabel: TLabel
    Left = 6
    Top = 44
    Width = 607
    Height = 15
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
  end
  object AlrmCancelBtn: TButton
    Left = 482
    Top = 4
    Width = 131
    Height = 33
    Cancel = True
    Caption = '&Cancel Alarm'
    TabOrder = 0
    OnClick = AlrmCancelBtnClick
    OnMouseDown = FormMouseDown
  end
  object AlarmList: TListBox
    Left = 4
    Top = 60
    Width = 609
    Height = 63
    TabStop = False
    ExtendedSelect = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Pitch = fpFixed
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    Sorted = True
    TabOrder = 5
    OnClick = AlarmListClick
    OnMouseDown = FormMouseDown
  end
  object MinuteBox: TGroupBox
    Left = 4
    Top = 132
    Width = 233
    Height = 43
    Caption = 'Minutes until alarm sounds again'
    Color = clLime
    ParentColor = False
    TabOrder = 2
    object OneMinBtn: TButton
      Left = 14
      Top = 16
      Width = 25
      Height = 23
      Caption = '1'
      TabOrder = 0
      OnClick = AlrmCancelBtnClick
    end
    object FiveMinBtn: TButton
      Left = 50
      Top = 16
      Width = 25
      Height = 23
      Caption = '5'
      TabOrder = 1
      OnClick = AlrmCancelBtnClick
    end
    object TenMinBtn: TButton
      Left = 86
      Top = 16
      Width = 25
      Height = 23
      Caption = '10'
      TabOrder = 2
      OnClick = AlrmCancelBtnClick
    end
    object FifteenMinBtn: TButton
      Left = 122
      Top = 16
      Width = 25
      Height = 23
      Caption = '15'
      TabOrder = 3
      OnClick = AlrmCancelBtnClick
    end
    object ThirtyMinBtn: TButton
      Left = 158
      Top = 16
      Width = 25
      Height = 23
      Caption = '30'
      TabOrder = 4
      OnClick = AlrmCancelBtnClick
    end
    object FortyFiveMinBtn: TButton
      Left = 194
      Top = 16
      Width = 25
      Height = 23
      Caption = '45'
      TabOrder = 5
      OnClick = AlrmCancelBtnClick
    end
  end
  object HourBox: TGroupBox
    Left = 242
    Top = 132
    Width = 219
    Height = 43
    Caption = 'Hours until alarm sounds again'
    Color = clLime
    ParentColor = False
    TabOrder = 3
    object OneHrBtn: TButton
      Left = 24
      Top = 16
      Width = 27
      Height = 23
      Caption = '1'
      TabOrder = 0
      OnClick = AlrmCancelBtnClick
    end
    object TwoHrBtn: TButton
      Left = 72
      Top = 16
      Width = 27
      Height = 23
      Caption = '2'
      TabOrder = 1
      OnClick = AlrmCancelBtnClick
    end
    object ThreeHrBtn: TButton
      Left = 120
      Top = 16
      Width = 27
      Height = 23
      Caption = '3'
      TabOrder = 2
      OnClick = AlrmCancelBtnClick
    end
    object FourHrBtn: TButton
      Left = 168
      Top = 16
      Width = 27
      Height = 23
      Caption = '4'
      TabOrder = 3
      OnClick = AlrmCancelBtnClick
    end
  end
  object TimeBox: TGroupBox
    Left = 466
    Top = 132
    Width = 147
    Height = 43
    Caption = 'Alarm to be reset for'
    Color = clLime
    ParentColor = False
    TabOrder = 1
    object AlrmTimeInput: TMaskEdit
      Left = 36
      Top = 16
      Width = 77
      Height = 23
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpFixed
      Font.Style = []
      MaxLength = 8
      ParentFont = False
      TabOrder = 0
      OnEnter = AlrmTimeInputEnter
      OnExit = AlrmTimeInputExit
      OnKeyDown = AlrmTimeInputKeyDown
      OnMouseDown = FormMouseDown
    end
  end
  object AlrmOKBtn: TButton
    Left = 336
    Top = 4
    Width = 133
    Height = 33
    Caption = 'Accept New Time'
    TabOrder = 4
    OnClick = AlrmCancelBtnClick
    OnMouseDown = FormMouseDown
  end
  object MediaPlayer1: TMediaPlayer
    Left = 28
    Top = 0
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 6
    OnNotify = MediaPlayer1Notify
  end
  object AlrmTimer: TTimer
    Interval = 100
    OnTimer = AlrmTimerTimer
  end
end