home *** CD-ROM | disk | FTP | other *** search
- object MMEQDlgForm: TMMEQDlgForm
- Left = 282
- Top = 101
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Equalizer-Editor'
- ClientHeight = 254
- ClientWidth = 372
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 7
- Top = 8
- Width = 282
- Height = 57
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 56
- Top = 17
- Width = 34
- Height = 13
- Caption = 'f&1 (Hz):'
- FocusControl = spinf1
- end
- object Label2: TLabel
- Left = 136
- Top = 17
- Width = 34
- Height = 13
- Caption = 'f&2 (Hz):'
- FocusControl = spinf2
- end
- object Label3: TLabel
- Left = 216
- Top = 17
- Width = 47
- Height = 13
- Caption = '&Gain (dB):'
- FocusControl = spinGain
- end
- object Label4: TLabel
- Left = 16
- Top = 17
- Width = 28
- Height = 13
- Caption = '&Band:'
- FocusControl = FilterComboBox
- end
- object Spectrum: TMMSpectrum
- Left = 7
- Top = 72
- Width = 282
- Height = 177
- Tag2 = 0
- Bevel.BevelInner = bvLowered
- Bevel.BevelOuter = bvRaised
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 3
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- DrawFreqScale = True
- DrawGrid = True
- Bar3Color = clAqua
- Inactive3Color = clTeal
- DrawInactive = False
- BitLength = b16Bit
- SampleRate = 8000
- FFTLength = 256
- Kind = skLines
- Window = fwRectangular
- VerticalScale = 1
- NumPeaks = 0
- end
- object btnSave: TButton
- Left = 301
- Top = 216
- Width = 62
- Height = 25
- Caption = '&Save...'
- TabOrder = 6
- OnClick = btnSaveClick
- end
- object btnLoad: TButton
- Left = 301
- Top = 184
- Width = 62
- Height = 25
- Caption = '&Load...'
- TabOrder = 5
- OnClick = btnLoadClick
- end
- object btnReset: TButton
- Left = 301
- Top = 112
- Width = 62
- Height = 25
- Caption = '&Reset'
- TabOrder = 3
- OnClick = btnResetClick
- end
- object btnCancel: TButton
- Left = 301
- Top = 40
- Width = 62
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object btnOK: TButton
- Left = 301
- Top = 8
- Width = 62
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object btnClear: TButton
- Left = 301
- Top = 144
- Width = 62
- Height = 25
- Caption = '&Clear'
- TabOrder = 4
- OnClick = btnClearClick
- end
- object FilterComboBox: TComboBox
- Left = 16
- Top = 33
- Width = 33
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 7
- OnChange = FilterComboBoxChange
- end
- object spinf1: TMMSpinButton
- Left = 114
- Top = 32
- Width = 13
- Height = 24
- OnChange = spinChange
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBlack
- Bevel.OuterShadowColor = clBlack
- DownGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77F77700000077770777777778FF77000000777000777777888FF70000007700
- 000777788888FF00000070000000778888888700000077777777777777777700
- 0000}
- DownNumGlyphs = 2
- FocusControl = mef1
- TabOrder = 9
- UpGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777F
- FFFFFF0000007000000077888888870000007700000777788888770000007770
- 0077777788877700000077770777777778777700000077777777777777777700
- 0000}
- UpNumGlyphs = 2
- ButtonFace = True
- MiddleButton = True
- MaxValue = 2205000
- end
- object spinf2: TMMSpinButton
- Left = 194
- Top = 32
- Width = 13
- Height = 24
- OnChange = spinChange
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBlack
- Bevel.OuterShadowColor = clBlack
- DownGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77F77700000077770777777778FF77000000777000777777888FF70000007700
- 000777788888FF00000070000000778888888700000077777777777777777700
- 0000}
- DownNumGlyphs = 2
- FocusControl = mef2
- TabOrder = 11
- UpGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777F
- FFFFFF0000007000000077888888870000007700000777788888770000007770
- 0077777788877700000077770777777778777700000077777777777777777700
- 0000}
- UpNumGlyphs = 2
- ButtonFace = True
- MiddleButton = True
- MaxValue = 2205000
- end
- object spinGain: TMMSpinButton
- Left = 266
- Top = 32
- Width = 13
- Height = 24
- OnChange = spinChange
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBlack
- Bevel.OuterShadowColor = clBlack
- DownGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77F77700000077770777777778FF77000000777000777777888FF70000007700
- 000777788888FF00000070000000778888888700000077777777777777777700
- 0000}
- DownNumGlyphs = 2
- FocusControl = meGain
- TabOrder = 13
- UpGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777F
- FFFFFF0000007000000077888888870000007700000777788888770000007770
- 0077777788877700000077770777777778777700000077777777777777777700
- 0000}
- UpNumGlyphs = 2
- ButtonFace = True
- MiddleButton = True
- MaxValue = 1600
- MinValue = -9900
- end
- object btnAdd: TButton
- Left = 300
- Top = 80
- Width = 62
- Height = 25
- Caption = '&Add'
- TabOrder = 2
- OnClick = btnAddClick
- end
- object mef1: TMMFloatNumberEdit
- Left = 56
- Top = 33
- Width = 57
- Height = 21
- TabOrder = 8
- Text = '0.00'
- OnExit = maskExit
- OnKeyPress = maskKeyPress
- MaxValue = 22050.000000000000000000
- end
- object mef2: TMMFloatNumberEdit
- Left = 136
- Top = 33
- Width = 57
- Height = 21
- TabOrder = 10
- Text = '0.00'
- OnExit = maskExit
- OnKeyPress = maskKeyPress
- MaxValue = 22050.000000000000000000
- end
- object meGain: TMMFloatNumberEdit
- Left = 216
- Top = 33
- Width = 49
- Height = 21
- TabOrder = 12
- Text = '0.00'
- OnExit = maskExit
- OnKeyPress = maskKeyPress
- MaxValue = 16.000000000000000000
- MinValue = -99.000000000000000000
- Value = -99.000000000000000000
- end
- object TmpEQ: TMMEqualizer
- Filters.ObjectContainer = {455155000108000000556E7469746C6564000100000000}
- Spectrum = Spectrum
- Left = 80
- Top = 84
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'EQU'
- Filter = 'Equalizer-Files(*.equ)|*.equ'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Left = 16
- Top = 84
- end
- object SaveDialog: TSaveDialog
- DefaultExt = 'EQU'
- Filter = 'Equalizer-Files(*.equ)|*.equ'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Left = 48
- Top = 84
- end
- end
-