home *** CD-ROM | disk | FTP | other *** search
Text File | 2002-12-06 | 48.8 KB | 1,801 lines |
- object WaveEffectsForm: TWaveEffectsForm
- Left = 469
- Top = 240
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsToolWindow
- Caption = 'Effect settings'
- ClientHeight = 403
- ClientWidth = 390
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 2
- Top = 2
- Width = 384
- Height = 370
- ActivePage = tsReverb
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Denoise/Decrackle'
- object Label17: TLabel
- Left = 24
- Top = 64
- Width = 103
- Height = 13
- Caption = 'Quality enhancement:'
- end
- object Label18: TLabel
- Left = 338
- Top = 113
- Width = 20
- Height = 13
- Caption = 'Low'
- end
- object Label19: TLabel
- Left = 16
- Top = 113
- Width = 22
- Height = 13
- Caption = 'High'
- end
- object Bevel2: TBevel
- Left = 8
- Top = 35
- Width = 361
- Height = 7
- Shape = bsTopLine
- end
- object DenoiseSlider: TMMSlider
- Left = 64
- Top = 95
- Width = 253
- Height = 43
- HelpContext = 310
- OnChange = DenoiseSliderChange
- TabOrder = 0
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 5
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvNone
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnHighlight
- Groove.InnerShadowColor = clBtnShadow
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- FocusAction = faNone
- MinValue = -30
- MaxValue = 30
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 21
- Scale.EnlargeEvery = 5
- Scale.Size = 7
- Scale.Origin = soInner
- Scale.Connect = True
- end
- object cbDeNoise: TCheckBox
- Left = 16
- Top = 8
- Width = 273
- Height = 17
- HelpContext = 320
- Caption = 'Enable Denoise'
- TabOrder = 1
- OnClick = cbDeNoiseClick
- end
- end
- object tsPitch: TTabSheet
- Caption = 'Pitch'
- object Label20: TLabel
- Left = 328
- Top = 88
- Width = 29
- Height = 13
- Caption = 'Faster'
- end
- object Label21: TLabel
- Left = 16
- Top = 88
- Width = 32
- Height = 13
- Caption = 'Slower'
- end
- object Bevel3: TBevel
- Left = 8
- Top = 35
- Width = 361
- Height = 7
- Shape = bsTopLine
- end
- object cbPitchEnabled: TCheckBox
- Left = 16
- Top = 8
- Width = 273
- Height = 17
- HelpContext = 290
- Caption = 'Enable Pitch filter'
- TabOrder = 0
- OnClick = cbPitchEnabledClick
- end
- object PitchSlider: TMMSlider
- Left = 72
- Top = 75
- Width = 234
- HelpContext = 300
- OnChange = PitchSliderChange
- TabOrder = 1
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 5
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvNone
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnHighlight
- Groove.InnerShadowColor = clBtnShadow
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- FocusAction = faNone
- MinValue = -30
- MaxValue = 30
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 21
- Scale.EnlargeEvery = 5
- Scale.Size = 7
- Scale.Origin = soInner
- Scale.Connect = True
- end
- end
- object tsReverb: TTabSheet
- Caption = 'Reverb'
- object Label1: TLabel
- Left = 17
- Top = 50
- Width = 66
- Height = 13
- Caption = 'Input &Gain (%)'
- FocusControl = edInputGain
- end
- object Label4: TLabel
- Left = 17
- Top = 80
- Width = 65
- Height = 13
- Caption = '&Panorama (%)'
- FocusControl = edReverbPan
- end
- object Label5: TLabel
- Left = 153
- Top = 134
- Width = 48
- Height = 13
- Caption = 'Feedback'
- end
- object Label6: TLabel
- Left = 17
- Top = 110
- Width = 72
- Height = 13
- Caption = '&Output gain (%)'
- FocusControl = edOutputGain
- end
- object Bevel4: TBevel
- Left = 8
- Top = 35
- Width = 361
- Height = 7
- Shape = bsTopLine
- end
- object GroupBox1: TGroupBox
- Left = 48
- Top = 152
- Width = 257
- Height = 179
- Caption = 'Echos'
- TabOrder = 8
- object Label15: TLabel
- Left = 62
- Top = 13
- Width = 49
- Height = 13
- Caption = 'Delay (ms)'
- end
- object Label16: TLabel
- Left = 152
- Top = 13
- Width = 39
- Height = 13
- Caption = 'Gain (%)'
- end
- object cbEcho1: TCheckBox
- Left = 10
- Top = 33
- Width = 40
- Height = 17
- HelpContext = 180
- Caption = '1'
- TabOrder = 0
- end
- object edRevDelay1: TEdit
- Left = 60
- Top = 30
- Width = 50
- Height = 21
- HelpContext = 190
- TabOrder = 1
- Text = '0'
- OnExit = edRevDelayExit
- end
- object udRevDelay1: TUpDown
- Left = 110
- Top = 30
- Width = 15
- Height = 21
- HelpContext = 190
- Associate = edRevDelay1
- Min = 0
- Max = 250
- Position = 0
- TabOrder = 2
- Wrap = False
- end
- object cbEcho2: TCheckBox
- Left = 10
- Top = 57
- Width = 40
- Height = 17
- HelpContext = 180
- Caption = '2'
- TabOrder = 3
- end
- object edRevDelay2: TEdit
- Left = 60
- Top = 54
- Width = 50
- Height = 21
- HelpContext = 190
- TabOrder = 4
- Text = '0'
- OnExit = edRevDelayExit
- end
- object udRevDelay2: TUpDown
- Left = 110
- Top = 54
- Width = 15
- Height = 21
- HelpContext = 190
- Associate = edRevDelay2
- Min = 0
- Max = 250
- Position = 0
- TabOrder = 5
- Wrap = False
- end
- object cbEcho3: TCheckBox
- Left = 10
- Top = 81
- Width = 40
- Height = 17
- HelpContext = 180
- Caption = '3'
- TabOrder = 6
- end
- object edRevDelay3: TEdit
- Left = 60
- Top = 78
- Width = 50
- Height = 21
- HelpContext = 190
- TabOrder = 7
- Text = '0'
- OnExit = edRevDelayExit
- end
- object udRevDelay3: TUpDown
- Left = 110
- Top = 78
- Width = 15
- Height = 21
- HelpContext = 190
- Associate = edRevDelay3
- Min = 0
- Max = 250
- Position = 0
- TabOrder = 8
- Wrap = False
- end
- object cbEcho4: TCheckBox
- Left = 10
- Top = 105
- Width = 40
- Height = 17
- HelpContext = 180
- Caption = '4'
- TabOrder = 9
- end
- object edRevDelay4: TEdit
- Left = 60
- Top = 102
- Width = 50
- Height = 21
- HelpContext = 190
- TabOrder = 10
- Text = '0'
- OnExit = edRevDelayExit
- end
- object udRevDelay4: TUpDown
- Left = 110
- Top = 102
- Width = 15
- Height = 21
- HelpContext = 190
- Associate = edRevDelay4
- Min = 0
- Max = 250
- Position = 0
- TabOrder = 11
- Wrap = False
- end
- object cbEcho5: TCheckBox
- Left = 10
- Top = 129
- Width = 40
- Height = 17
- HelpContext = 180
- Caption = '5'
- TabOrder = 12
- end
- object edRevDelay5: TEdit
- Left = 60
- Top = 126
- Width = 50
- Height = 21
- HelpContext = 190
- TabOrder = 13
- Text = '0'
- OnExit = edRevDelayExit
- end
- object udRevDelay5: TUpDown
- Left = 110
- Top = 126
- Width = 15
- Height = 21
- HelpContext = 190
- Associate = edRevDelay5
- Min = 0
- Max = 250
- Position = 0
- TabOrder = 14
- Wrap = False
- end
- object cbEcho6: TCheckBox
- Left = 10
- Top = 153
- Width = 40
- Height = 17
- HelpContext = 180
- Caption = '6'
- TabOrder = 15
- end
- object edRevDelay6: TEdit
- Left = 60
- Top = 150
- Width = 50
- Height = 21
- HelpContext = 190
- TabOrder = 16
- Text = '0'
- OnExit = edRevDelayExit
- end
- object udRevDelay6: TUpDown
- Left = 110
- Top = 150
- Width = 15
- Height = 21
- HelpContext = 190
- Associate = edRevDelay6
- Min = 0
- Max = 250
- Position = 0
- TabOrder = 17
- Wrap = False
- end
- object edRevGain1: TEdit
- Left = 148
- Top = 30
- Width = 50
- Height = 21
- HelpContext = 220
- TabOrder = 18
- Text = '0'
- OnExit = edRevGainExit
- end
- object udRevGain1: TUpDown
- Left = 198
- Top = 30
- Width = 15
- Height = 21
- HelpContext = 220
- Associate = edRevGain1
- Min = 0
- Position = 0
- TabOrder = 19
- Wrap = False
- end
- object edRevGain2: TEdit
- Left = 148
- Top = 54
- Width = 50
- Height = 21
- HelpContext = 220
- TabOrder = 20
- Text = '0'
- OnExit = edRevGainExit
- end
- object udRevGain2: TUpDown
- Left = 198
- Top = 54
- Width = 15
- Height = 21
- HelpContext = 220
- Associate = edRevGain2
- Min = 0
- Position = 0
- TabOrder = 21
- Wrap = False
- end
- object edRevGain3: TEdit
- Left = 148
- Top = 78
- Width = 50
- Height = 21
- HelpContext = 220
- TabOrder = 22
- Text = '0'
- OnExit = edRevGainExit
- end
- object udRevGain3: TUpDown
- Left = 198
- Top = 78
- Width = 15
- Height = 21
- HelpContext = 220
- Associate = edRevGain3
- Min = 0
- Position = 0
- TabOrder = 23
- Wrap = False
- end
- object edRevGain4: TEdit
- Left = 148
- Top = 102
- Width = 50
- Height = 21
- HelpContext = 220
- TabOrder = 24
- Text = '0'
- OnExit = edRevGainExit
- end
- object udRevGain4: TUpDown
- Left = 198
- Top = 102
- Width = 15
- Height = 21
- HelpContext = 220
- Associate = edRevGain4
- Min = 0
- Position = 0
- TabOrder = 25
- Wrap = False
- end
- object edRevGain5: TEdit
- Left = 148
- Top = 126
- Width = 50
- Height = 21
- HelpContext = 220
- TabOrder = 26
- Text = '0'
- OnExit = edRevGainExit
- end
- object udRevGain5: TUpDown
- Left = 198
- Top = 126
- Width = 15
- Height = 21
- HelpContext = 220
- Associate = edRevGain5
- Min = 0
- Position = 0
- TabOrder = 27
- Wrap = False
- end
- object edRevGain6: TEdit
- Left = 148
- Top = 148
- Width = 50
- Height = 21
- HelpContext = 220
- TabOrder = 28
- Text = '0'
- OnExit = edRevGainExit
- end
- object udRevGain6: TUpDown
- Left = 198
- Top = 148
- Width = 15
- Height = 21
- HelpContext = 220
- Associate = edRevGain6
- Min = 0
- Position = 0
- TabOrder = 29
- Wrap = False
- end
- end
- object cbReverbEnabled: TCheckBox
- Left = 16
- Top = 8
- Width = 249
- Height = 17
- HelpContext = 230
- Caption = 'Enable Reverb'
- TabOrder = 0
- OnClick = cbReverbEnabledClick
- end
- object SliderInputGain: TMMSlider
- Left = 177
- Top = 42
- Width = 183
- Height = 30
- HelpContext = 240
- OnChange = ReverbSliderChange
- TabOrder = 1
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object SliderReverbPan: TMMSlider
- Left = 177
- Top = 74
- Width = 183
- Height = 30
- HelpContext = 250
- OnChange = ReverbSliderChange
- TabOrder = 2
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edInputGain: TMMNumberEdit
- Left = 128
- Top = 48
- Width = 36
- Height = 21
- HelpContext = 240
- MaxLength = 3
- TabOrder = 3
- Text = '1'
- OnExit = edReverbExit
- MaxValue = 100
- MinValue = 1
- Value = 1
- end
- object edReverbPan: TMMNumberEdit
- Left = 128
- Top = 78
- Width = 36
- Height = 21
- HelpContext = 250
- MaxLength = 3
- TabOrder = 4
- Text = '100'
- OnExit = edReverbExit
- MaxValue = 100
- Value = 100
- end
- object cbReverbFilter: TCheckBox
- Left = 17
- Top = 134
- Width = 97
- Height = 17
- HelpContext = 260
- Caption = 'Filter'
- TabOrder = 5
- OnClick = cbReverbFilterClick
- end
- object edOutputGain: TMMNumberEdit
- Left = 128
- Top = 108
- Width = 36
- Height = 21
- HelpContext = 270
- MaxLength = 3
- TabOrder = 6
- Text = '1'
- OnExit = edReverbExit
- MaxValue = 100
- Value = 1
- end
- object SliderOutputGain: TMMSlider
- Left = 177
- Top = 102
- Width = 183
- Height = 30
- HelpContext = 280
- OnChange = ReverbSliderChange
- TabOrder = 7
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object Edit13: TEdit
- Left = 209
- Top = 131
- Width = 49
- Height = 21
- TabOrder = 9
- Text = '0'
- end
- object UpDown13: TUpDown
- Left = 258
- Top = 131
- Width = 15
- Height = 21
- Associate = Edit13
- Min = -99
- Max = 99
- Position = 0
- TabOrder = 10
- Wrap = False
- end
- end
- object tsFlanger: TTabSheet
- Caption = 'Flanger'
- object Label2: TLabel
- Left = 16
- Top = 60
- Width = 49
- Height = 13
- Caption = '&Delay (ms)'
- FocusControl = edDelay
- end
- object lblInputGain: TLabel
- Left = 16
- Top = 90
- Width = 52
- Height = 13
- Caption = '&Dry Mix (%)'
- FocusControl = edDryMix
- end
- object lblWetMix: TLabel
- Left = 16
- Top = 120
- Width = 56
- Height = 13
- Caption = '&Wet Mix (%)'
- FocusControl = edWetMix
- end
- object lblFeedBack: TLabel
- Left = 16
- Top = 150
- Width = 65
- Height = 13
- Caption = '&Feedback (%)'
- FocusControl = edFeedBack
- end
- object lblModRate: TLabel
- Left = 16
- Top = 180
- Width = 72
- Height = 13
- Caption = 'Mod. &Rate (Hz)'
- FocusControl = edRate
- end
- object Label3: TLabel
- Left = 16
- Top = 210
- Width = 78
- Height = 13
- Caption = 'Mod. &Depth (Hz)'
- FocusControl = edDepth
- end
- object Bevel1: TBevel
- Left = 8
- Top = 35
- Width = 361
- Height = 7
- Shape = bsTopLine
- end
- object cbFlangerEnabled: TCheckBox
- Left = 16
- Top = 9
- Width = 95
- Height = 17
- HelpContext = 110
- Caption = 'Enable Flanger'
- TabOrder = 0
- OnClick = cbFlangerEnabledClick
- end
- object edDelay: TMMNumberEdit
- Left = 104
- Top = 58
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 1
- Text = '1'
- OnExit = edFlangerExit
- MaxValue = 100
- MinValue = 1
- Value = 1
- end
- object sliderDelay: TMMSlider
- Left = 176
- Top = 52
- Width = 182
- Height = 30
- HelpContext = 120
- OnChange = FlangerSliderChange
- TabOrder = 2
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MinValue = 1
- MaxValue = 100
- Position = 1
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edDryMix: TMMNumberEdit
- Left = 104
- Top = 88
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 3
- Text = '100'
- OnExit = edFlangerExit
- MaxValue = 100
- Value = 100
- end
- object sliderDryMix: TMMSlider
- Left = 176
- Top = 82
- Width = 182
- Height = 30
- HelpContext = 130
- OnChange = FlangerSliderChange
- TabOrder = 4
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- Position = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edWetMix: TMMNumberEdit
- Left = 104
- Top = 118
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 5
- Text = '0'
- OnExit = edFlangerExit
- MaxValue = 100
- end
- object sliderWetMix: TMMSlider
- Left = 176
- Top = 112
- Width = 182
- Height = 30
- HelpContext = 140
- OnChange = FlangerSliderChange
- TabOrder = 6
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edFeedBack: TMMNumberEdit
- Left = 104
- Top = 148
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 7
- Text = '0'
- OnExit = edFlangerExit
- MaxValue = 99
- end
- object sliderFeedBack: TMMSlider
- Left = 176
- Top = 142
- Width = 182
- Height = 30
- HelpContext = 150
- OnChange = FlangerSliderChange
- TabOrder = 8
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 99
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edRate: TMMFloatNumberEdit
- Left = 104
- Top = 178
- Width = 65
- Height = 21
- TabOrder = 9
- Text = '0.00'
- OnExit = edFlangerExit
- MaxValue = 20
- end
- object sliderRate: TMMSlider
- Left = 176
- Top = 172
- Width = 182
- Height = 30
- HelpContext = 160
- OnChange = FlangerSliderChange
- TabOrder = 10
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 2000
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edDepth: TMMFloatNumberEdit
- Left = 104
- Top = 208
- Width = 65
- Height = 21
- TabOrder = 11
- Text = '0.00'
- OnExit = edFlangerExit
- MaxValue = 20
- end
- object sliderDepth: TMMSlider
- Left = 176
- Top = 202
- Width = 182
- Height = 30
- OnChange = FlangerSliderChange
- TabOrder = 12
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 2000
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- end
- object tsDelay: TTabSheet
- Caption = 'Delay'
- object Label7: TLabel
- Left = 20
- Top = 88
- Width = 68
- Height = 13
- Caption = 'Left delay (ms)'
- end
- object Label8: TLabel
- Left = 20
- Top = 131
- Width = 75
- Height = 13
- Caption = 'Right delay (ms)'
- end
- object Bevel5: TBevel
- Left = 8
- Top = 35
- Width = 361
- Height = 7
- Shape = bsTopLine
- end
- object cbDelayEnabled: TCheckBox
- Left = 16
- Top = 8
- Width = 273
- Height = 17
- HelpContext = 80
- Caption = 'Enable Delay'
- TabOrder = 0
- OnClick = cbDelayEnabledClick
- end
- object LeftDelaySlider: TMMSlider
- Left = 136
- Top = 72
- HelpContext = 90
- OnChange = LeftDelaySliderChange
- TabOrder = 1
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 5
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvNone
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnHighlight
- Groove.InnerShadowColor = clBtnShadow
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- FocusAction = faNone
- MaxValue = 250
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 21
- Scale.EnlargeEvery = 5
- Scale.Size = 7
- Scale.Origin = soInner
- Scale.Connect = True
- end
- object RightDelaySlider: TMMSlider
- Left = 136
- Top = 120
- HelpContext = 100
- TabOrder = 2
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 5
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvNone
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnHighlight
- Groove.InnerShadowColor = clBtnShadow
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- FocusAction = faNone
- MaxValue = 250
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 21
- Scale.EnlargeEvery = 5
- Scale.Size = 7
- Scale.Origin = soInner
- Scale.Connect = True
- end
- end
- object tsPhaseShift: TTabSheet
- Caption = 'Phase shifting'
- object Label9: TLabel
- Left = 16
- Top = 60
- Width = 33
- Height = 13
- Caption = 'Sweep'
- end
- object Label10: TLabel
- Left = 16
- Top = 90
- Width = 52
- Height = 13
- Caption = '&Dry Mix (%)'
- FocusControl = edPhaseDryMix
- end
- object Label11: TLabel
- Left = 16
- Top = 120
- Width = 56
- Height = 13
- Caption = '&Wet Mix (%)'
- FocusControl = edPhaseWetMix
- end
- object Label12: TLabel
- Left = 16
- Top = 150
- Width = 65
- Height = 13
- Caption = '&Feedback (%)'
- FocusControl = edPhaseFeedBack
- end
- object Label13: TLabel
- Left = 16
- Top = 180
- Width = 72
- Height = 13
- Caption = 'Mod. &Rate (Hz)'
- FocusControl = edPhaseRate
- end
- object Label14: TLabel
- Left = 16
- Top = 210
- Width = 78
- Height = 13
- Caption = 'Mod. &Depth (Hz)'
- FocusControl = edPhaseDepth
- end
- object Bevel6: TBevel
- Left = 8
- Top = 35
- Width = 361
- Height = 7
- Shape = bsTopLine
- end
- object PhaseSliderSweep: TMMSlider
- Left = 176
- Top = 52
- Width = 185
- Height = 30
- HelpContext = 11
- OnChange = PhaseSliderChange
- TabOrder = 0
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- Position = 1
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edPhaseDryMix: TMMNumberEdit
- Left = 104
- Top = 88
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 1
- Text = '100'
- OnExit = edPhaserExit
- MaxValue = 100
- Value = 100
- end
- object PhaseSliderDryMix: TMMSlider
- Left = 176
- Top = 82
- Width = 185
- Height = 30
- HelpContext = 20
- OnChange = PhaseSliderChange
- TabOrder = 2
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- Position = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edPhaseWetMix: TMMNumberEdit
- Left = 104
- Top = 118
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 3
- Text = '0'
- OnExit = edPhaserExit
- MaxValue = 100
- end
- object PhaseSliderWetMix: TMMSlider
- Left = 176
- Top = 112
- Width = 185
- Height = 30
- HelpContext = 30
- OnChange = PhaseSliderChange
- TabOrder = 4
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 100
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edPhaseFeedBack: TMMNumberEdit
- Left = 104
- Top = 148
- Width = 65
- Height = 21
- MaxLength = 3
- TabOrder = 5
- Text = '0'
- OnExit = edPhaserExit
- MaxValue = 99
- end
- object PhaseSliderFeedBack: TMMSlider
- Left = 176
- Top = 142
- Width = 185
- Height = 30
- HelpContext = 40
- OnChange = PhaseSliderChange
- TabOrder = 6
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 99
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object PhaseSliderRate: TMMSlider
- Left = 176
- Top = 172
- Width = 185
- Height = 30
- HelpContext = 50
- OnChange = PhaseSliderChange
- TabOrder = 7
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 2000
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object edPhaseRate: TMMFloatNumberEdit
- Left = 104
- Top = 178
- Width = 65
- Height = 21
- TabOrder = 8
- Text = '0.00'
- OnExit = edPhaserExit
- MaxValue = 20
- end
- object edPhaseDepth: TMMFloatNumberEdit
- Left = 104
- Top = 208
- Width = 65
- Height = 21
- TabOrder = 9
- Text = '0.00'
- OnExit = edPhaserExit
- MaxValue = 20
- end
- object PhaseSliderDepth: TMMSlider
- Left = 176
- Top = 202
- Width = 185
- Height = 30
- HelpContext = 60
- OnChange = PhaseSliderChange
- TabOrder = 10
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvNone
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 5
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBtnFace
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Groove.BevelInner = bvLowered
- Groove.BevelOuter = bvLowered
- Groove.BevelInnerWidth = 1
- Groove.BevelOuterWidth = 1
- Groove.BorderStyle = bsNone
- Groove.BorderWidth = 0
- Groove.BorderSpace = 0
- Groove.BorderColor = clBtnFace
- Groove.BorderSpaceColor = clBlack
- Groove.InnerLightColor = clBtnFace
- Groove.InnerShadowColor = clBlack
- Groove.OuterLightColor = clBtnHighlight
- Groove.OuterShadowColor = clBtnShadow
- MaxValue = 2000
- GrooveSize = 0
- ThumbWidth = 6
- ThumbHeight = 15
- ScaleDistance = 11
- ScalePosition = spAboveOrLeft
- Scale.Visible = True
- Scale.Color = clBlack
- Scale.Style = stLowered
- Scale.TickCount = 11
- Scale.EnlargeEvery = 1
- Scale.Size = 4
- Scale.Origin = soOuter
- Scale.Connect = False
- end
- object cbPhaseEnabled: TCheckBox
- Left = 16
- Top = 8
- Width = 273
- Height = 17
- HelpContext = 70
- Caption = 'Enable Phase shifting'
- TabOrder = 11
- OnClick = cbPhaseEnabledClick
- end
- object edPhaseSweep: TMMFloatNumberEdit
- Left = 104
- Top = 56
- Width = 65
- Height = 21
- TabOrder = 12
- Text = '0.00'
- OnExit = edPhaserExit
- MaxValue = 100
- end
- end
- end
- object Button1: TButton
- Left = 312
- Top = 376
- Width = 75
- Height = 23
- HelpContext = 170
- Caption = '&Close'
- TabOrder = 1
- OnClick = Button1Click
- end
- end
-