home *** CD-ROM | disk | FTP | other *** search
- object Form10: TForm10
- Left = 201
- Top = 137
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Special Effects'
- ClientHeight = 229
- ClientWidth = 363
- 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 Label1: TLabel
- Left = 16
- Top = 160
- Width = 54
- Height = 13
- Caption = '&Effect type:'
- FocusControl = ComboBox1
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 16
- Top = 67
- Width = 50
- Height = 13
- Caption = '&Threshold:'
- FocusControl = TrackBar1
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 80
- Top = 95
- Width = 6
- Height = 13
- Caption = '0'
- end
- object Label4: TLabel
- Left = 288
- Top = 95
- Width = 26
- Height = 13
- Caption = '100%'
- end
- object Label5: TLabel
- Left = 320
- Top = 60
- Width = 12
- Height = 26
- Caption = '0'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 80
- Top = 142
- Width = 6
- Height = 13
- Caption = '0'
- end
- object Label7: TLabel
- Left = 288
- Top = 142
- Width = 26
- Height = 13
- Caption = '100%'
- end
- object Label8: TLabel
- Left = 320
- Top = 107
- Width = 12
- Height = 26
- Caption = '0'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label9: TLabel
- Left = 16
- Top = 113
- Width = 28
- Height = 13
- Caption = '&Ratio:'
- FocusControl = TrackBar2
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 361
- Height = 27
- Stretch = True
- end
- object Image2: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Image3: TImage
- Left = 270
- Top = 0
- Width = 93
- Height = 229
- Align = alRight
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Transparent = True
- end
- object titol: TLabel
- Left = 65
- Top = 32
- Width = 233
- Height = 24
- Alignment = taCenter
- AutoSize = False
- Caption = 'Effect Selection'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold, fsUnderline]
- ParentFont = False
- WordWrap = True
- end
- object TrackBar2: TTrackBar
- Left = 72
- Top = 109
- Width = 233
- Height = 33
- Ctl3D = True
- Max = 100
- Orientation = trHorizontal
- ParentCtl3D = False
- Frequency = 26
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- object ComboBox1: TComboBox
- Left = 80
- Top = 157
- Width = 218
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '1.-Telephone line'
- '2.-Robotic voice'
- '3.-Electric guitar distortion'
- '4.-Noise gate'
- '5.-Compressor'
- '6.-Expander'
- '7.-Hard metallization'
- '8.-Soft metallization'
- '9.-Chopper'
- '10.-Quantifier'
- '11.-Great Chopper'
- '12.-Karaoke'
- '13.-Spectral Average')
- TabOrder = 0
- OnClick = ComboBox1Click
- end
- object Button1: TButton
- Left = 103
- Top = 192
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 183
- Top = 192
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 72
- Top = 63
- Width = 233
- Height = 33
- Ctl3D = True
- Max = 100
- Orientation = trHorizontal
- ParentCtl3D = False
- Frequency = 26
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- end
-