object EnviroForm: TEnviroForm Tag = 110 Left = 371 Top = 336 HelpContext = 4 ActiveControl = Button3 BorderStyle = bsDialog Caption = 'Properties' ClientHeight = 355 ClientWidth = 330 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 29 Width = 330 Height = 292 Align = alTop BevelOuter = bvNone BorderWidth = 6 Caption = 'Panel1' TabOrder = 0 object PageControl1: TPageControl Left = 6 Top = 6 Width = 318 Height = 280 ActivePage = TabSheet1 Align = alClient MultiLine = True TabOrder = 0 object TabSheet1: TTabSheet Tag = 196 HelpContext = 4 Caption = 'General' object Bevel4: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Bevel5: TBevel Left = 4 Top = 110 Width = 301 Height = 5 Shape = bsTopLine end object Label16: TLabel Tag = 194 Left = 4 Top = 104 Width = 30 Height = 13 Caption = 'Online' end object Label8: TLabel Tag = 195 Left = 4 Top = 4 Width = 22 Height = 13 Caption = 'Start' end object CheckBox1: TCheckBox Tag = 191 Left = 16 Top = 160 Width = 285 Height = 17 Caption = 'Cr&eate protocol' TabOrder = 6 end object CheckBox6: TCheckBox Tag = 193 Left = 16 Top = 180 Width = 285 Height = 17 Caption = 'Confirm before &deleting message from server' TabOrder = 7 end object CheckBox5: TCheckBox Tag = 188 Left = 16 Top = 20 Width = 285 Height = 17 Caption = '&Start Phoenix Mail at Windows Start' TabOrder = 0 end object CheckBox7: TCheckBox Tag = 189 Left = 16 Top = 40 Width = 285 Height = 17 Caption = '&Fetch and send mail at startup' TabOrder = 1 end object CheckBox9: TCheckBox Tag = 190 Left = 16 Top = 60 Width = 285 Height = 17 Caption = 'Select &language at startup' TabOrder = 2 end object CheckBox15: TCheckBox Tag = 299 Left = 16 Top = 80 Width = 285 Height = 17 Caption = '&Check for Standard Mail Program' TabOrder = 3 end object CheckBox16: TCheckBox Tag = 325 Left = 16 Top = 120 Width = 285 Height = 17 Caption = '&List mails before downloading them' TabOrder = 4 end object CheckBox4: TCheckBox Tag = 192 Left = 16 Top = 200 Width = 285 Height = 17 Caption = '&Ask to go offline' TabOrder = 8 end object CheckBox18: TCheckBox Tag = 328 Left = 16 Top = 140 Width = 285 Height = 17 Caption = '&View status at the end of the online session' TabOrder = 5 end end object TabSheet5: TTabSheet Tag = 300 HelpContext = 14 Caption = 'Paths' object Label17: TLabel Tag = 305 Left = 12 Top = 184 Width = 285 Height = 41 AutoSize = False Caption = 'If no path for the Address Files is specified, the standard path' + ' is used. You must restart Phoenix Mail to take the path change ' + 'effect.' Visible = False WordWrap = True end object Bevel8: TBevel Left = 4 Top = 146 Width = 301 Height = 5 Shape = bsTopLine Visible = False end object Bevel2: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label3: TLabel Tag = 199 Left = 12 Top = 28 Width = 43 Height = 13 Caption = '&Scanner:' end object Label4: TLabel Tag = 200 Left = 12 Top = 56 Width = 51 Height = 13 Caption = '&Parameter:' end object SpeedButton5: TSpeedButton Left = 275 Top = 24 Width = 22 Height = 22 Hint = 'Select Virus Scanner Programm' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} OnClick = SpeedButton5Click end object Label14: TLabel Tag = 303 Left = 4 Top = 140 Width = 66 Height = 13 Caption = 'Address Book' Visible = False end object Label1: TLabel Tag = 198 Left = 4 Top = 4 Width = 66 Height = 13 Caption = 'Virus Scanner' end object Label15: TLabel Tag = 304 Left = 12 Top = 164 Width = 52 Height = 13 Caption = '&Addresses:' Visible = False end object SpeedButton2: TSpeedButton Tag = -306 Left = 275 Top = 160 Width = 22 Height = 22 Hint = 'Select Address Files path' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} Visible = False OnClick = SpeedButton2Click end object Edit1: TEdit Left = 68 Top = 24 Width = 205 Height = 21 TabOrder = 1 end object Edit2: TEdit Left = 68 Top = 52 Width = 109 Height = 21 TabOrder = 2 end object CheckBox3: TCheckBox Tag = 201 Left = 184 Top = 54 Width = 113 Height = 17 Caption = '&Run minimized' TabOrder = 3 end object Edit4: TEdit Left = 68 Top = 160 Width = 205 Height = 21 TabOrder = 0 Visible = False end end object TabSheet4: TTabSheet Tag = 208 HelpContext = 17 Caption = 'Schedule' object Bevel6: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label9: TLabel Tag = 209 Left = 4 Top = 4 Width = 112 Height = 13 Caption = 'Fetch and Send Mails...' end object Label11: TLabel Tag = 292 Left = 32 Top = 44 Width = 9 Height = 13 Caption = '&of' end object Label12: TLabel Tag = 293 Left = 132 Top = 44 Width = 36 Height = 13 Caption = 'minutes' end object Label26: TLabel Tag = 293 Left = 136 Top = 172 Width = 36 Height = 13 Caption = 'minutes' FocusControl = NumEdit2 WordWrap = True end object Label29: TLabel Tag = 337 Left = 36 Top = 172 Width = 21 Height = 13 Caption = 'a&fter' end object CheckBox10: TCheckBox Tag = 297 Left = 16 Top = 108 Width = 285 Height = 17 Caption = '...only if an online &connection already exists.' TabOrder = 8 OnClick = CheckBox11Click end object CheckBox11: TCheckBox Tag = 291 Left = 16 Top = 20 Width = 285 Height = 17 Caption = '...in inter&vals...' TabOrder = 0 OnClick = CheckBox11Click end object CheckBox12: TCheckBox Tag = 294 Left = 16 Top = 64 Width = 285 Height = 17 Caption = '...at &appointed times.' TabOrder = 3 OnClick = CheckBox11Click end object CheckBox13: TCheckBox Tag = 295 Left = 32 Top = 86 Width = 69 Height = 17 Caption = '&Time 1:' TabOrder = 4 OnClick = CheckBox11Click end object CheckBox14: TCheckBox Tag = 296 Left = 164 Top = 86 Width = 69 Height = 17 Caption = 'T&ime 2:' TabOrder = 6 OnClick = CheckBox11Click end object UpDown1: TUpDown Left = 113 Top = 40 Width = 15 Height = 21 Associate = Edit3 Min = 0 Max = 30000 Position = 0 TabOrder = 2 Thousands = False Wrap = False end object Edit3: TNumEdit Left = 76 Top = 40 Width = 37 Height = 21 AutoSize = False MaxLength = 5 TabOrder = 1 Text = '0' Min = 5 Max = 30000 Value = 0 end object MaskEdit1: TMaskEdit Left = 96 Top = 84 Width = 37 Height = 21 EditMask = '!90:00;1;_' MaxLength = 5 TabOrder = 5 Text = '20:00' end object MaskEdit2: TMaskEdit Left = 228 Top = 84 Width = 37 Height = 21 EditMask = '!90:00;1;_' MaxLength = 5 TabOrder = 7 Text = '24:00' end object CheckBox2: TCheckBox Tag = 336 Left = 16 Top = 148 Width = 285 Height = 17 Caption = '&Hang up the connection radically...' TabOrder = 9 OnClick = CheckBox11Click end object UpDown3: TUpDown Left = 116 Top = 168 Width = 15 Height = 21 Associate = NumEdit2 Min = 0 Max = 30000 Position = 0 TabOrder = 12 Thousands = False Wrap = False end object NumEdit2: TNumEdit Left = 79 Top = 168 Width = 37 Height = 21 AutoSize = False MaxLength = 5 TabOrder = 11 Text = '0' Min = 5 Max = 30000 Value = 0 end object CheckBox19: TCheckBox Tag = 347 Left = 16 Top = 128 Width = 285 Height = 17 Caption = '&Quit the connection automatically.' TabOrder = 10 end end object TabSheet2: TTabSheet Tag = 335 HelpContext = 16 Caption = 'DUN' object Bevel3: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label5: TLabel Tag = 329 Left = 4 Top = 4 Width = 78 Height = 13 Caption = 'Dial Up Network' end object Label21: TLabel Tag = 330 Left = 12 Top = 28 Width = 57 Height = 13 Caption = '&Connection:' FocusControl = ComboBoxEx1 end object Label6: TLabel Tag = 331 Left = 12 Top = 56 Width = 56 Height = 13 Caption = '&User Name:' FocusControl = Edit5 end object Label22: TLabel Tag = 332 Left = 12 Top = 84 Width = 49 Height = 13 Caption = '&Password:' FocusControl = Edit6 end object Edit5: TEdit Left = 88 Top = 52 Width = 205 Height = 21 TabOrder = 1 end object Edit6: TEdit Left = 88 Top = 80 Width = 205 Height = 21 TabOrder = 2 end object CheckBox17: TCheckBox Tag = 333 Left = 88 Top = 104 Width = 205 Height = 17 Caption = '&Prompt for password' TabOrder = 3 OnClick = CheckBox17Click end object ComboBoxEx1: TComboBoxEx Left = 88 Top = 24 Width = 205 Height = 22 Images = MainForm.ImageList1 ShowImages = True DropDownCount = 10 ItemHeight = 16 TabOrder = 0 OnChange = CheckBox17Click end end object TabSheet3: TTabSheet Tag = 197 HelpContext = 15 Caption = 'Enhanced' object Bevel13: TBevel Left = 4 Top = 138 Width = 301 Height = 5 Shape = bsTopLine end object Bevel9: TBevel Left = 4 Top = 94 Width = 301 Height = 5 Shape = bsTopLine end object Bevel7: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label10: TLabel Tag = 203 Left = 4 Top = 4 Width = 30 Height = 13 Caption = 'Printer' end object Bevel1: TBevel Left = 4 Top = 50 Width = 301 Height = 5 Shape = bsTopLine end object Label7: TLabel Tag = 206 Left = 16 Top = 64 Width = 24 Height = 13 Caption = '&Font:' end object SpeedButton1: TSpeedButton Tag = -363 Left = 279 Top = 60 Width = 22 Height = 22 Hint = 'Select font' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} OnClick = SpeedButton1Click end object Label2: TLabel Tag = 204 Left = 4 Top = 44 Width = 27 Height = 13 Caption = 'Editor' end object Label18: TLabel Tag = 320 Left = 4 Top = 88 Width = 43 Height = 13 Caption = 'Message' end object Label19: TLabel Tag = 321 Left = 16 Top = 108 Width = 131 Height = 13 Caption = '&Mark message as read after' FocusControl = NumEdit1 end object Label20: TLabel Tag = 322 Left = 228 Top = 108 Width = 40 Height = 13 Caption = 'seconds' end object Label30: TLabel Tag = 348 Left = 4 Top = 132 Width = 41 Height = 13 Caption = 'Captions' end object Label31: TLabel Tag = 349 Left = 16 Top = 152 Width = 48 Height = 13 Caption = '&Accounts:' FocusControl = Edit9 end object Label32: TLabel Tag = 350 Left = 16 Top = 180 Width = 52 Height = 13 Caption = '&Trash Bag:' FocusControl = Edit10 end object Label33: TLabel Tag = 351 Left = 16 Top = 208 Width = 53 Height = 13 Caption = '&Repository:' FocusControl = Edit11 end object CheckBox8: TCheckBox Tag = 202 Left = 16 Top = 20 Width = 285 Height = 17 Caption = '&Friendly Printer' TabOrder = 0 end object Panel3: TPanel Left = 68 Top = 60 Width = 209 Height = 21 Alignment = taLeftJustify BevelOuter = bvLowered TabOrder = 1 end object NumEdit1: TNumEdit Left = 171 Top = 104 Width = 37 Height = 21 AutoSize = False MaxLength = 2 TabOrder = 2 Text = '0' Min = 0 Max = 99 Value = 0 end object UpDown2: TUpDown Left = 208 Top = 104 Width = 15 Height = 21 Associate = NumEdit1 Min = 0 Max = 30000 Position = 0 TabOrder = 3 Thousands = False Wrap = False end object Edit9: TEdit Left = 92 Top = 148 Width = 209 Height = 21 TabOrder = 4 end object Edit10: TEdit Left = 92 Top = 176 Width = 209 Height = 21 TabOrder = 5 end object Edit11: TEdit Left = 92 Top = 204 Width = 209 Height = 21 TabOrder = 6 end end object TabSheet6: TTabSheet Tag = 343 HelpContext = 18 Caption = 'Sounds' object Bevel10: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label23: TLabel Tag = 338 Left = 4 Top = 4 Width = 92 Height = 13 Caption = 'Play Sound when...' end object Label25: TLabel Tag = 339 Left = 16 Top = 24 Width = 107 Height = 13 Caption = '...&new mail is received:' FocusControl = Edit7 end object SpeedButton3: TSpeedButton Tag = -342 Left = 279 Top = 40 Width = 22 Height = 22 Hint = 'Select Sound File' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} OnClick = SpeedButton3Click end object Label27: TLabel Tag = 340 Left = 16 Top = 68 Width = 83 Height = 13 Caption = '...an &error occurs:' FocusControl = Edit8 end object SpeedButton4: TSpeedButton Tag = -342 Left = 279 Top = 84 Width = 22 Height = 22 Hint = 'Select Sound File' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} OnClick = SpeedButton4Click end object Label28: TLabel Tag = 341 Left = 16 Top = 160 Width = 285 Height = 37 AutoSize = False Caption = 'Leave the edits empty if you do not want any sounds.' WordWrap = True end object Bevel12: TBevel Left = 16 Top = 154 Width = 285 Height = 5 Shape = bsTopLine end object Label34: TLabel Tag = 353 Left = 16 Top = 108 Width = 115 Height = 13 Caption = '...the &status is displayed:' FocusControl = Edit12 end object SpeedButton6: TSpeedButton Tag = -342 Left = 279 Top = 124 Width = 22 Height = 22 Hint = 'Select Sound File' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} OnClick = SpeedButton6Click end object Edit7: TEdit Left = 16 Top = 40 Width = 261 Height = 21 TabOrder = 0 end object Edit8: TEdit Left = 16 Top = 84 Width = 261 Height = 21 TabOrder = 1 end object Edit12: TEdit Left = 16 Top = 124 Width = 261 Height = 21 TabOrder = 2 end end object TabSheet7: TTabSheet Tag = 366 Caption = 'Toolbar' object Label13: TLabel Tag = 370 Left = 16 Top = 208 Width = 285 Height = 33 AutoSize = False Caption = 'Drag and Drop the symbols to your favorite position.' WordWrap = True end object Label35: TLabel Tag = 368 Left = 16 Top = 24 Width = 285 Height = 13 AutoSize = False Caption = '&Current Toolbar:' FocusControl = ListView1 end object Label36: TLabel Tag = 369 Left = 16 Top = 116 Width = 88 Height = 13 AutoSize = False Caption = '&Available Symbols:' FocusControl = ListView2 end object Bevel11: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label37: TLabel Tag = 367 Left = 4 Top = 4 Width = 75 Height = 13 Caption = 'Toolbar Buttons' end object ListView1: TListView Left = 16 Top = 40 Width = 285 Height = 73 Columns = <> DragMode = dmAutomatic ReadOnly = True IconOptions.Arrangement = iaLeft IconOptions.AutoArrange = True OnDragDrop = ListView1DragDrop OnDragOver = ListView1DragOver TabOrder = 1 LargeImages = ImageList1 end object ListView2: TListView Left = 16 Top = 132 Width = 285 Height = 73 Columns = <> DragMode = dmAutomatic ReadOnly = True IconOptions.Arrangement = iaLeft IconOptions.AutoArrange = True OnCompare = ListView2Compare OnDragDrop = ListView2DragDrop OnDragOver = ListView2DragOver TabOrder = 0 LargeImages = ImageList1 end end object TabSheet8: TTabSheet Tag = 371 Caption = 'Style' object Bevel14: TBevel Left = 4 Top = 10 Width = 301 Height = 5 Shape = bsTopLine end object Label38: TLabel Tag = 372 Left = 4 Top = 4 Width = 68 Height = 13 Caption = 'Look and Feel' end object Label39: TLabel Tag = 375 Left = 16 Top = 124 Width = 132 Height = 13 Caption = '&Toolbar Background Image:' FocusControl = Edit13 end object SpeedButton7: TSpeedButton Tag = -364 Left = 279 Top = 140 Width = 22 Height = 22 Hint = 'Select Background Bitmap' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7 B800D8FB7B7B7B7B7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF8 07808888888888888B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888 888DDD8FFFFF8DDDDDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDD} OnClick = SpeedButton7Click end object CheckBox20: TCheckBox Tag = 373 Left = 16 Top = 24 Width = 281 Height = 17 Caption = 'Use &Office fonts (requires font Tahoma)' TabOrder = 0 end object CheckBox21: TCheckBox Tag = 374 Left = 16 Top = 44 Width = 281 Height = 17 Caption = 'Use &flat buttons' TabOrder = 1 end object Edit13: TEdit Left = 16 Top = 140 Width = 261 Height = 21 TabOrder = 5 end object CheckBox22: TCheckBox Tag = 376 Left = 16 Top = 64 Width = 281 Height = 17 Caption = '&Small toolbar buttons' TabOrder = 2 end object CheckBox23: TCheckBox Tag = 380 Left = 16 Top = 84 Width = 285 Height = 17 Caption = '&Show mail count in parentheses' TabOrder = 3 end object CheckBox24: TCheckBox Tag = 381 Left = 16 Top = 104 Width = 285 Height = 17 Caption = '&Hide Animations' TabOrder = 4 end end end end object Panel2: TPanel Left = 0 Top = 0 Width = 330 Height = 29 Align = alTop BevelOuter = bvNone TabOrder = 1 object Image1: TImage Left = 6 Top = 4 Width = 318 Height = 25 AutoSize = True end object Image2: TImage Left = 10 Top = 8 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object Label24: TLabel Tag = 187 Left = 30 Top = 6 Width = 141 Height = 19 Caption = 'Environment Options' Font.Charset = ANSI_CHARSET Font.Color = clCaptionText Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end end object Button3: TButton Tag = 116 Left = 88 Top = 324 Width = 75 Height = 25 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 2 OnClick = Button1Click end object Button4: TButton Tag = 117 Left = 168 Top = 324 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 3 end object Button5: TButton Tag = 118 Left = 248 Top = 324 Width = 75 Height = 25 Caption = '&Help...' TabOrder = 4 OnClick = Button5Click end object OpenDialog1: TOpenDialog Tag = 207 Filter = 'Programs (*.exe;*.com)|*.exe;*.com|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist] Title = 'Select Virus Scanner' Left = 56 Top = 320 end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 100 Left = 26 Top = 327 end object OpenDialog2: TOpenDialog Tag = 334 Filter = 'Sound (*.wav)|*.wav|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist] Title = 'Select Sound File' Left = 92 Top = 336 end object ImageList1: TImageList Height = 28 Width = 28 Top = 320 end object OpenDialog3: TOpenDialog Tag = 365 Filter = 'Bitmap (*.bmp)|*.bmp|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist] Title = 'Select Bitmap' Left = 128 Top = 336 end end