home *** CD-ROM | disk | FTP | other *** search
- object Form15: TForm15
- Left = 69
- Top = 79
- BorderStyle = bsDialog
- Caption = 'Reverb'
- ClientHeight = 282
- ClientWidth = 507
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 352
- Top = 20
- Width = 38
- Height = 13
- Caption = '&Reverb:'
- FocusControl = ListBox1
- end
- object Label2: TLabel
- Left = 16
- Top = 55
- Width = 55
- Height = 13
- Caption = '&Initial delay:'
- FocusControl = TrackBar1
- WordWrap = True
- end
- object Label3: TLabel
- Left = 16
- Top = 85
- Width = 66
- Height = 13
- Caption = 'Re&verb delay:'
- FocusControl = TrackBar2
- WordWrap = True
- end
- object Label4: TLabel
- Left = 274
- Top = 48
- Width = 33
- Height = 22
- Caption = '0ms'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label5: TLabel
- Left = 274
- Top = 80
- Width = 33
- Height = 22
- Caption = '0ms'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 16
- Top = 128
- Width = 38
- Height = 13
- Caption = '&Density:'
- FocusControl = ListBox1
- WordWrap = True
- end
- object Label8: TLabel
- Left = 16
- Top = 23
- Width = 60
- Height = 13
- Caption = 'Reverb &time:'
- FocusControl = TrackBar4
- WordWrap = True
- end
- object Label9: TLabel
- Left = 272
- Top = 17
- Width = 53
- Height = 22
- Caption = '100ms'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label10: TLabel
- Left = 16
- Top = 167
- Width = 38
- Height = 13
- Caption = '&Original:'
- FocusControl = TrackBar5
- WordWrap = True
- end
- object Label11: TLabel
- Left = 276
- Top = 160
- Width = 28
- Height = 22
- Caption = '0%'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label12: TLabel
- Left = 16
- Top = 197
- Width = 38
- Height = 13
- Caption = 'Rever&b:'
- FocusControl = TrackBar6
- WordWrap = True
- end
- object Label13: TLabel
- Left = 276
- Top = 192
- Width = 28
- Height = 22
- Caption = '0%'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object ListBox1: TListBox
- Left = 352
- Top = 40
- Width = 137
- Height = 97
- ItemHeight = 13
- Items.Strings = (
- 'Big empty room'
- 'Small empty room'
- 'Church'
- 'Theater'
- 'Pipe')
- TabOrder = 0
- OnClick = ListBox1Click
- end
- object Button1: TButton
- Left = 164
- Top = 245
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 268
- Top = 245
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 88
- Top = 48
- Width = 169
- Height = 33
- Max = 50
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object TrackBar2: TTrackBar
- Left = 88
- Top = 80
- Width = 169
- Height = 33
- Max = 50
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- object TrackBar4: TTrackBar
- Left = 88
- Top = 17
- Width = 169
- Height = 33
- Ctl3D = True
- Max = 3000
- Orientation = trHorizontal
- ParentCtl3D = False
- PageSize = 1
- Frequency = 500
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 5
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar4Change
- end
- object TrackBar5: TTrackBar
- Left = 88
- Top = 160
- Width = 169
- Height = 33
- Max = 100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 6
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar5Change
- end
- object TrackBar6: TTrackBar
- Left = 88
- Top = 192
- Width = 169
- Height = 33
- Max = 100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 7
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar6Change
- end
- object CheckBox1: TCheckBox
- Left = 352
- Top = 160
- Width = 97
- Height = 17
- Caption = '&Low pass filter'
- TabOrder = 8
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Left = 352
- Top = 192
- Width = 97
- Height = 17
- Caption = 'Only &selection'
- TabOrder = 9
- OnClick = CheckBox2Click
- end
- object RadioGroup1: TRadioGroup
- Left = 96
- Top = 118
- Width = 217
- Height = 33
- Columns = 3
- Items.Strings = (
- 'Low'
- 'Medium'
- 'High')
- TabOrder = 10
- OnClick = RadioGroup1Click
- end
- end
-