object Form10: TForm10 Left = 167 Top = 141 BorderIcons = [] BorderStyle = bsDialog Caption = 'Special Effects' ClientHeight = 229 ClientWidth = 362 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 22 Width = 61 Height = 15 Caption = '&Effect type:' FocusControl = ComboBox1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 16 Top = 64 Width = 58 Height = 15 Caption = '&Threshold:' FocusControl = TrackBar1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 80 Top = 88 Width = 6 Height = 13 Caption = '0' end object Label4: TLabel Left = 288 Top = 88 Width = 18 Height = 13 Caption = '127' end object Label5: TLabel Left = 320 Top = 56 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 = 136 Width = 6 Height = 13 Caption = '0' end object Label7: TLabel Left = 288 Top = 136 Width = 18 Height = 13 Caption = '100' end object Label8: TLabel Left = 320 Top = 104 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 = 112 Width = 34 Height = 15 Caption = '&Ratio.:' FocusControl = TrackBar2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Image1: TImage Left = 24 Top = 165 Width = 75 Height = 50 Picture.Data = {} Stretch = True end object ComboBox1: TComboBox Left = 88 Top = 18 Width = 209 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') TabOrder = 0 OnClick = ComboBox1Click end object Button1: TButton Left = 143 Top = 192 Width = 75 Height = 25 Caption = '&OK' Default = True TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 231 Top = 192 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' TabOrder = 2 OnClick = Button2Click end object TrackBar1: TTrackBar Left = 72 Top = 56 Width = 233 Height = 33 Ctl3D = True Max = 127 Orientation = trHorizontal ParentCtl3D = False Frequency = 26 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 3 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar1Change end object TrackBar2: TTrackBar Left = 72 Top = 102 Width = 233 Height = 33 Ctl3D = True Max = 100 Orientation = trHorizontal ParentCtl3D = False Frequency = 26 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 4 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar2Change end end