object SettingsForm: TSettingsForm Left = 227 Top = 152 ActiveControl = OKGradBtn BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'SyTinem: Settings' ClientHeight = 328 ClientWidth = 385 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ShowHint = True OnCreate = FormCreate Version = 'TGradientForm v1.60' UseWin98Gradient = True PixelsPerInch = 96 TextHeight = 13 object CancelGradBtn: TGradBtn Left = 306 Top = 302 Width = 75 Height = 22 Hint = 'Lose changes and exit' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'Cancel' OnClick = CancelGradBtnClick Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 1 TabStop = True end object OKGradBtn: TGradBtn Left = 226 Top = 302 Width = 75 Height = 22 Hint = 'Save changes and exit' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'OK' OnClick = OKGradBtnClick Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 0 TabStop = True end object PageControl: TPageControl Left = 4 Top = 4 Width = 377 Height = 293 ActivePage = ConnectionTabSheet TabOrder = 2 object NewMailTabSheet: TTabSheet Caption = 'New mail' object MailServersLabel: TLabel Left = 0 Top = 0 Width = 84 Height = 13 Caption = '&Mail servers:' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object NewMailNotificationLabel: TLabel Left = 0 Top = 136 Width = 141 Height = 13 Caption = 'New mail notification:' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object FirstBevel: TBevel Left = 0 Top = 132 Width = 369 Height = 9 Shape = bsTopLine end object MailServersListView: TListView Left = 0 Top = 16 Width = 369 Height = 89 Hint = 'Mail servers to poll for new mail' ColumnClick = False Columns = < item Caption = 'Server Name' Width = 100 end item Caption = 'Username' Width = 75 end item Caption = 'POP3 Server' Width = 120 end item Caption = 'Interval' Width = 60 end> HideSelection = False HotTrack = True MultiSelect = True RowSelect = True OnChange = MailServersListViewChange OnDeletion = MailServersListViewDeletion SortType = stText TabOrder = 0 ViewStyle = vsReport SmallImages = ImageList end object EditGradBtn: TGradBtn Left = 214 Top = 108 Width = 75 Height = 22 Hint = 'Edit the current mail server entry' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'Edit' OnClick = EditGradBtnClick Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 1 TabStop = True end object RemoveGradBtn: TGradBtn Left = 294 Top = 108 Width = 75 Height = 22 Hint = 'Remove all selected mail server entries' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'Remove' OnClick = RemoveGradBtnClick Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 2 TabStop = True end object NewGradBtn: TGradBtn Left = 134 Top = 108 Width = 75 Height = 22 Hint = 'Create a new mail server entry' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'New' OnClick = NewGradBtnClick Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 3 TabStop = True end object DisplayMessageCheckBox: TCheckBox Left = 8 Top = 154 Width = 129 Height = 17 Hint = 'Display a message if new mail is found' Caption = 'Display a &message' State = cbChecked TabOrder = 4 OnClick = DisplayMessageCheckBoxClick end object PlaySoundCheckBox: TCheckBox Left = 8 Top = 202 Width = 97 Height = 17 Hint = 'Play a wave file' Caption = '&Play sound' TabOrder = 5 OnClick = PlaySoundCheckBoxClick end object AutoHideCheckbox: TCheckBox Left = 144 Top = 154 Width = 169 Height = 17 Hint = 'Automaticly hide the message afther 3 seconds' Caption = 'Auto &hide after 3 seconds' State = cbChecked TabOrder = 6 end object SoundEdit: TEdit Left = 128 Top = 200 Width = 161 Height = 21 Hint = 'Enter the filename of the wavefile to play' Enabled = False TabOrder = 7 end object SystemBeepCheckbox: TCheckBox Left = 8 Top = 178 Width = 97 Height = 17 Hint = 'Play some beeps on the system speaker' Caption = 'System &beep' State = cbChecked TabOrder = 8 end object StartMailClientCheckbox: TCheckBox Left = 8 Top = 226 Width = 113 Height = 17 Hint = 'Start your favorite mail client' Caption = 'Start mail &client:' TabOrder = 9 OnClick = StartMailClientCheckboxClick end object MailClientEdit: TEdit Left = 128 Top = 224 Width = 161 Height = 21 Hint = 'Filename of your favorite mail client' Enabled = False TabOrder = 10 end object BrowseSoundGradBtn: TGradBtn Left = 294 Top = 200 Width = 75 Height = 22 Hint = 'Browse for a wave file' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'Browse' OnClick = BrowseSoundGradBtnClick Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 11 TabStop = True end object BrowseClientGradBtn: TGradBtn Left = 294 Top = 223 Width = 75 Height = 22 Hint = 'Browse for a mail client' BtnHiliteClr = clWhite BtnShadowClr = clBlack BeginColor = 13553358 EndColor = 6250335 GradientStyle = gsVertical TextStyle = tsInset TextShadeType = stHeavy Presets = Aluminum Caption = 'Browse' OnClick = BrowseClientGradBtnClick Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Verdana' Font.Style = [fsBold] TabOrder = 12 TabStop = True end end object TimeTabSheet: TTabSheet Caption = 'Time synchronization' object TimeServerLabel: TLabel Left = 26 Top = 36 Width = 74 Height = 13 Caption = '&Time server:' FocusControl = TimeServersComboBox end object SynchronizeCheckBox: TCheckBox Left = 8 Top = 8 Width = 121 Height = 17 Hint = 'Enable to synchronize your local time with a timeserver on the i' + 'nternet' Caption = '&Synchronize time' TabOrder = 0 OnClick = SynchronizeCheckBoxClick end object TimeServersComboBox: TComboBox Left = 104 Top = 32 Width = 161 Height = 21 Hint = 'Hostname of the timeserver to synchronize with' ItemHeight = 13 Items.Strings = ( 'tick.service.uit.no' 'chime1.surfnet.nl' 'swisstime.ethz.ch' 'tick.usno.navy.mil' 'clock.psu.edu' 'time.nist.gov' 'ntp.syd.dms.csiro.au' 'ntps1-0.cs.tu-berlin.de' 'ntp.ctr.columbia.edu' 'ntp.css.gov' 'ntp0.cornell.edu' 'clock.isc.org') TabOrder = 1 end object IntervalRadioGroup: TRadioGroup Left = 8 Top = 60 Width = 353 Height = 65 Hint = 'Synchronize every hour or once a day' Caption = ' Interval ' ItemIndex = 0 Items.Strings = ( 'H&ourly' '&Daily') TabOrder = 2 end end object ConnectionTabSheet: TTabSheet Caption = 'Connection' object FirewallLabel: TLabel Left = 4 Top = 180 Width = 56 Height = 13 Caption = 'Firewall:' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object FirewallDescLabel: TLabel Left = 4 Top = 196 Width = 354 Height = 65 AutoSize = False Caption = 'If you'#39're computer connects to the internet using a firewall, as' + 'k your local administrators, make sure that tcp-ports 110 (POP3)' + ' and 37 (Time) are available and allow bidirectional outgoing co' + 'nnections.' WordWrap = True end object ActiveWithRASLabel: TLabel Left = 30 Top = 56 Width = 327 Height = 29 AutoSize = False Caption = 'Only check mail and synchronize time when the following RAS conn' + 'ection is active:' WordWrap = True end object ConnectionLANRadioButton: TRadioButton Left = 12 Top = 16 Width = 249 Height = 17 Hint = 'Try to reach the internet using the LAN connection' Caption = 'I use a &LAN to connect to the internet' Checked = True TabOrder = 0 TabStop = True OnClick = ConnectionLANRadioButtonClick end object ConnectionRASRadioButton: TRadioButton Left = 12 Top = 36 Width = 233 Height = 17 Hint = 'Select the RAS connection that must be active to reach the inter' + 'net' Caption = 'I use &RAS to connect to the internet' TabOrder = 1 OnClick = ConnectionRASRadioButtonClick end object RASEntriesComboBox: TComboBox Left = 28 Top = 84 Width = 329 Height = 21 Hint = 'List of available RAS entries.' Style = csDropDownList Enabled = False ItemHeight = 13 Sorted = True TabOrder = 2 end end end object ImageList: TImageList Left = 8 Top = 296 Bitmap = { 4202000001000000424D42020000000000004200000028000000100000001000 000001001000030000000002000000000000000000000000000000000000007C 0000E00300001F00000000000000000000000000000000000000000000000000 0000000000000000000010421042104210421042104210421042104210421042 104210421042000000001042FF7F186318631863186318631863186318631863 186318631042104200001042FF7F1863E0030002186318630000000000000000 000018631042104200001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7F10421042000000000000000000000000000000000000000000000000 0000000010421042000000001042104210421042104210421042104210421042 1042104200001042000000001042186318631863186318631863186318631863 1863186310420000000000001042FF7F18631000100010001000100010001000 1863186310420000000000001042FF7F186310001F001F001F001F001F001000 1863186310420000000000001042FF7F1863100018631F001F001F001F001000 1863186310420000000000001042FF7F18631000FF0318631F001F001F001000 1863186310420000000000001042FF7F18631000100010001000100010001000 1863186310420000000000001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7F186310420000000000000000104218631863186318631863186318631863 1863186310420000000000000000000010421042104210421042104210421042 10421042104200000000424D7E000000000000003E0000002800000010000000 1000000001000100000000004000000000000000000000000200000002000000 00000000FFFFFF00800300000001000000000000000000000000000080000000 8001000080010000800100008001000080010000800100008001000080010000 C0010000E0030000} end object WaveFileOpenDialog: TOpenDialog DefaultExt = 'wav' Filter = 'Wave files|*.wav|All Files|*.*' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Select a wave file' Left = 40 Top = 296 end object MailClientOpenDialog: TOpenDialog DefaultExt = 'exe' Filter = 'Executables|*.exe|All Files|*.*' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Select mail client executable' Left = 72 Top = 296 end end