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 = {} 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 = {} 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