Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/coolwake/coolwake.exe/0/RCDATA/TTIMERFRM/TTIMERFRM.txt

Text File | 1997-04-16 | 19KB | 623 lines

object TimerFrm: TTimerFrm
  Left = 227
  Top = 103
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'CoolWake'
  ClientHeight = 460
  ClientWidth = 419
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = TimerFrmMnu
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 419
    Height = 1
    Align = alTop
    Shape = bsTopLine
  end
  object ControlsNbk: TTabbedNotebook
    Left = 8
    Top = 120
    Width = 401
    Height = 305
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    OnChange = ControlsNbkChange
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Alarm Settings'
      object Label4: TLabel
        Left = 32
        Top = 352
        Width = 30
        Height = 10
        Caption = 'Current:'
      end
      object SettingsGrp: TGroupBox
        Left = 0
        Top = 16
        Width = 385
        Height = 249
        Caption = 'Set Date/Time:'
        TabOrder = 0
        object Label2: TLabel
          Left = 16
          Top = 168
          Width = 41
          Height = 17
          Caption = 'Hour:'
        end
        object Label3: TLabel
          Left = 16
          Top = 216
          Width = 41
          Height = 17
          Caption = 'Minute:'
        end
        object MonthNamePnl: TPanel
          Left = 16
          Top = 24
          Width = 329
          Height = 21
          BevelInner = bvLowered
          BorderStyle = bsSingle
          TabOrder = 5
        end
        object DayCal: TCalendar
          Left = 16
          Top = 42
          Width = 337
          Height = 101
          Hint = 'Select day for alarm.'
          StartOfWeek = 0
          TabOrder = 0
          OnChange = SetCurrentStr
        end
        object MonthSel: TSpinButton
          Left = 344
          Top = 24
          Width = 25
          Height = 119
          Hint = 'Select Month for alarm.'
          DownGlyph.Data = {
            DE000000424DDE00000000000000360000002800000009000000060000000100
            180000000000A800000000000000000000000000000000000000007F7F007F7F
            007F7F007F7F007F7F007F7F007F7F007F7F00FE7F00007F7F007F7F007F7F00
            7F7F000000007F7F007F7F007F7F00FE7F00007F7F007F7F007F7F0000000000
            00000000007F7F007F7F00FE7F00007F7F007F7F000000000000000000000000
            000000007F7F00FE7F00007F7F00000000000000000000000000000000000000
            000000FE7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FE
            7F00}
          TabOrder = 1
          UpGlyph.Data = {
            DE000000424DDE00000000000000360000002800000009000000060000000100
            180000000000A800000000000000000000000000000000000000007F7F007F7F
            007F7F007F7F007F7F007F7F007F7F007F7F00FE7F00007F7F00000000000000
            000000000000000000000000000000FE7F00007F7F007F7F0000000000000000
            00000000000000007F7F00FE7F00007F7F007F7F007F7F000000000000000000
            007F7F007F7F00FE7F00007F7F007F7F007F7F007F7F000000007F7F007F7F00
            7F7F00FE7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FE
            7F00}
          OnDownClick = MonthSelDownClick
          OnUpClick = MonthSelUpClick
        end
        object HourBar: TTrackBar
          Left = 88
          Top = 152
          Width = 185
          Height = 45
          Hint = 'Select hour for alarm.'
          Max = 23
          Orientation = trHorizontal
          Frequency = 1
          Position = 0
          SelEnd = 0
          SelStart = 0
          TabOrder = 2
          TickMarks = tmBoth
          TickStyle = tsAuto
          OnChange = SetCurrentStr
        end
        object MinuteBar: TTrackBar
          Left = 88
          Top = 200
          Width = 273
          Height = 45
          Hint = 'Select minute for alarm.'
          Max = 59
          Orientation = trHorizontal
          Frequency = 2
          Position = 0
          SelEnd = 0
          SelStart = 0
          TabOrder = 3
          TickMarks = tmBoth
          TickStyle = tsAuto
          OnChange = SetCurrentStr
        end
        object DailyAlarmPnl: TPanel
          Left = 7
          Top = 18
          Width = 371
          Height = 130
          TabOrder = 4
          Visible = False
          object SplashImg: TImage
            Left = 7
            Top = 7
            Width = 247
            Height = 117
            Picture.Data = {<image001.bmp>}
            Stretch = True
          end
          object Label5: TLabel
            Left = 64
            Top = 12
            Width = 132
            Height = 24
            Caption = 'SHAREWARE'
            Color = clGreen
            Font.Color = clNavy
            Font.Height = -20
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentColor = False
            ParentFont = False
          end
          object Label7: TLabel
            Left = 195
            Top = 106
            Width = 59
            Height = 13
            Caption = 'Version 2.0'
            Color = clBlack
            Font.Color = clWhite
            Font.Height = -11
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentColor = False
            ParentFont = False
            Transparent = True
          end
          object Panel1: TPanel
            Left = 254
            Top = 7
            Width = 111
            Height = 117
            BevelInner = bvLowered
            Caption = 'Panel1'
            Font.Color = clWindowText
            Font.Height = -25
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            object Label6: TLabel
              Left = 16
              Top = 26
              Width = 81
              Height = 55
              Alignment = taCenter
              Caption = 'Daily Alarm'
              Font.Color = clWindowText
              Font.Height = -25
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
            end
          end
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Properties'
      object GroupBox2: TGroupBox
        Left = 8
        Top = 4
        Width = 185
        Height = 89
        Caption = 'CD Control'
        TabOrder = 0
        object Label1: TLabel
          Left = 64
          Top = 56
          Width = 57
          Height = 25
          Caption = 'Starting Track:'
        end
        object StartingTrackEdt: TEdit
          Left = 144
          Top = 56
          Width = 25
          Height = 21
          Hint = 'Track CD play will start at.'
          Enabled = False
          TabOrder = 1
          Text = '1'
        end
        object StartingTrackBar: TTrackBar
          Left = 8
          Top = 16
          Width = 169
          Height = 41
          Hint = 'Select starting track.'
          Enabled = False
          Min = 1
          Orientation = trHorizontal
          Frequency = 1
          Position = 1
          SelEnd = 0
          SelStart = 0
          TabOrder = 0
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = StartingTrackBarChange
        end
        object UseCDChk: TCheckBox
          Left = 104
          Top = 0
          Width = 65
          Height = 17
          Hint = 'Check on to use CD for alarm.'
          Caption = 'Use CD'
          TabOrder = 2
          OnClick = UseCDChkClick
        end
      end
      object CDPlayer: TMediaPlayer
        Left = 8
        Top = 64
        Width = 57
        Height = 25
        VisibleButtons = [btPlay, btStop]
        DeviceType = dtCDAudio
        Shareable = True
        Visible = False
        TabOrder = 1
        OnNotify = CDPlayerNotify
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 104
        Width = 185
        Height = 73
        Caption = 'Play .wav File:'
        TabOrder = 2
        object WavFileEdt: TEdit
          Left = 16
          Top = 16
          Width = 153
          Height = 21
          Hint = 'Path of .wav file to play for alarm.'
          Enabled = False
          TabOrder = 0
          OnChange = WavFileEdtChange
        end
        object FindWavBtn: TBitBtn
          Left = 96
          Top = 40
          Width = 75
          Height = 25
          Hint = 'Browse file system to locate .wav file.'
          Caption = 'Browse'
          Enabled = False
          TabOrder = 1
          OnClick = FindWavBtnClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
            07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
            0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
        end
        object UseWavChk: TCheckBox
          Left = 104
          Top = 0
          Width = 73
          Height = 17
          Hint = 'Check to use .wav file for alarm.'
          Caption = 'Use .wav'
          TabOrder = 2
          OnClick = UseWavChkClick
        end
      end
      object GroupBox4: TGroupBox
        Left = 208
        Top = 4
        Width = 185
        Height = 261
        Caption = 'Reminders:'
        TabOrder = 3
        object RemindersMmo: TMemo
          Left = 8
          Top = 16
          Width = 169
          Height = 233
          Hint = 'List of reminders to show on alarm.'
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object WavPlayer: TMediaPlayer
        Left = 24
        Top = 144
        Width = 57
        Height = 25
        Hint = 'Play/Stop .wav file.'
        Enabled = False
        VisibleButtons = [btPlay, btStop]
        TabOrder = 4
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 192
        Width = 185
        Height = 73
        Caption = 'Run .exe:'
        TabOrder = 5
        object ExeEdt: TEdit
          Left = 16
          Top = 16
          Width = 153
          Height = 21
          Hint = 'Path of .wav file to play for alarm.'
          Enabled = False
          TabOrder = 0
          OnChange = ExeEdtChange
        end
        object FindExeBtn: TBitBtn
          Left = 96
          Top = 40
          Width = 75
          Height = 25
          Hint = 'Browse file system to locate .wav file.'
          Caption = 'Browse'
          Enabled = False
          TabOrder = 1
          OnClick = FindExeBtnClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
            07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
            0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
        end
        object UseExeChk: TCheckBox
          Left = 104
          Top = 0
          Width = 73
          Height = 17
          Hint = 'Check to use .wav file for alarm.'
          Caption = 'Use .exe'
          TabOrder = 2
          OnClick = UseExeChkClick
        end
        object RunBtn: TBitBtn
          Left = 16
          Top = 40
          Width = 41
          Height = 25
          Hint = 'Browse file system to locate .wav file.'
          Enabled = False
          TabOrder = 3
          OnClick = RunBtnClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
            00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
            70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
            70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
            70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
            70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
            70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
            00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
          NumGlyphs = 2
        end
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 436
    Width = 419
    Height = 24
    Panels = <>
    SimplePanel = True
    SimpleText =
      'Use Calendar + Sliders to set Time.  Click "Set!" Button to Acti' +
      'vate.'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 401
    Height = 97
    Caption = 'Current Setting:'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 2
    object UseDailyChk: TCheckBox
      Left = 299
      Top = 0
      Width = 72
      Height = 14
      Hint = 'Check on to set a daily alarm.'
      Caption = 'Use Daily'
      TabOrder = 0
      OnClick = UseDailyChkClick
    end
    object SetBtn: TBitBtn
      Left = 302
      Top = 24
      Width = 75
      Height = 33
      Hint = 'Set Alarm ON.'
      Caption = 'Set !'
      TabOrder = 1
      OnClick = SetBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
        00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
        0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
        903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
        9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
        03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
        77037F3377777773337F088887707888870373F3337773F33373307880707088
        7033373FF737F73FF733337003303300733333777337FF777333333333000333
        33333333337773333333333333333333333333333333333333330000}
      NumGlyphs = 2
    end
    object CancelBtn: TBitBtn
      Left = 302
      Top = 64
      Width = 75
      Height = 21
      Hint = 'Set Alarm OFF.'
      Caption = 'Cancel'
      TabOrder = 2
      OnClick = CancelBtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object CurrentEdt: TEdit
      Left = 16
      Top = 24
      Width = 273
      Height = 41
      Hint = 'Current alarm setting.'
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      Text = 'CurrentEdt'
    end
    object PropertiesEdt: TEdit
      Left = 16
      Top = 64
      Width = 273
      Height = 21
      Hint = 'Current Alarm Properties'
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 4
      Text = 'Silent Alarm:  No Properties Set.'
    end
  end
  object Clock: TTimer
    Interval = 0
    OnTimer = ClockTimer
    Left = 360
    Top = 424
  end
  object OpenFileDlg: TOpenDialog
    FileEditStyle = fsEdit
    Title = 'Find File'
    Left = 384
    Top = 424
  end
  object TimerFrmMnu: TMainMenu
    Left = 328
    Top = 424
    object Alarm1: TMenuItem
      Caption = '&Alarm'
      ShortCut = 0
      object Set1: TMenuItem
        Caption = '&Set'
        ShortCut = 16467
        OnClick = SetBtnClick
      end
      object Cancel1: TMenuItem
        Caption = '&Cancel'
        ShortCut = 16451
        OnClick = CancelBtnClick
      end
      object Exit1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object NewCoolWake1: TMenuItem
        Caption = '&New CoolWake...'
        ShortCut = 16462
        OnClick = NewCoolWake1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit2: TMenuItem
        Caption = '&Exit'
        ShortCut = 16465
        OnClick = Exit2Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
end