home *** CD-ROM | disk | FTP | other *** search
- object DoSound: TDoSound
- Left = 259
- Top = 115
- BorderStyle = bsDialog
- Caption = 'Set Sound'
- ClientHeight = 157
- ClientWidth = 241
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Arial'
- Font.Style = []
- KeyPreview = True
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnShow = FormShow
- TextHeight = 19
- object Bevel1: TBevel
- Left = 5
- Top = 5
- Width = 231
- Height = 26
- Shape = bsFrame
- Style = bsRaised
- end
- object Bevel2: TBevel
- Left = 5
- Top = 35
- Width = 231
- Height = 91
- Shape = bsFrame
- Style = bsRaised
- end
- object OkButton: TButton
- Left = 20
- Top = 130
- Width = 91
- Height = 24
- Caption = '&Ok'
- Default = True
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = OkButtonClick
- end
- object CancelButton: TButton
- Left = 124
- Top = 130
- Width = 91
- Height = 24
- Caption = '&Cancel'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = CancelButtonClick
- end
- object Beep: TRadioButton
- Left = 15
- Top = 10
- Width = 171
- Height = 17
- Caption = '&Beep'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object WaveFile: TRadioButton
- Left = 15
- Top = 40
- Width = 96
- Height = 17
- Caption = '&Wave File'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object ProgPath: TEdit
- Left = 10
- Top = 65
- Width = 216
- Height = 25
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- end
- object Browse: TButton
- Left = 115
- Top = 38
- Width = 66
- Height = 24
- Caption = '&Browse'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = BrowseClick
- end
- object WaitFor: TCheckBox
- Left = 10
- Top = 100
- Width = 216
- Height = 17
- Caption = 'Wait for wave file to &finish'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- end
- object Test: TButton
- Left = 185
- Top = 38
- Width = 46
- Height = 24
- Caption = '&Test'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = TestClick
- end
- object MyOpenDialog: TOpenDialog
- DefaultExt = 'WAV'
- Filter = 'Wave Files (*.WAV)|*.WAV'
- Title = 'Select Wave File'
- Left = 190
- Top = 5
- end
- end
-