home *** CD-ROM | disk | FTP | other *** search
- inherited PitchForm: TPitchForm
- Caption = 'Pitch'
- ClientHeight = 212
- ClientWidth = 402
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object Setting: TGroupBox
- Left = 7
- Top = 6
- Width = 388
- Height = 135
- Caption = ' Change pitch by scale factor or relative semitone '
- TabOrder = 0
- object ScaleAxis: TDogAxis
- Left = 80
- Top = 34
- Width = 232
- Height = 16
- Associate = ScaleFader
- Min = 50.000000000000000000
- Max = 200.000000000000000000
- Border = 22
- end
- object SemitoneAxis: TDogAxis
- Left = 80
- Top = 72
- Width = 232
- Height = 16
- Associate = SemitoneFader
- Min = -12.000000000000000000
- Max = 12.000000000000000000
- Border = 22
- end
- object FinetuneAxis: TDogAxis
- Left = 80
- Top = 108
- Width = 232
- Height = 16
- Associate = FinetuneFader
- Min = -99.000000000000000000
- Max = 99.000000000000000000
- Border = 22
- end
- object ByScale: TRadioButton
- Left = 9
- Top = 18
- Width = 68
- Height = 17
- Caption = 'Scale (%):'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = ByChange
- end
- object BySemitone: TRadioButton
- Left = 9
- Top = 56
- Width = 68
- Height = 17
- Caption = 'Semitone:'
- TabOrder = 1
- OnClick = ByChange
- end
- object ScaleFader: TFader
- Left = 80
- Top = 18
- Width = 232
- Height = 16
- TabOrder = 2
- Associate = Scale
- Line = 1.000000000000000000
- Page = 10.000000000000000000
- Min = 50.000000000000000000
- Max = 200.000000000000000000
- Position = 100.000000000000000000
- Stripe = True
- end
- object Scale: TNumEdit
- Left = 317
- Top = 18
- Width = 61
- Height = 21
- Value = 100.000000000000000000
- Min = 50.000000000000000000
- Max = 200.000000000000000000
- Decimal = 1
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'Scale'
- Buddy = ScaleFader
- Caption = '100.0'
- TabOrder = 3
- MaxLength = 8
- end
- object SemitoneFader: TFader
- Left = 80
- Top = 56
- Width = 232
- Height = 16
- Hint = ' (0%)'
- TabOrder = 4
- Associate = Semitone
- Line = 1.000000000000000000
- Page = 1.000000000000000000
- Min = -12.000000000000000000
- Max = 12.000000000000000000
- Stripe = True
- end
- object Semitone: TNumEdit
- Left = 317
- Top = 56
- Width = 61
- Height = 21
- Min = -12.000000000000000000
- Max = 12.000000000000000000
- PageChange = 1.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'Semitone'
- Buddy = SemitoneFader
- Caption = '0'
- TabOrder = 5
- MaxLength = 8
- end
- object FinetuneFader: TFader
- Left = 80
- Top = 92
- Width = 232
- Height = 16
- Hint = ' (0%)'
- TabOrder = 7
- Associate = Finetune
- Line = 1.000000000000000000
- Page = 10.000000000000000000
- Min = -99.000000000000000000
- Max = 99.000000000000000000
- Stripe = True
- end
- object Finetune: TNumEdit
- Left = 317
- Top = 92
- Width = 61
- Height = 21
- Min = -99.000000000000000000
- Max = 99.000000000000000000
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'Fine tune'
- Buddy = FinetuneFader
- Caption = '0'
- TabOrder = 8
- MaxLength = 8
- end
- object FinetuneLabel: TStaticText
- Left = 23
- Top = 92
- Width = 51
- Height = 17
- Alignment = taRightJustify
- Caption = 'Fine tune:'
- TabOrder = 6
- end
- end
- object PreserveGroup: TGroupBox
- Left = 7
- Top = 147
- Width = 388
- Height = 60
- Caption = ' '
- TabOrder = 2
- object FFTSize: TNumEdit
- Left = 114
- Top = 22
- Width = 43
- Height = 21
- Value = 8.000000000000000000
- Min = 8.000000000000000000
- Max = 14.000000000000000000
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'FFT size'
- Caption = '1'
- TabOrder = 1
- MaxLength = 4
- end
- object FFTSizeLabel: TStaticText
- Left = 56
- Top = 25
- Width = 53
- Height = 17
- Alignment = taRightJustify
- Caption = '&FFT size:'
- TabOrder = 0
- end
- object FFTSizeBuddy: TBuddyUpDown
- Left = 157
- Top = 22
- Width = 15
- Height = 21
- Associate = FFTSize
- TabOrder = 2
- end
- object Overlap: TComboBox
- Left = 265
- Top = 22
- Width = 59
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 4
- Items.Strings = (
- '75'
- '88'
- '90'
- '95')
- end
- object OverlapLabel: TStaticText
- Left = 199
- Top = 26
- Width = 61
- Height = 17
- Alignment = taRightJustify
- Caption = 'Overlap (%):'
- TabOrder = 3
- end
- end
- object Preserve: TCheckBox
- Left = 17
- Top = 145
- Width = 96
- Height = 17
- Caption = 'Preserve tempo'
- TabOrder = 1
- end
- end
-