home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-03-26 | 41.8 KB | 1,746 lines |
- object frmSettings: TfrmSettings
- Left = 290
- Top = 60
- BorderStyle = bsDialog
- Caption = 'Properties'
- ClientHeight = 432
- ClientWidth = 420
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 4
- Top = 0
- Width = 415
- Height = 401
- ActivePage = TabSheet1
- MultiLine = True
- TabOrder = 2
- OnChange = lstEntriesChange
- object TabSheet1: TTabSheet
- Caption = 'E-mail addresses'
- object Label14: TLabel
- Left = 5
- Top = 5
- Width = 111
- Height = 13
- Caption = 'Mailboxes to check'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object cmdAdd: TButton
- Left = 12
- Top = 324
- Width = 50
- Height = 25
- Caption = '&Add'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = cmdAddClick
- end
- object cmdDel: TButton
- Left = 131
- Top = 324
- Width = 50
- Height = 25
- Caption = '&Delete'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = cmdDelClick
- end
- object GroupBox1: TGroupBox
- Left = 196
- Top = 0
- Width = 205
- Height = 349
- Caption = ' Selected Mailbox '
- Color = clBtnFace
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- TabOrder = 4
- object Label15: TLabel
- Left = 7
- Top = 64
- Width = 170
- Height = 13
- Caption = 'POP3 User name'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label16: TLabel
- Left = 7
- Top = 112
- Width = 170
- Height = 13
- Caption = 'POP3 Password'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label17: TLabel
- Left = 7
- Top = 160
- Width = 134
- Height = 13
- Caption = 'POP3 (incoming mail) Server'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label20: TLabel
- Left = 7
- Top = 208
- Width = 170
- Height = 13
- Caption = 'E-mail program'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label21: TLabel
- Left = 7
- Top = 304
- Width = 67
- Height = 13
- Caption = 'AVI file to play'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label22: TLabel
- Left = 7
- Top = 256
- Width = 79
- Height = 13
- Caption = 'Wave file to play'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label44: TLabel
- Left = 7
- Top = 16
- Width = 65
- Height = 13
- Caption = 'Mailbox name'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object edsUser: TEdit
- Left = 7
- Top = 80
- Width = 190
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnChange = edsUserChange
- end
- object edsPass: TEdit
- Left = 7
- Top = 128
- Width = 190
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 2
- OnChange = edsPassChange
- end
- object edsServer: TEdit
- Left = 7
- Top = 176
- Width = 190
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnChange = edsServerChange
- end
- object EdsUserEmailProg: TEdit
- Left = 7
- Top = 224
- Width = 190
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnChange = EdsUserEmailProgChange
- end
- object edsUserAvi: TEdit
- Left = 7
- Top = 320
- Width = 190
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnChange = edsUserAviChange
- end
- object edsUserWave: TEdit
- Left = 7
- Top = 272
- Width = 190
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnChange = edsUserWaveChange
- end
- object cmdUWaveBrowsr: TButton
- Left = 142
- Top = 252
- Width = 57
- Height = 17
- Caption = 'Browse...'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- OnClick = cmdUWaveBrowsrClick
- end
- object cmdUAVIbrowsr: TButton
- Left = 142
- Top = 300
- Width = 57
- Height = 17
- Caption = 'Browse...'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- OnClick = cmdUAVIbrowsrClick
- end
- object cmdEEmailBrowse: TButton
- Left = 142
- Top = 204
- Width = 57
- Height = 17
- Caption = 'Browse...'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = cmdEEmailBrowseClick
- end
- object cmdUserEmailProgTest: TButton
- Left = 96
- Top = 204
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = cmdUserEmailProgTestClick
- end
- object cmdUserWaveTest: TButton
- Left = 96
- Top = 252
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = cmdUserWaveTestClick
- end
- object cmdTestUserAvi: TButton
- Left = 96
- Top = 300
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- OnClick = cmdTestUserAviClick
- end
- object edsName: TEdit
- Left = 7
- Top = 32
- Width = 190
- Height = 21
- Hint = 'The name of the mailbox (totally up to you).'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnKeyUp = edsNameKeyUp
- end
- end
- object lstUser: TCheckListBox
- Left = 12
- Top = 24
- Width = 169
- Height = 293
- Author = 'Pablo Pissanetzky'
- Bitmap.Data = {
- EE000000424DEE000000000000007600000028000000140000000A0000000100
- 04000000000078000000C40E0000C40E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00077777777707
- 7777777700000FFFFFFFF70FFFFFFFF700000FFFFFFFF70FFF0FFFF700000FFF
- FFFFF70FF000FFF700000FFFFFFFF70F00000FF700000FFFFFFFF70FF0F000F7
- 00000FFFFFFFF70FFFFF00F700000FFFFFFFF70FFFFFF0F700000FFFFFFFF70F
- FFFFFFF70000000000000000000000000000}
- Ctl3D = True
- ItemHeight = 13
- OnClick = lstUserClick
- ParentCtl3D = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object cmdCopy: TButton
- Left = 72
- Top = 324
- Width = 50
- Height = 25
- Caption = '&Copy'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = cmdCopyClick
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Notifications'
- object Label1: TLabel
- Left = 5
- Top = 53
- Width = 110
- Height = 13
- Caption = 'Sound notifications'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 5
- Top = 140
- Width = 108
- Height = 13
- Caption = 'Visual notifications'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label18: TLabel
- Left = 5
- Top = 5
- Width = 151
- Height = 13
- Caption = 'Time between mail checks'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label19: TLabel
- Left = 46
- Top = 30
- Width = 36
- Height = 13
- Caption = 'minutes'
- end
- object Label11: TLabel
- Left = 5
- Top = 264
- Width = 102
- Height = 13
- Caption = 'E-mail notification'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label12: TLabel
- Left = 15
- Top = 308
- Width = 120
- Height = 13
- Caption = 'Your notify e-mail address'
- end
- object Label63: TLabel
- Left = 239
- Top = 308
- Width = 106
- Height = 13
- Caption = 'Subject of notify e-mail'
- end
- object chkWave: TCheckBox
- Left = 15
- Top = 92
- Width = 300
- Height = 17
- Caption = '&Play wavefile when there is mail in the mailboxes'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = chkWaveClick
- end
- object chkBeep: TCheckBox
- Left = 15
- Top = 72
- Width = 300
- Height = 17
- Caption = '&Beep when there is mail in the mailboxes'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = chkWaveClick
- end
- object chkStartMail: TCheckBox
- Left = 15
- Top = 160
- Width = 300
- Height = 17
- Caption = 'Start email program'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object chkShowHeaders: TCheckBox
- Left = 15
- Top = 180
- Width = 300
- Height = 17
- Caption = 'View headers'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object chkOnlyNew: TCheckBox
- Left = 15
- Top = 112
- Width = 300
- Height = 17
- Caption = 'Play sounds &only if there is new mail in the mailboxes'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object chkMessageBox: TCheckBox
- Left = 15
- Top = 200
- Width = 300
- Height = 17
- Caption = 'Display a messagebox'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object chkAVI: TCheckBox
- Left = 15
- Top = 220
- Width = 300
- Height = 17
- Caption = 'Play an AVI movie'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = chkAVIClick
- end
- object edsMin: TEdit
- Left = 14
- Top = 25
- Width = 27
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '5'
- end
- object chkLoopAvi: TCheckBox
- Left = 15
- Top = 240
- Width = 300
- Height = 17
- Caption = 'Loop AVI movie'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- end
- object chkEmailNotif: TCheckBox
- Left = 15
- Top = 284
- Width = 300
- Height = 17
- Caption = 'Use e-mail notification'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- end
- object edsForwEmail: TEdit
- Left = 15
- Top = 324
- Width = 218
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- end
- object edsForwSubj: TEdit
- Left = 240
- Top = 324
- Width = 157
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- end
- object chkEmailImpOnly: TCheckBox
- Left = 159
- Top = 284
- Width = 238
- Height = 17
- Caption = 'Notify only when you have important e-mails'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Addresses / Paths'
- object Label4: TLabel
- Left = 15
- Top = 28
- Width = 117
- Height = 13
- Caption = 'Your main e-mail address'
- end
- object Label5: TLabel
- Left = 15
- Top = 140
- Width = 106
- Height = 13
- Caption = 'Default E-mail program'
- end
- object Label7: TLabel
- Left = 15
- Top = 72
- Width = 230
- Height = 13
- Caption = 'The address to your SMTP (outgoing mail) server'
- end
- object Label3: TLabel
- Left = 15
- Top = 200
- Width = 116
- Height = 13
- Caption = 'Default Wave file to play'
- end
- object Label6: TLabel
- Left = 15
- Top = 260
- Width = 104
- Height = 13
- Caption = 'Default AVI file to play'
- end
- object Label8: TLabel
- Left = 5
- Top = 5
- Width = 59
- Height = 13
- Caption = 'Addresses'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label9: TLabel
- Left = 5
- Top = 120
- Width = 33
- Height = 13
- Caption = 'Paths'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object edsEmail: TEdit
- Left = 15
- Top = 44
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object edsEmailProg: TEdit
- Left = 15
- Top = 156
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object edsSMTP: TEdit
- Left = 15
- Top = 88
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object edsWavefile: TEdit
- Left = 15
- Top = 216
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object edsAVIfile: TEdit
- Left = 15
- Top = 276
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object TabSheet6: TTabSheet
- Caption = 'Addresses / Paths'
- object Label30: TLabel
- Left = 15
- Top = 28
- Width = 117
- Height = 13
- Caption = 'Your main e-mail address'
- end
- object Label31: TLabel
- Left = 15
- Top = 140
- Width = 69
- Height = 13
- Caption = 'E-mail program'
- end
- object Label32: TLabel
- Left = 15
- Top = 72
- Width = 159
- Height = 13
- Caption = 'The address to your SMTP server'
- end
- object Label33: TLabel
- Left = 15
- Top = 188
- Width = 79
- Height = 13
- Caption = 'Wave file to play'
- end
- object Label34: TLabel
- Left = 15
- Top = 236
- Width = 67
- Height = 13
- Caption = 'AVI file to play'
- end
- object Label35: TLabel
- Left = 5
- Top = 5
- Width = 59
- Height = 13
- Caption = 'Addresses'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label36: TLabel
- Left = 5
- Top = 120
- Width = 33
- Height = 13
- Caption = 'Paths'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Edit9: TEdit
- Left = 15
- Top = 44
- Width = 300
- Height = 21
- TabOrder = 0
- Text = 'Edit9'
- end
- object Edit10: TEdit
- Left = 15
- Top = 156
- Width = 300
- Height = 21
- TabOrder = 2
- Text = 'Edit10'
- end
- object Edit11: TEdit
- Left = 15
- Top = 88
- Width = 300
- Height = 21
- TabOrder = 1
- Text = 'Edit11'
- end
- object Edit12: TEdit
- Left = 15
- Top = 204
- Width = 300
- Height = 21
- TabOrder = 3
- Text = 'Edit12'
- end
- object Edit13: TEdit
- Left = 15
- Top = 252
- Width = 300
- Height = 21
- TabOrder = 4
- Text = 'Edit13'
- end
- object TabSheet7: TTabSheet
- Caption = 'Addresses / Paths'
- object Label37: TLabel
- Left = 15
- Top = 28
- Width = 117
- Height = 13
- Caption = 'Your main e-mail address'
- end
- object Label38: TLabel
- Left = 15
- Top = 140
- Width = 69
- Height = 13
- Caption = 'E-mail program'
- end
- object Label39: TLabel
- Left = 15
- Top = 72
- Width = 159
- Height = 13
- Caption = 'The address to your SMTP server'
- end
- object Label40: TLabel
- Left = 15
- Top = 188
- Width = 79
- Height = 13
- Caption = 'Wave file to play'
- end
- object Label41: TLabel
- Left = 15
- Top = 236
- Width = 67
- Height = 13
- Caption = 'AVI file to play'
- end
- object Label42: TLabel
- Left = 5
- Top = 5
- Width = 59
- Height = 13
- Caption = 'Addresses'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label43: TLabel
- Left = 5
- Top = 120
- Width = 33
- Height = 13
- Caption = 'Paths'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Edit14: TEdit
- Left = 15
- Top = 44
- Width = 300
- Height = 21
- TabOrder = 0
- Text = 'Edit4'
- end
- object Edit15: TEdit
- Left = 15
- Top = 156
- Width = 300
- Height = 21
- TabOrder = 2
- Text = 'Edit5'
- end
- object Edit16: TEdit
- Left = 15
- Top = 88
- Width = 300
- Height = 21
- TabOrder = 1
- Text = 'Edit6'
- end
- object Edit17: TEdit
- Left = 15
- Top = 204
- Width = 300
- Height = 21
- TabOrder = 3
- Text = 'Edit7'
- end
- object Edit18: TEdit
- Left = 15
- Top = 252
- Width = 300
- Height = 21
- TabOrder = 4
- Text = 'Edit8'
- end
- object Button8: TButton
- Left = -37
- Top = -12
- Width = 75
- Height = 25
- Caption = 'Button7'
- TabOrder = 5
- end
- end
- end
- object cmdBrowseEmailM: TButton
- Left = 256
- Top = 136
- Width = 57
- Height = 17
- Caption = 'Browse...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = cmdBrowseEmailMClick
- end
- object cmdBrowseWaveM: TButton
- Left = 256
- Top = 196
- Width = 57
- Height = 17
- Caption = 'Browse...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = cmdBrowseWaveMClick
- end
- object cmdBrowseAVIM: TButton
- Left = 256
- Top = 256
- Width = 57
- Height = 17
- Caption = 'Browse...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = cmdBrowseAVIMClick
- end
- object cmdTestEmailM: TButton
- Left = 208
- Top = 136
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = cmdTestEmailMClick
- end
- object cmdTestWaveM: TButton
- Left = 208
- Top = 196
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- OnClick = cmdTestWaveMClick
- end
- object cmdTestAVIM: TButton
- Left = 208
- Top = 256
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- OnClick = cmdTestAVIMClick
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Misc'
- object lblPass: TLabel
- Left = 5
- Top = 5
- Width = 55
- Height = 13
- Caption = 'Password'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label23: TLabel
- Left = 15
- Top = 28
- Width = 149
- Height = 13
- Caption = 'Password for the settings dialog'
- end
- object Label24: TLabel
- Left = 5
- Top = 73
- Width = 88
- Height = 13
- Caption = 'Other functions'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label25: TLabel
- Left = 254
- Top = 314
- Width = 40
- Height = 13
- Caption = 'seconds'
- end
- object Label26: TLabel
- Left = 213
- Top = 289
- Width = 166
- Height = 13
- Caption = 'Time before a timeout occurs'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label59: TLabel
- Left = 5
- Top = 245
- Width = 125
- Height = 13
- Caption = 'CheckMail Web News'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label60: TLabel
- Left = 5
- Top = 289
- Width = 126
- Height = 13
- Caption = 'Show part of message'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label61: TLabel
- Left = 16
- Top = 314
- Width = 67
- Height = 13
- Caption = 'Show the first '
- end
- object Label62: TLabel
- Left = 118
- Top = 314
- Width = 21
- Height = 13
- Caption = 'lines'
- end
- object edsPassword: TEdit
- Left = 15
- Top = 44
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object chkDelete: TCheckBox
- Left = 15
- Top = 152
- Width = 150
- Height = 17
- Caption = '&Disable delete messages'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object chkAutoConf: TCheckBox
- Left = 15
- Top = 132
- Width = 300
- Height = 17
- Caption = '&Automatically confirm delete questions'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object chkShowSize: TCheckBox
- Left = 15
- Top = 172
- Width = 122
- Height = 17
- Caption = '&Show message size '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object edsTimeOut: TEdit
- Left = 222
- Top = 309
- Width = 27
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- Text = '30'
- end
- object chkFastPref: TCheckBox
- Left = 15
- Top = 92
- Width = 366
- Height = 17
- Caption =
- '&CheckMail updates the settings in Netscape Mail 3 and/or Intern' +
- 'et Mail 3'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object chkStartMin: TCheckBox
- Left = 15
- Top = 212
- Width = 142
- Height = 17
- Caption = 'Always start &minimized'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object chkNews: TCheckBox
- Left = 16
- Top = 264
- Width = 329
- Height = 17
- Caption = '&Yes! Of course I want to receive news about CheckMail!'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- end
- object ediLines: TEdit
- Left = 86
- Top = 309
- Width = 27
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- Text = '0'
- end
- object chkUserDrawn: TCheckBox
- Left = 203
- Top = 212
- Width = 166
- Height = 17
- Caption = 'Show colors &in VH listbox'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- end
- object chkCloseWindow: TCheckBox
- Left = 15
- Top = 112
- Width = 230
- Height = 17
- Caption = 'Close window when &e-mail program starts'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object chkShowDel: TCheckBox
- Left = 15
- Top = 192
- Width = 142
- Height = 17
- Caption = 'Show dele&ted messages'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- end
- object chkShowInfo: TCheckBox
- Left = 203
- Top = 192
- Width = 166
- Height = 17
- Caption = 'Show extended info in &listbox'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Reject Mail'
- object Label10: TLabel
- Left = 5
- Top = 5
- Width = 92
- Height = 13
- Caption = 'Reject mail from'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label13: TLabel
- Left = 5
- Top = 189
- Width = 81
- Height = 13
- Caption = 'Rejection mail'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lbl444: TLabel
- Left = 16
- Top = 212
- Width = 39
- Height = 13
- Caption = 'Subject:'
- end
- object Label46: TLabel
- Left = 15
- Top = 72
- Width = 61
- Height = 13
- Caption = 'Reject mail...'
- end
- object lstRejected: TMemo
- Left = 191
- Top = 24
- Width = 200
- Height = 157
- ParentShowHint = False
- ScrollBars = ssVertical
- ShowHint = True
- TabOrder = 3
- WordWrap = False
- end
- object chkRejection: TCheckBox
- Left = 15
- Top = 24
- Width = 174
- Height = 17
- Caption = '&Enable e-mail rejection'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object chkAutoResp: TCheckBox
- Left = 15
- Top = 44
- Width = 174
- Height = 17
- Caption = '&Auto-respond to rejected mail'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object lstRejText: TMemo
- Left = 15
- Top = 240
- Width = 378
- Height = 105
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object txtSubject: TEdit
- Left = 64
- Top = 209
- Width = 329
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object lstRejField: TComboBox
- Left = 15
- Top = 93
- Width = 162
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'from these addresses'
- 'to these addresses'
- 'with these subjects')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = lstRejFieldClick
- end
- end
- object TabSheet9: TTabSheet
- Caption = 'Important Mail'
- object Label50: TLabel
- Left = 15
- Top = 248
- Width = 114
- Height = 13
- Caption = 'Important AVI file to play'
- end
- object Label49: TLabel
- Left = 15
- Top = 200
- Width = 126
- Height = 13
- Caption = 'Important Wave file to play'
- end
- object Label48: TLabel
- Left = 5
- Top = 5
- Width = 108
- Height = 13
- Caption = 'Important mail from'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label47: TLabel
- Left = 15
- Top = 48
- Width = 74
- Height = 13
- Caption = 'Important mail...'
- end
- object edsImpAVI: TEdit
- Left = 15
- Top = 264
- Width = 376
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object edsImpAVIBrowse: TButton
- Left = 334
- Top = 244
- Width = 57
- Height = 17
- Caption = 'Browse...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = edsImpAVIBrowseClick
- end
- object edsImpAVITest: TButton
- Left = 286
- Top = 244
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = edsImpAVITestClick
- end
- object edsImpWave: TEdit
- Left = 15
- Top = 216
- Width = 376
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object edsImpWaveTest: TButton
- Left = 286
- Top = 196
- Width = 41
- Height = 17
- Caption = 'Test'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = edsImpWaveTestClick
- end
- object edsImpWaveBrowse: TButton
- Left = 334
- Top = 196
- Width = 57
- Height = 17
- Caption = 'Browse...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = edsImpWaveBrowseClick
- end
- object lstImportant: TMemo
- Left = 191
- Top = 24
- Width = 200
- Height = 157
- ParentShowHint = False
- ScrollBars = ssVertical
- ShowHint = True
- TabOrder = 2
- WordWrap = False
- end
- object chkImpMail: TCheckBox
- Left = 15
- Top = 24
- Width = 174
- Height = 17
- Caption = '&Enable important e-mails'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = chkImpMailClick
- end
- object lstImpField: TComboBox
- Left = 15
- Top = 69
- Width = 162
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'from these addresses'
- 'to these addresses'
- 'with these subjects')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = lstImpFieldClick
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'DialUp'
- object Label28: TLabel
- Left = 5
- Top = 193
- Width = 49
- Height = 13
- Caption = 'Hang up'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label29: TLabel
- Left = 15
- Top = 68
- Width = 95
- Height = 13
- Caption = 'Use this dialup entry'
- end
- object Label27: TLabel
- Left = 5
- Top = 5
- Width = 41
- Height = 13
- Caption = 'Dial up'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label53: TLabel
- Left = 16
- Top = 136
- Width = 191
- Height = 13
- Caption = 'Delay before CheckMail starts checking:'
- end
- object Label54: TLabel
- Left = 16
- Top = 160
- Width = 141
- Height = 13
- Caption = 'Time between redial attempts:'
- end
- object Label55: TLabel
- Left = 264
- Top = 136
- Width = 40
- Height = 13
- Caption = 'seconds'
- end
- object Label56: TLabel
- Left = 264
- Top = 160
- Width = 36
- Height = 13
- Caption = 'minutes'
- end
- object Label57: TLabel
- Left = 264
- Top = 112
- Width = 36
- Height = 13
- Caption = 'minutes'
- end
- object Label58: TLabel
- Left = 16
- Top = 112
- Width = 109
- Height = 13
- Caption = 'Time between dial ups:'
- end
- object rbNever: TRadioButton
- Left = 15
- Top = 252
- Width = 113
- Height = 17
- Caption = '&Never disconnect'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- end
- object rbAlways: TRadioButton
- Left = 15
- Top = 232
- Width = 113
- Height = 17
- Caption = '&Always disconnect'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- end
- object rbNew: TRadioButton
- Left = 15
- Top = 212
- Width = 226
- Height = 17
- Caption = '&Disconnect if there is no new mail'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object lstEntries: TComboBox
- Left = 15
- Top = 84
- Width = 186
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnChange = lstEntriesChange
- end
- object chkPauseDialUp: TCheckBox
- Left = 15
- Top = 24
- Width = 362
- Height = 17
- Caption = '&Suspend CheckMail if no DialUp connection is active'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object chkDialup: TCheckBox
- Left = 15
- Top = 44
- Width = 300
- Height = 17
- Caption = '&Use dialup connection'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = chkDialupClick
- end
- object ediRedialTime: TEdit
- Left = 216
- Top = 158
- Width = 41
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object ediDelay: TEdit
- Left = 216
- Top = 134
- Width = 41
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object ediDialTime: TEdit
- Left = 216
- Top = 110
- Width = 41
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- end
- object TabSheet10: TTabSheet
- Caption = 'Pager'
- object Label45: TLabel
- Left = 15
- Top = 120
- Width = 155
- Height = 13
- Caption = 'Phone number and code to send'
- end
- object Label51: TLabel
- Left = 15
- Top = 76
- Width = 95
- Height = 13
- Caption = 'Use this dialup entry'
- end
- object Label52: TLabel
- Left = 5
- Top = 9
- Width = 81
- Height = 13
- Caption = 'Number Pager'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object edsCode: TEdit
- Left = 15
- Top = 136
- Width = 329
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object lstPager: TComboBox
- Left = 15
- Top = 92
- Width = 186
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnChange = lstPagerChange
- end
- object chkPager: TCheckBox
- Left = 15
- Top = 28
- Width = 300
- Height = 17
- Caption = '&Use pager function'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object chkOnlyImp: TCheckBox
- Left = 15
- Top = 48
- Width = 242
- Height = 17
- Caption = '&Page only when you have important e-mails'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- end
- end
- object cmdOk: TButton
- Left = 262
- Top = 404
- Width = 75
- Height = 25
- Caption = '&Ok'
- Default = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = cmdOkClick
- end
- object cmdCancel: TButton
- Left = 342
- Top = 404
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = cmdCancelClick
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Filter =
- 'Movies|*.avi|Sounds|*.wav|Programs|*.exe; *.bat; *.com; *.lnk; *' +
- '.pif|All files|*.*'
- Left = 3
- Top = 403
- end
- end
-