object ReminderDlg: TReminderDlg Left = 117 Top = 125 ActiveControl = DateEdit1 BorderStyle = bsDialog Caption = 'Add New Reminder' ClientHeight = 449 ClientWidth = 632 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] KeyPreview = True Position = poScreenCenter Scaled = False ShowHint = True OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object Bevel1: TBevel Left = 6 Top = 8 Width = 624 Height = 401 Shape = bsFrame IsControl = True end object Label1: TLabel Left = 14 Top = 24 Width = 99 Height = 14 Caption = 'Reminder Start Date:' end object Label5: TLabel Left = 14 Top = 67 Width = 70 Height = 14 Caption = 'Reminder Title:' end object Label4: TLabel Left = 14 Top = 113 Width = 83 Height = 14 Caption = 'Reminder Details:' end object Label7: TLabel Left = 141 Top = 11 Width = 57 Height = 30 AutoSize = False Caption = 'Reminder Time:' WordWrap = True end object Label12: TLabel Left = 232 Top = 116 Width = 37 Height = 14 Caption = 'Repeat:' end object Label13: TLabel Left = 341 Top = 116 Width = 64 Height = 14 Caption = 'times (0-999)' end object Label14: TLabel Left = 232 Top = 144 Width = 61 Height = 14 Caption = 'Expire After:' end object DateEdit1: TDateEdit Left = 14 Top = 39 Width = 119 Height = 22 Hint = 'Click on the '#39'...'#39' button to select a date from the calendar' DateFormat = 'mm/dd/yyyy' Date = '__/__/____' MaxLength = 10 TabOrder = 0 OnChange = DateEdit1Change end object Edit1: TEdit Left = 14 Top = 81 Width = 209 Height = 24 Hint = 'Type in the Reminder Title' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnChange = Edit1Change end object Memo1: TMemo Left = 14 Top = 128 Width = 209 Height = 273 Hint = 'Type in the detailed reminder description' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 3 end object RadioGroup1: TRadioGroup Left = 232 Top = 13 Width = 115 Height = 97 Hint = 'Reminder Frequency' Caption = 'Frequency:' ItemIndex = 0 Items.Strings = ( 'Once' 'Daily' 'Weekly' 'Bi-Weekly' 'Every 4 Weeks' 'Monthly') TabOrder = 4 OnClick = RadioGroup1Click end object GroupBox1: TGroupBox Left = 424 Top = 13 Width = 201 Height = 220 Caption = 'Advance Warning:' TabOrder = 10 object Label2: TLabel Left = 8 Top = 42 Width = 26 Height = 14 Caption = 'Warn' end object Label3: TLabel Left = 88 Top = 42 Width = 32 Height = 14 Caption = 'day(s)' end object Label6: TLabel Left = 17 Top = 66 Width = 18 Height = 14 Caption = 'and' end object Label8: TLabel Left = 88 Top = 66 Width = 92 Height = 14 Caption = 'hour(s) in advance' end object CheckBox1: TCheckBox Left = 8 Top = 18 Width = 169 Height = 17 Caption = 'Active Advance Warning' TabOrder = 0 end object Edit2: TEdit Left = 42 Top = 40 Width = 41 Height = 22 Hint = 'Days before the reminder Date when the first Advanced Warning is' + ' issued' MaxLength = 3 TabOrder = 1 OnKeyPress = Edit2KeyPress end object Edit4: TEdit Left = 42 Top = 64 Width = 41 Height = 22 Hint = 'Hours before the reminder Date/Time when the first Advanced Warn' + 'ing is issued' MaxLength = 2 TabOrder = 2 OnExit = Edit4Exit OnKeyPress = Edit2KeyPress end object RadioGroup3: TRadioGroup Left = 8 Top = 92 Width = 185 Height = 117 Caption = 'Advance Warning Frequency' ItemIndex = 1 Items.Strings = ( 'Once' 'Once A Day' 'Once An Hour' 'Every 30 Minutes' 'Every 5 Minutes') TabOrder = 3 end end object RadioGroup2: TRadioGroup Left = 232 Top = 168 Width = 185 Height = 65 Hint = 'Reminder Options specify what happens after the reminder Expires' Caption = 'Reminder Options:' ItemIndex = 0 Items.Strings = ( 'Reschedule Every Year' 'Keep After Expires' 'Auto-Delete After Expires') TabOrder = 9 end object MaskEdit1: TMaskEdit Left = 142 Top = 39 Width = 49 Height = 22 Hint = 'Enter the time in 24-hour clock' EditMask = '!90:00;1;_' MaxLength = 5 TabOrder = 1 Text = '09:00' end object GroupBox2: TGroupBox Left = 232 Top = 235 Width = 393 Height = 166 Caption = 'Application Launch' TabOrder = 11 object Label9: TLabel Left = 8 Top = 35 Width = 138 Height = 14 Caption = 'Application To Be Launched:' end object Label10: TLabel Left = 8 Top = 75 Width = 227 Height = 14 Caption = 'Startup Parameters Passed To The Application:' end object Label11: TLabel Left = 8 Top = 124 Width = 156 Height = 14 Caption = 'Sound (WAV) File To Be Played:' end object CheckBox2: TCheckBox Left = 8 Top = 18 Width = 169 Height = 17 Caption = 'Active Application Launch' TabOrder = 0 end object Button1: TButton Left = 316 Top = 28 Width = 60 Height = 21 Hint = 'Select Application By Browsing Your Hard Disk' Caption = 'Select' TabOrder = 2 OnClick = Button1Click end object Edit5: TEdit Left = 8 Top = 91 Width = 369 Height = 22 TabOrder = 3 end object Button2: TButton Left = 316 Top = 117 Width = 60 Height = 21 Hint = 'Select A Sound File By Browsing Your Hard Disk' Caption = 'Select' TabOrder = 5 OnClick = Button2Click end object ComboBox1: TComboBox Left = 8 Top = 51 Width = 369 Height = 22 ItemHeight = 14 TabOrder = 1 OnChange = ComboBox1Change end object Button3: TButton Left = 253 Top = 117 Width = 60 Height = 21 Hint = 'Play the Sound File' Caption = 'Test' TabOrder = 4 OnClick = Button3Click end object Edit7: TComboBox Left = 8 Top = 140 Width = 369 Height = 22 ItemHeight = 14 TabOrder = 6 end end object RadioGroup4: TRadioGroup Left = 351 Top = 13 Width = 69 Height = 97 Caption = 'Priority:' ItemIndex = 1 Items.Strings = ( 'Low' 'Normal' 'High') TabOrder = 6 end object Edit6: TEdit Left = 297 Top = 34 Width = 27 Height = 22 Hint = 'Reminder Frequency in Days' MaxLength = 2 TabOrder = 5 OnChange = Edit6Change OnKeyPress = Edit2KeyPress end object Edit8: TEdit Left = 290 Top = 114 Width = 47 Height = 22 Hint = 'Number of Times the reminder should repeat' MaxLength = 3 TabOrder = 7 OnKeyPress = Edit2KeyPress end object Panel1: TPanel Left = 0 Top = 415 Width = 632 Height = 34 Align = alBottom BevelOuter = bvNone TabOrder = 12 object BitBtn1: TBitBtn Left = 241 Top = 3 Width = 124 Height = 27 Hint = 'Use these settings as Default values for all new reminders' Caption = '&Save As Default' TabOrder = 0 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 end object HelpBtn: TBitBtn Left = 376 Top = 3 Width = 77 Height = 27 TabOrder = 1 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 464 Top = 3 Width = 77 Height = 27 Caption = '&Cancel' TabOrder = 2 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object OKBtn: TBitBtn Left = 552 Top = 3 Width = 77 Height = 27 Caption = '&OK' Enabled = False TabOrder = 3 Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object MediaPlayer1: TMediaPlayer Left = 8 Top = 0 Width = 85 Height = 30 VisibleButtons = [btPlay, btPause, btStop] DeviceType = dtWaveAudio Visible = False TabOrder = 4 end end object DateEdit2: TDateEdit Left = 312 Top = 142 Width = 105 Height = 22 Hint = 'Reminder Expiration Date' DateFormat = 'mm/dd/yyyy' Date = '__/__/____' MaxLength = 10 TabOrder = 8 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Application|*.exe;*.com;*.bat' Left = 8 Top = 384 end end