home *** CD-ROM | disk | FTP | other *** search
- object Form15: TForm15
- Left = 69
- Top = 79
- BorderStyle = bsDialog
- Caption = 'Reverb'
- ClientHeight = 259
- ClientWidth = 450
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 458
- Height = 27
- Stretch = True
- end
- object Label1: TLabel
- Left = 304
- Top = 36
- Width = 38
- Height = 13
- Caption = '&Reverb:'
- FocusControl = ListBox1
- end
- object Label2: TLabel
- Left = 8
- Top = 87
- Width = 55
- Height = 13
- Caption = '&Initial delay:'
- FocusControl = TrackBar1
- WordWrap = True
- end
- object Label3: TLabel
- Left = 8
- Top = 117
- Width = 66
- Height = 13
- Caption = 'Re&verb delay:'
- FocusControl = TrackBar2
- WordWrap = True
- end
- object Label4: TLabel
- Left = 242
- 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 Label5: TLabel
- Left = 242
- Top = 112
- 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 = 8
- Top = 158
- Width = 38
- Height = 13
- Caption = '&Density:'
- FocusControl = ListBox1
- WordWrap = True
- end
- object Label8: TLabel
- Left = 8
- Top = 55
- Width = 60
- Height = 13
- Caption = 'Reverb &time:'
- FocusControl = TrackBar4
- WordWrap = True
- end
- object Label9: TLabel
- Left = 240
- Top = 49
- 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 = 8
- Top = 199
- Width = 38
- Height = 13
- Caption = '&Original:'
- FocusControl = TrackBar5
- WordWrap = True
- end
- object Label11: TLabel
- Left = 244
- 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 Label12: TLabel
- Left = 8
- Top = 229
- Width = 38
- Height = 13
- Caption = 'Rever&b:'
- FocusControl = TrackBar6
- WordWrap = True
- end
- object Label13: TLabel
- Left = 244
- Top = 224
- 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 Image3: TImage
- Left = 278
- Top = 0
- Width = 172
- Height = 259
- Align = alRight
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Image2: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- end
- object ListBox1: TListBox
- Left = 304
- Top = 52
- Width = 137
- Height = 85
- ItemHeight = 13
- Items.Strings = (
- 'Big empty room'
- 'Small empty room'
- 'Church'
- 'Theater'
- 'Pipe')
- TabOrder = 0
- OnClick = ListBox1Click
- end
- object Button1: TButton
- Left = 366
- Top = 200
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 366
- Top = 225
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 73
- Top = 80
- Width = 169
- Height = 33
- Max = 50
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object TrackBar2: TTrackBar
- Left = 73
- Top = 112
- Width = 169
- Height = 33
- Max = 50
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- object TrackBar4: TTrackBar
- Left = 73
- Top = 49
- Width = 169
- Height = 33
- Ctl3D = True
- Max = 3000
- Orientation = trHorizontal
- ParentCtl3D = False
- PageSize = 1
- Frequency = 500
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 5
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar4Change
- end
- object TrackBar5: TTrackBar
- Left = 73
- Top = 192
- Width = 169
- Height = 33
- Max = 100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 6
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar5Change
- end
- object TrackBar6: TTrackBar
- Left = 73
- Top = 224
- Width = 169
- Height = 33
- Max = 100
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 7
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar6Change
- end
- object CheckBox1: TCheckBox
- Left = 304
- Top = 151
- Width = 97
- Height = 17
- Caption = '&Low pass filter'
- TabOrder = 8
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Left = 304
- Top = 167
- Width = 97
- Height = 17
- Caption = 'Only &selection'
- TabOrder = 9
- OnClick = CheckBox2Click
- end
- object RadioGroup1: TRadioGroup
- Left = 81
- Top = 148
- Width = 200
- Height = 33
- Columns = 3
- Items.Strings = (
- 'Low'
- 'Medium'
- 'High')
- TabOrder = 10
- OnClick = RadioGroup1Click
- end
- end
-