home *** CD-ROM | disk | FTP | other *** search
- object MMFIRDlgForm: TMMFIRDlgForm
- Left = 200
- Top = 7
- BorderStyle = bsDialog
- Caption = 'FIR-Filter Editor'
- ClientHeight = 391
- ClientWidth = 389
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- 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 = 298
- Height = 57
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 128
- Top = 17
- Width = 28
- Height = 13
- Caption = 'f& (Hz):'
- FocusControl = spinf1
- end
- object Label3: TLabel
- Left = 216
- Top = 17
- Width = 47
- Height = 13
- Caption = '&Gain (dB):'
- FocusControl = spinGain
- end
- object Label4: TLabel
- Left = 80
- Top = 17
- Width = 27
- Height = 13
- Caption = '&Point:'
- FocusControl = FilterComboBox
- end
- object Label2: TLabel
- Left = 16
- Top = 17
- Width = 29
- Height = 13
- Caption = '&Order:'
- FocusControl = spinOrder
- end
- object Spectrum: TMMSpectrum
- Left = 7
- Top = 208
- Width = 298
- 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 = 317
- Top = 200
- Width = 62
- Height = 25
- Caption = '&Save...'
- TabOrder = 5
- OnClick = btnSaveClick
- end
- object btnLoad: TButton
- Left = 317
- Top = 168
- Width = 62
- Height = 25
- Caption = '&Load...'
- TabOrder = 4
- OnClick = btnLoadClick
- end
- object btnReset: TButton
- Left = 317
- Top = 88
- Width = 62
- Height = 25
- Caption = '&Reset'
- TabOrder = 2
- OnClick = btnResetClick
- end
- object btnCancel: TButton
- Left = 317
- Top = 40
- Width = 62
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object btnOK: TButton
- Left = 317
- Top = 8
- Width = 62
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object btnClear: TButton
- Left = 317
- Top = 120
- Width = 62
- Height = 25
- Caption = '&Clear'
- TabOrder = 3
- OnClick = btnClearClick
- end
- object FilterComboBox: TComboBox
- Left = 80
- Top = 33
- Width = 41
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 8
- OnChange = FilterComboBoxChange
- end
- object spinf1: 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 = mef1
- TabOrder = 9
- UpGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777F
- FFFFFF0000007000000077888888870000007700000777788888770000007770
- 0077777788877700000077770777777778777700000077777777777777777700
- 0000}
- UpNumGlyphs = 2
- ButtonFace = True
- MiddleButton = True
- MaxValue = 2205000
- end
- object spinGain: TMMSpinButton
- Left = 282
- 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 = 11
- UpGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777F
- FFFFFF0000007000000077888888870000007700000777788888770000007770
- 0077777788877700000077770777777778777700000077777777777777777700
- 0000}
- UpNumGlyphs = 2
- ButtonFace = True
- MiddleButton = True
- MaxValue = 600
- MinValue = -9000
- end
- object MMPanel1: TMMPanel
- Left = 8
- Top = 72
- Width = 297
- Height = 129
- 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
- TabOrder = 13
- object Envelope: TMMEnvelope
- Left = 5
- Top = 5
- Width = 287
- Height = 119
- OnTrackBegin = EnvelopeTrackBegin
- OnTrack = EnvelopeTrack
- OnTrackEnd = EnvelopeTrackEnd
- Align = alClient
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- 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 = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- TabOrder = 0
- GridWidthX = 100.000000000000000000
- GridWidthY = 100.000000000000000000
- LocatorColor = clRed
- DrawSolid = True
- DrawGridX = True
- DrawGridY = True
- OnChange = EnvelopeChange
- Points.ObjectContainer = {
- 454E56000100000000E803000000000000E8030000020010544D4D456E76656C
- 6F7065506F696E7400000000F40100000010544D4D456E76656C6F7065506F69
- 6E74E8030000F401000000}
- end
- end
- object spinOrder: TMMSpinButton
- Left = 50
- Top = 32
- Width = 13
- Height = 24
- OnChange = spinOrderChange
- 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 = edOrder
- TabOrder = 6
- UpGlyph.Data = {
- BE000000424DBE00000000000000760000002800000012000000060000000100
- 04000000000048000000CE0E0000C40E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777F
- FFFFFF0000007000000077888888870000007700000777788888770000007770
- 0077777788877700000077770777777778777700000077777777777777777700
- 0000}
- UpNumGlyphs = 2
- ButtonFace = True
- MiddleButton = True
- Increment = 2
- MaxValue = 4096
- MinValue = 1
- Value = 21
- end
- object edOrder: TMMNumberEdit
- Left = 16
- Top = 33
- Width = 33
- Height = 21
- TabOrder = 7
- Text = '21'
- OnExit = edOrderExit
- OnKeyPress = edOrderKeyPress
- MaxValue = 4096
- MinValue = 1
- Value = 21
- Alignment = taRightJustify
- end
- object mef1: TMMFloatNumberEdit
- Left = 128
- Top = 33
- Width = 65
- Height = 21
- TabOrder = 10
- Text = '0.00'
- OnExit = mefExit
- OnKeyPress = mefKeyPress
- MaxValue = 22050.000000000000000000
- Alignment = taRightJustify
- end
- object meGain: TMMFloatNumberEdit
- Left = 216
- Top = 33
- Width = 65
- Height = 21
- TabOrder = 12
- Text = '0.00'
- OnExit = mefExit
- OnKeyPress = edOrderKeyPress
- MaxValue = 6.000000000000000000
- MinValue = -90.000000000000000000
- Value = -90.000000000000000000
- Alignment = taRightJustify
- end
- object TmpFIR: TMMFIRFilter
- Filters.ObjectContainer = {464952000108000000556E7469746C65640000}
- Spectrum = Spectrum
- Left = 80
- Top = 216
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'FIR'
- Filter = 'FIR-Filter Files(*.fir)|*.fir'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Left = 16
- Top = 216
- end
- object SaveDialog: TSaveDialog
- DefaultExt = 'FIR'
- Filter = 'FIR-Filter Files(*.fir)|*.fir'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Left = 48
- Top = 216
- end
- end
-