home *** CD-ROM | disk | FTP | other *** search
- object Embed: TEmbed
- Left = 223
- Top = 100
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Sound'
- ClientHeight = 416
- ClientWidth = 513
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 20
- object TabbedNotebook1: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 513
- Height = 369
- Align = alTop
- TabFont.Color = clBtnText
- TabFont.Height = -13
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 0
- object TTabPage
- Left = 4
- Top = 31
- Caption = 'Source'
- object Label1: TLabel
- Left = 13
- Top = 122
- Width = 277
- Height = 47
- AutoSize = False
- Caption = 'The control to use (none will play the sound in the background)'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 13
- Top = 175
- Width = 277
- Height = 47
- AutoSize = False
- Caption = 'Start the sound when the web page is loaded'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 13
- Top = 229
- Width = 277
- Height = 47
- AutoSize = False
- Caption = 'Number of times to loop the sound (-1 will loop indefinately)'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 13
- Top = 290
- Width = 277
- Height = 31
- AutoSize = False
- Caption = 'Volume of the sound (0 to 100)'
- WordWrap = True
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 8
- Width = 503
- Height = 97
- Caption = 'URL of the sound file'
- TabOrder = 0
- object Edit1: TEdit
- Left = 12
- Top = 28
- Width = 381
- Height = 28
- TabOrder = 0
- end
- object Button1: TButton
- Left = 400
- Top = 26
- Width = 81
- Height = 33
- Caption = 'Browse'
- TabOrder = 1
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 160
- Top = 68
- Width = 177
- Height = 21
- Caption = 'Include Path To File'
- TabOrder = 2
- end
- end
- object ComboBox1: TComboBox
- Left = 301
- Top = 131
- Width = 189
- Height = 28
- Style = csDropDownList
- ItemHeight = 20
- Items.Strings = (
- 'None'
- 'Console'
- 'Small Console')
- TabOrder = 1
- end
- object ComboBox2: TComboBox
- Left = 301
- Top = 184
- Width = 189
- Height = 28
- Style = csDropDownList
- ItemHeight = 20
- Items.Strings = (
- 'True'
- 'False')
- TabOrder = 2
- end
- object SpinEdit1: TSpinEdit
- Left = 301
- Top = 237
- Width = 73
- Height = 31
- MaxLength = 3
- MaxValue = 100
- MinValue = -1
- TabOrder = 3
- Value = -1
- end
- object SpinEdit2: TSpinEdit
- Left = 301
- Top = 290
- Width = 73
- Height = 31
- MaxLength = 3
- MaxValue = 100
- MinValue = 0
- TabOrder = 4
- Value = 0
- end
- end
- object TTabPage
- Left = 4
- Top = 31
- Caption = 'Appearance'
- object Label5: TLabel
- Left = 16
- Top = 33
- Width = 236
- Height = 45
- AutoSize = False
- Caption = 'Width of the sound control in pixels'
- WordWrap = True
- end
- object Label6: TLabel
- Left = 16
- Top = 111
- Width = 236
- Height = 45
- AutoSize = False
- Caption = 'Height of the sound control in pixels'
- WordWrap = True
- end
- object Label7: TLabel
- Left = 16
- Top = 187
- Width = 236
- Height = 45
- AutoSize = False
- Caption = 'How surrounding text should align with the sound control'
- end
- object SpinEdit3: TSpinEdit
- Left = 305
- Top = 40
- Width = 73
- Height = 31
- MaxLength = 3
- MaxValue = 0
- MinValue = 0
- TabOrder = 0
- Value = 0
- end
- object SpinEdit4: TSpinEdit
- Left = 305
- Top = 118
- Width = 73
- Height = 31
- MaxLength = 3
- MaxValue = 0
- MinValue = 0
- TabOrder = 1
- Value = 0
- end
- object ComboBox3: TComboBox
- Left = 305
- Top = 195
- Width = 189
- Height = 28
- Style = csDropDownList
- ItemHeight = 20
- Items.Strings = (
- 'None'
- 'Top'
- 'Bottom'
- 'Center'
- 'Baseline'
- 'Left'
- 'Right'
- 'Text Top'
- 'Middle'
- 'Abs Middle'
- 'Abs Bottom')
- TabOrder = 2
- end
- end
- end
- object BitBtn1: TBitBtn
- Left = 126
- Top = 376
- Width = 89
- Height = 33
- TabOrder = 1
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 298
- Top = 376
- Width = 89
- Height = 33
- TabOrder = 2
- Kind = bkCancel
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'Sound Files (MIDI, WAV)|*.MID;*.WAV'
- Left = 484
- Top = 384
- end
- end
-