home *** CD-ROM | disk | FTP | other *** search
- object frmAutoRun: TfrmAutoRun
- Left = 785
- Top = 380
- BorderStyle = bsDialog
- Caption = 'Automatic Playing'
- ClientHeight = 403
- ClientWidth = 382
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object btnOK: TButton
- Left = 214
- Top = 373
- Width = 75
- Height = 23
- HelpContext = 5
- Caption = 'OK'
- Default = True
- TabOrder = 0
- OnClick = btnOKClick
- end
- object btnCancel: TButton
- Left = 296
- Top = 373
- Width = 75
- Height = 23
- HelpContext = 3
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 1
- OnClick = btnCancelClick
- end
- object PageControl1: TPageControl
- Left = 9
- Top = 8
- Width = 364
- Height = 357
- ActivePage = tsDriveAutorun
- TabIndex = 0
- TabOrder = 2
- object tsDriveAutorun: TTabSheet
- Caption = 'Drive Settings'
- object Label45: TLabel
- Left = 12
- Top = 10
- Width = 331
- Height = 35
- AutoSize = False
- Caption =
- 'Specify which drives should be played automatically when media a' +
- 're inserted (if possible).'
- WordWrap = True
- end
- object Label1: TLabel
- Left = 12
- Top = 51
- Width = 54
- Height = 13
- HelpContext = 2349
- Caption = '&Drives:'
- FocusControl = TV
- end
- object TV: TTreeView
- Left = 12
- Top = 68
- Width = 330
- Height = 217
- HelpContext = 2349
- ChangeDelay = 40
- Ctl3D = True
- DragKind = dkDock
- Images = frmDrives.Small
- Indent = 19
- ParentCtl3D = False
- ParentShowHint = False
- ReadOnly = True
- ShowHint = True
- StateImages = frmDrives.Small
- TabOrder = 0
- ToolTips = False
- OnDblClick = TVDblClick
- OnKeyDown = TVKeyDown
- OnMouseDown = TVMouseDown
- end
- object btnAutorunDefault: TButton
- Left = 12
- Top = 295
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = '&Restore Defaults'
- TabOrder = 1
- OnClick = btnAutorunDefaultClick
- end
- end
- object tsAutoPlay: TTabSheet
- Caption = 'AutoPlay'
- ImageIndex = 2
- OnShow = tsAutoPlayShow
- object Label4: TLabel
- Left = 12
- Top = 10
- Width = 327
- Height = 46
- AutoSize = False
- Caption =
- 'Select a drive and click Configure AutoPlay to assign individual' +
- ' autoplay functions to drives with specific types of content (su' +
- 'ch as images, music or videos).'
- WordWrap = True
- end
- object Label5: TLabel
- Left = 12
- Top = 60
- Width = 208
- Height = 13
- HelpContext = 2388
- Caption = 'Drives with removable media:'
- end
- object lbAutoPlay: TBigCheckListBox
- Left = 12
- Top = 77
- Width = 330
- Height = 101
- HelpContext = 2388
- Checkboxes = False
- SmallList = True
- NoMouseScrolling = False
- SelColor = clHighlight
- TabOrder = 0
- OnDblClick = btnShowAutoPlaySettingsXPClick
- end
- object btnShowAutoPlaySettingsXP: TButton
- Left = 215
- Top = 186
- Width = 128
- Height = 24
- HelpContext = 2350
- Caption = '&Configure AutoPlay'
- TabOrder = 1
- OnClick = btnShowAutoPlaySettingsXPClick
- end
- end
- object tsAudioCD: TTabSheet
- Caption = 'Audio CDs'
- ImageIndex = 1
- OnShow = tsAudioCDShow
- object imgAudioCD: TImage
- Left = 12
- Top = 10
- Width = 32
- Height = 32
- AutoSize = True
- end
- object Label17: TLabel
- Left = 51
- Top = 10
- Width = 298
- Height = 34
- AutoSize = False
- Caption =
- 'Specify whether music CDs should be played automatically when in' +
- 'serted, and if yes, with which program.'
- WordWrap = True
- end
- object btnAudioCDDefault: TButton
- Left = 12
- Top = 295
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'R&estore Defaults'
- TabOrder = 0
- OnClick = btnAudioCDDefaultClick
- end
- object gbAudioCD: TGroupBox
- Left = 12
- Top = 53
- Width = 329
- Height = 110
- Caption = 'Play audio CDs'
- TabOrder = 1
- object lblAudioCDPlayer: TLabel
- Left = 31
- Top = 44
- Width = 55
- Height = 18
- HelpContext = 2351
- AutoSize = False
- Caption = '&Program:'
- FocusControl = txtAudioCDPlayer
- end
- object chkPlayAudioCDs: TCheckBox
- Left = 12
- Top = 19
- Width = 213
- Height = 17
- HelpContext = 2351
- Caption = 'Play audio CDs automatically'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkPlayAudioCDsClick
- end
- object txtAudioCDPlayer: TEdit
- Left = 88
- Top = 41
- Width = 225
- Height = 21
- HelpContext = 2351
- TabOrder = 1
- Text = 'C:\WINDOWS\CDPlayer.exe /play'
- OnChange = txtAudioCDPlayerChange
- end
- object btnChangeAudioCDPlayer: TButton
- Left = 230
- Top = 70
- Width = 84
- Height = 23
- Caption = 'C&hange...'
- TabOrder = 2
- OnClick = btnChangeAudioCDPlayerClick
- end
- end
- end
- end
- object OpenDlg: TApOpenDialog
- Filter = 'Applications (*.exe; *.com)|*.exe; *.com|All files (*)|*'
- OptionsEx = [ofExNoPlacesBar]
- Title = 'Select program'
- CustDlgParams.PosParams.ShiftX = 0
- CustDlgParams.PosParams.ShiftY = 0
- CustDlgParams.PosParams.FitToScreen = False
- VisibleControls = [dcFolderCombo, dcFolderLabel, dcSelectionCtrl, dcOkBtn, dcCancelBtn, dcFileName, dcFileNameLabel, dcFileType, dcFileTypeLabel, dcToolBar]
- ListViewStyles.HotTrack = False
- ListViewStyles.HotTrackStyles = []
- ListViewStyles.FlatScrollBars = False
- ListViewStyles.GridLines = False
- ListViewStyles.RowSelect = False
- ListViewStyles.EnableRename = True
- ListViewStyles.EnableDelete = True
- ListViewStyles.PopupOnEmpty = True
- ListViewStyles.PopupOnSelection = True
- PlacesBar.Places = <>
- PlacesBar.Visible = False
- PlacesBar.AllowEdit = True
- PlacesBar.AllowDelete = True
- PlacesBar.AllowDrop = True
- PlacesBar.AutoScroll = True
- PlacesBar.BorderStyle = bsNone
- PlacesBar.Native = True
- ExtFilter.ShowFolders = True
- ExtFilter.Enabled = False
- ToolBar.Flat = False
- Left = 9
- Top = 370
- end
- end
-