CD-ROM Magazin 1997 December/MRR.BIN/data/share/1197_002/remind.exe/0/RCDATA/TREMINDERDLG/TREMINDERDLG.txt

Text File | 1997-09-03 | 10KB | 472 lines

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