home *** CD-ROM | disk | FTP | other *** search
Text File | 2003-03-23 | 62.6 KB | 2,409 lines |
- object Form1: TForm1
- Left = 174
- Top = 129
- Width = 584
- Height = 475
- Caption = 'Bitmaps & Waves 3.5'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Scaled = False
- OnActivate = FormActivate
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 321
- Height = 441
- Align = alLeft
- TabOrder = 0
- object SrcPageControl: TPageControl
- Left = 1
- Top = 1
- Width = 319
- Height = 216
- ActivePage = SrcTabSheetOne
- Align = alTop
- TabOrder = 0
- object SrcTabSheetOne: TTabSheet
- Caption = 'Source'
- TabVisible = False
- object SrcImage: TImage
- Left = 0
- Top = 0
- Width = 311
- Height = 206
- Align = alClient
- Stretch = True
- OnDblClick = ResImageDblClick
- end
- end
- object SrcTabSheetTwo: TTabSheet
- Caption = 'Source'
- TabVisible = False
- object SrcImageTwo: TImage
- Left = 0
- Top = 0
- Width = 311
- Height = 206
- Align = alClient
- Stretch = True
- end
- end
- end
- object ResPageControl: TPageControl
- Left = 1
- Top = 217
- Width = 319
- Height = 223
- ActivePage = ResTabSheetOne
- Align = alBottom
- TabOrder = 1
- object ResTabSheetOne: TTabSheet
- Caption = 'Result'
- TabVisible = False
- object ResImage: TImage
- Left = 0
- Top = 0
- Width = 311
- Height = 213
- Align = alClient
- Stretch = True
- OnDblClick = ResImageDblClick
- end
- end
- object ResTabSheetTwo: TTabSheet
- Caption = 'Result'
- TabVisible = False
- object ResImageTwo: TImage
- Left = 0
- Top = 0
- Width = 311
- Height = 213
- Align = alClient
- Stretch = True
- end
- end
- end
- end
- object Panel2: TPanel
- Left = 321
- Top = 0
- Width = 255
- Height = 441
- Align = alRight
- Caption = 'Panel2'
- TabOrder = 1
- object PageControl1: TPageControl
- Left = 1
- Top = 1
- Width = 253
- Height = 296
- ActivePage = InvFourieTabSheet
- Align = alClient
- TabOrder = 0
- OnChange = PageControl1Change
- object FourieTabSheet: TTabSheet
- Caption = 'Fourie'
- object Label1: TLabel
- Left = 16
- Top = 8
- Width = 65
- Height = 16
- Caption = '&Block size'
- end
- object Label2: TLabel
- Left = 112
- Top = 8
- Width = 73
- Height = 16
- Caption = '&Range, dB'
- end
- object FourieSizes: TComboBox
- Left = 16
- Top = 24
- Width = 81
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '32'
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192'
- '16384')
- TabOrder = 0
- end
- object FourieLog: TCheckBox
- Left = 184
- Top = 24
- Width = 49
- Height = 17
- Caption = 'L&og'
- State = cbChecked
- TabOrder = 3
- end
- object FourieRange: TEdit
- Left = 112
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 1
- Text = '60'
- end
- object FourieUpDown: TUpDown
- Left = 153
- Top = 24
- Width = 15
- Height = 21
- Associate = FourieRange
- Min = 10
- Max = 120
- Increment = 10
- Position = 60
- TabOrder = 2
- Wrap = False
- end
- end
- object InvFourieTabSheet: TTabSheet
- Caption = 'Inverse Fourie'
- object Label3: TLabel
- Left = 16
- Top = 8
- Width = 65
- Height = 16
- Caption = '&Block size'
- end
- object Label4: TLabel
- Left = 120
- Top = 8
- Width = 73
- Height = 17
- Caption = '&Range, dB'
- end
- object Label5: TLabel
- Left = 16
- Top = 80
- Width = 65
- Height = 17
- Caption = 'Sa&mpling'
- end
- object Label32: TLabel
- Left = 120
- Top = 80
- Width = 69
- Height = 13
- Caption = '&Transpose, Hz'
- end
- object InvFourieLog: TCheckBox
- Left = 16
- Top = 56
- Width = 49
- Height = 17
- Caption = 'L&og'
- State = cbChecked
- TabOrder = 3
- end
- object InvFourieSizes: TComboBox
- Left = 16
- Top = 24
- Width = 81
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '32'
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192'
- '16384')
- TabOrder = 0
- end
- object InvFourieRange: TEdit
- Left = 120
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 1
- Text = '60'
- end
- object InvFourieUpDown: TUpDown
- Left = 161
- Top = 24
- Width = 16
- Height = 21
- Associate = InvFourieRange
- Min = 10
- Increment = 10
- Position = 60
- TabOrder = 2
- Wrap = False
- end
- object InvFourieSampling: TEdit
- Left = 16
- Top = 96
- Width = 65
- Height = 21
- TabOrder = 4
- Text = '44100'
- end
- object InvFourieTransposeEdit: TEdit
- Left = 120
- Top = 96
- Width = 65
- Height = 21
- Hint = 'Spectrum shift'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- Text = '0'
- end
- end
- object MusicalTabSheet: TTabSheet
- Caption = 'Musical'
- object Label63: TLabel
- Left = 16
- Top = 8
- Width = 43
- Height = 13
- Caption = 'Sampling'
- end
- object Label64: TLabel
- Left = 120
- Top = 8
- Width = 73
- Height = 17
- Caption = '&Range, dB'
- end
- object Label65: TLabel
- Left = 16
- Top = 56
- Width = 84
- Height = 13
- Caption = 'Lowest frequency'
- end
- object Label66: TLabel
- Left = 120
- Top = 56
- Width = 33
- Height = 13
- Caption = 'Pack'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label69: TLabel
- Left = 16
- Top = 104
- Width = 65
- Height = 13
- Caption = 'Pixels/octave'
- end
- object MusicalLog: TCheckBox
- Left = 184
- Top = 24
- Width = 49
- Height = 17
- Caption = 'L&og'
- State = cbChecked
- TabOrder = 0
- end
- object MusicalSampling: TEdit
- Left = 16
- Top = 24
- Width = 65
- Height = 21
- TabOrder = 1
- Text = '44100'
- end
- object MusicalRange: TEdit
- Left = 120
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 2
- Text = '60'
- end
- object UpDown6: TUpDown
- Left = 161
- Top = 24
- Width = 16
- Height = 21
- Associate = MusicalRange
- Min = 10
- Increment = 10
- Position = 60
- TabOrder = 3
- Wrap = False
- end
- object MusicalLowest: TEdit
- Left = 16
- Top = 71
- Width = 65
- Height = 21
- TabOrder = 4
- Text = '55'
- end
- object MusicalPack: TEdit
- Left = 120
- Top = 71
- Width = 33
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- Text = '200'
- end
- object MusicalPixels: TComboBox
- Left = 16
- Top = 120
- Width = 65
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '6'
- '12'
- '24'
- '48')
- TabOrder = 6
- end
- end
- object StereoTabSheet: TTabSheet
- Caption = 'Stereo'
- object PauseLabel: TLabel
- Left = 12
- Top = 173
- Width = 89
- Height = 13
- Hint =
- 'Maximum random pauses to be inserted between looping short sound' +
- 's'
- Caption = 'Random rest, s'
- end
- object PauseEdit: TEdit
- Left = 12
- Top = 192
- Width = 57
- Height = 21
- Hint =
- 'Maximum random pauses to be inserted between looping short sound' +
- 's'
- TabOrder = 0
- Text = '0'
- end
- object ModeRadio: TRadioGroup
- Left = 124
- Top = 160
- Width = 113
- Height = 57
- Hint = 'If the sounds are of different lengths,...'
- Caption = 'The shorter sound'
- ItemIndex = 0
- Items.Strings = (
- 'Loop'
- 'Add silence')
- TabOrder = 1
- OnClick = ModeRadioClick
- end
- object LeftEdit: TEdit
- Left = 6
- Top = 9
- Width = 165
- Height = 21
- Hint = 'Left channel wave file name'
- TabOrder = 2
- end
- object RightEdit: TEdit
- Left = 6
- Top = 41
- Width = 165
- Height = 21
- Hint = 'Right channel wave file name'
- TabOrder = 3
- end
- object LeftBrowseBtn: TButton
- Left = 180
- Top = 8
- Width = 57
- Height = 25
- Hint = 'Browse for left channel sound'
- Caption = 'Browse'
- TabOrder = 4
- OnClick = LeftBrowseBtnClick
- end
- object RightBrowseBtn: TButton
- Left = 180
- Top = 40
- Width = 57
- Height = 25
- Hint = 'Browse for right channel sound'
- Caption = 'Browse'
- TabOrder = 5
- OnClick = RightBrowseBtnClick
- end
- end
- object FilterTabSheet: TTabSheet
- Caption = 'Filters'
- object UseResultButton: TButton
- Left = 168
- Top = 240
- Width = 75
- Height = 25
- Caption = '&Use result'
- TabOrder = 0
- OnClick = UseResultButtonClick
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 0
- Height = 233
- Align = alTop
- Color = clGray
- TabOrder = 1
- object FiltersPageControl: TPageControl
- Left = 1
- Top = 1
- Width = 243
- Height = 232
- ActivePage = EchoFiltSheet
- Align = alTop
- TabOrder = 0
- object SmoothTabSheet: TTabSheet
- Caption = 'Smooth'
- object FiltSmoothDir: TRadioGroup
- Left = 113
- Top = 150
- Width = 121
- Height = 49
- Caption = 'Smoothing Direction'
- ItemIndex = 0
- Items.Strings = (
- 'Time'
- 'Frequency')
- TabOrder = 0
- end
- object GroupBox3: TGroupBox
- Left = 120
- Top = 0
- Width = 113
- Height = 105
- Caption = 'Final value'
- TabOrder = 1
- object Label28: TLabel
- Left = 8
- Top = 16
- Width = 97
- Height = 13
- Caption = '&Front smoothing'
- end
- object Label29: TLabel
- Left = 8
- Top = 56
- Width = 97
- Height = 13
- Caption = '&Rear smoothing'
- end
- object FrontSmoothEdit2: TEdit
- Left = 8
- Top = 32
- Width = 49
- Height = 21
- TabOrder = 0
- Text = '0.1'
- OnChange = FrontSmoothEdit2Change
- end
- object BackSmoothEdit2: TEdit
- Left = 8
- Top = 72
- Width = 49
- Height = 21
- TabOrder = 1
- Text = '0.9'
- OnChange = BackSmoothEdit2Change
- end
- end
- object GroupBox4: TGroupBox
- Left = 2
- Top = 0
- Width = 113
- Height = 105
- Caption = 'Original value'
- TabOrder = 2
- object Label43: TLabel
- Left = 8
- Top = 16
- Width = 97
- Height = 13
- Caption = '&Front smoothing'
- end
- object Label44: TLabel
- Left = 8
- Top = 56
- Width = 97
- Height = 13
- Caption = '&Rear smoothing'
- end
- object FrontSmoothEdit1: TEdit
- Left = 8
- Top = 32
- Width = 49
- Height = 21
- TabOrder = 0
- Text = '0.1'
- OnChange = FrontSmoothEdit1Change
- end
- object BackSmoothEdit1: TEdit
- Left = 8
- Top = 72
- Width = 49
- Height = 21
- TabOrder = 1
- Text = '0.9'
- OnChange = BackSmoothEdit1Change
- end
- end
- object SmoothFilterSynchroCheck: TCheckBox
- Left = 8
- Top = 112
- Width = 97
- Height = 17
- Hint = 'Check to synch original and final values changes.'
- Caption = 'Synchro'
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 3
- end
- end
- object MedianTabSheet: TTabSheet
- Caption = 'Median'
- object Label30: TLabel
- Left = 32
- Top = 24
- Width = 81
- Height = 13
- Caption = 'X &window'
- end
- object Label31: TLabel
- Left = 144
- Top = 24
- Width = 65
- Height = 13
- Caption = '&Y window'
- end
- object FiltMedianXEdit: TEdit
- Left = 32
- Top = 40
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '7'
- end
- object FiltMedianYEdit: TEdit
- Left = 144
- Top = 40
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '1'
- end
- object UpDown2: TUpDown
- Left = 177
- Top = 40
- Width = 15
- Height = 21
- Associate = FiltMedianYEdit
- Min = 1
- Max = 25
- Position = 1
- TabOrder = 2
- Wrap = False
- end
- object UpDown1: TUpDown
- Left = 65
- Top = 40
- Width = 15
- Height = 21
- Associate = FiltMedianXEdit
- Min = 1
- Max = 25
- Position = 7
- TabOrder = 3
- Wrap = False
- end
- end
- object EchoFiltSheet: TTabSheet
- Caption = 'Echo'
- object Label62: TLabel
- Left = 16
- Top = 16
- Width = 49
- Height = 13
- Caption = 'X shift'
- end
- object Label67: TLabel
- Left = 88
- Top = 16
- Width = 49
- Height = 13
- Caption = 'Y shift'
- end
- object Label68: TLabel
- Left = 160
- Top = 16
- Width = 57
- Height = 13
- Caption = 'Copies'
- end
- object Label70: TLabel
- Left = 160
- Top = 64
- Width = 41
- Height = 13
- Caption = 'Fade'
- end
- object FiltEchoXEdit: TEdit
- Left = 16
- Top = 32
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '-8'
- end
- object UpDown7: TUpDown
- Left = 49
- Top = 32
- Width = 15
- Height = 21
- Associate = FiltEchoXEdit
- Min = -250
- Max = 250
- Increment = 4
- Position = -8
- TabOrder = 1
- Wrap = False
- end
- object FiltEchoYEdit: TEdit
- Left = 88
- Top = 32
- Width = 33
- Height = 21
- TabOrder = 2
- Text = '0'
- end
- object UpDown8: TUpDown
- Left = 121
- Top = 32
- Width = 15
- Height = 21
- Associate = FiltEchoYEdit
- Min = -250
- Max = 250
- Increment = 4
- Position = 0
- TabOrder = 3
- Wrap = False
- end
- object FiltEchoNum: TEdit
- Left = 160
- Top = 32
- Width = 33
- Height = 21
- TabOrder = 4
- Text = '3'
- end
- object UpDown9: TUpDown
- Left = 193
- Top = 32
- Width = 15
- Height = 21
- Associate = FiltEchoNum
- Min = 1
- Max = 25
- Position = 3
- TabOrder = 5
- Wrap = False
- end
- object FiltEchoFade: TEdit
- Left = 160
- Top = 80
- Width = 33
- Height = 21
- TabOrder = 6
- Text = '8'
- end
- object UpDown10: TUpDown
- Left = 193
- Top = 80
- Width = 15
- Height = 21
- Associate = FiltEchoFade
- Min = 0
- Max = 200
- Increment = 4
- Position = 8
- TabOrder = 7
- Wrap = False
- end
- end
- object TabSheet1: TTabSheet
- Caption = 'Profile'
- object FiltProfileImage: TImage
- Left = 0
- Top = 0
- Width = 235
- Height = 73
- Cursor = crCross
- Align = alTop
- OnMouseUp = FiltProfileImageMouseUp
- end
- object FileEnvLoadButton: TButton
- Left = 184
- Top = 80
- Width = 50
- Height = 25
- Caption = 'Load'
- TabOrder = 0
- OnClick = FileEnvLoadButtonClick
- end
- object FiltEnvDirection: TRadioGroup
- Left = 112
- Top = 147
- Width = 121
- Height = 49
- Caption = 'Profile Direction'
- ItemIndex = 0
- Items.Strings = (
- 'Time'
- 'Frequency')
- TabOrder = 1
- end
- object FiltProfileGrid: TStringGrid
- Left = 1
- Top = 80
- Width = 105
- Height = 116
- ColCount = 2
- DefaultColWidth = 50
- DefaultRowHeight = 18
- Options = [goFixedVertLine, goFixedHorzLine, goEditing]
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object FiltProfApplyBtn: TButton
- Left = 118
- Top = 80
- Width = 50
- Height = 25
- Hint = 'Transfer values from table'
- Caption = '&Apply'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = FiltProfApplyBtnClick
- end
- object FileEnvSaveButton: TButton
- Left = 185
- Top = 112
- Width = 50
- Height = 25
- Caption = 'Save'
- TabOrder = 4
- OnClick = FileEnvSaveButtonClick
- end
- end
- end
- end
- end
- object ThreadTabSheet: TTabSheet
- Caption = 'Threads'
- object Label20: TLabel
- Left = 46
- Top = 23
- Width = 17
- Height = 13
- Caption = 'Min'
- end
- object Label21: TLabel
- Left = 79
- Top = 7
- Width = 87
- Height = 13
- Caption = 'Frequency smooth'
- end
- object Label22: TLabel
- Left = 79
- Top = 46
- Width = 83
- Height = 13
- Caption = 'Amplitude smooth'
- end
- object Label23: TLabel
- Left = 46
- Top = 62
- Width = 17
- Height = 13
- Caption = 'Min'
- end
- object Label24: TLabel
- Left = 186
- Top = 62
- Width = 20
- Height = 13
- Caption = 'Max'
- end
- object Label26: TLabel
- Left = 10
- Top = 89
- Width = 83
- Height = 16
- Caption = 'Sampling rate'
- end
- object Label27: TLabel
- Left = 10
- Top = 133
- Width = 48
- Height = 13
- Caption = 'Block size'
- end
- object ThreadRangeLabel: TLabel
- Left = 154
- Top = 189
- Width = 73
- Height = 13
- Caption = 'Range, dB'
- end
- object Label25: TLabel
- Left = 186
- Top = 25
- Width = 20
- Height = 13
- Caption = 'Max'
- end
- object ThreadFreqBar: TTrackBar
- Left = 64
- Top = 19
- Width = 120
- Height = 17
- Max = 7
- Min = 1
- Orientation = trHorizontal
- Frequency = 1
- Position = 5
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmTopLeft
- TickStyle = tsAuto
- end
- object ThreadColorCheckBox: TCheckBox
- Left = 139
- Top = 94
- Width = 89
- Height = 17
- Caption = 'Use colors'
- State = cbChecked
- TabOrder = 4
- OnClick = ThreadColorCheckBoxClick
- end
- object ThreadQuintCheckBox: TCheckBox
- Left = 139
- Top = 127
- Width = 87
- Height = 17
- Caption = 'Use quint'
- TabOrder = 5
- end
- object ThreadAmplBar: TTrackBar
- Left = 64
- Top = 57
- Width = 120
- Height = 17
- Max = 7
- Min = 1
- Orientation = trHorizontal
- Frequency = 1
- Position = 5
- SelEnd = 0
- SelStart = 0
- TabOrder = 1
- TickMarks = tmTopLeft
- TickStyle = tsAuto
- end
- object ThreadSnapCheckBox: TCheckBox
- Left = 139
- Top = 158
- Width = 97
- Height = 17
- Caption = 'Snap to notes'
- TabOrder = 7
- end
- object ThreadSampleEdit: TEdit
- Left = 10
- Top = 105
- Width = 49
- Height = 21
- TabOrder = 2
- Text = '44100'
- end
- object ThreadShowCheckBox: TCheckBox
- Left = 139
- Top = 126
- Width = 97
- Height = 17
- Caption = 'Show Objects'
- State = cbChecked
- TabOrder = 6
- Visible = False
- end
- object ThreadSizes: TComboBox
- Left = 10
- Top = 148
- Width = 57
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192')
- TabOrder = 3
- end
- object ThreadRangeEdit: TEdit
- Left = 106
- Top = 188
- Width = 25
- Height = 21
- ReadOnly = True
- TabOrder = 9
- Text = '60'
- end
- object ThreadRangeUpDown: TUpDown
- Left = 131
- Top = 188
- Width = 15
- Height = 21
- Associate = ThreadRangeEdit
- Min = 10
- Increment = 10
- Position = 60
- TabOrder = 10
- Wrap = False
- end
- object ThreadLogCheckBox: TCheckBox
- Left = 43
- Top = 190
- Width = 49
- Height = 17
- Caption = 'Log'
- State = cbChecked
- TabOrder = 8
- OnClick = ThreadLogCheckBoxClick
- end
- end
- object VibTabSheet: TTabSheet
- Caption = 'Vibrations'
- object Label34: TLabel
- Left = 20
- Top = 130
- Width = 74
- Height = 13
- Caption = 'Period, samples'
- end
- object Label35: TLabel
- Left = 20
- Top = 85
- Width = 83
- Height = 16
- Caption = 'Sampling rate'
- end
- object Label36: TLabel
- Left = 20
- Top = 173
- Width = 48
- Height = 13
- Caption = 'Block size'
- end
- object VibrRangeLabel: TLabel
- Left = 178
- Top = 173
- Width = 73
- Height = 13
- Caption = 'Range, dB'
- end
- object Label33: TLabel
- Left = 79
- Top = 7
- Width = 87
- Height = 13
- Caption = 'Frequency smooth'
- end
- object Label37: TLabel
- Left = 46
- Top = 23
- Width = 17
- Height = 13
- Caption = 'Min'
- end
- object Label38: TLabel
- Left = 186
- Top = 25
- Width = 20
- Height = 13
- Caption = 'Max'
- end
- object Label39: TLabel
- Left = 79
- Top = 46
- Width = 83
- Height = 13
- Caption = 'Amplitude smooth'
- end
- object Label40: TLabel
- Left = 46
- Top = 62
- Width = 17
- Height = 13
- Caption = 'Min'
- end
- object Label41: TLabel
- Left = 186
- Top = 62
- Width = 20
- Height = 13
- Caption = 'Max'
- end
- object VibrColorCheckBox: TCheckBox
- Left = 140
- Top = 94
- Width = 89
- Height = 17
- Caption = 'Use colors'
- State = cbChecked
- TabOrder = 5
- OnClick = VibrColorCheckBoxClick
- end
- object VibrQuintCheckBox: TCheckBox
- Left = 140
- Top = 117
- Width = 87
- Height = 17
- Caption = 'Use quint'
- TabOrder = 6
- end
- object VibrSnapCheckBox: TCheckBox
- Left = 140
- Top = 140
- Width = 97
- Height = 17
- Caption = 'Snap to notes'
- TabOrder = 8
- end
- object VibrPeriodEdit: TEdit
- Left = 20
- Top = 146
- Width = 49
- Height = 21
- TabOrder = 3
- Text = '100'
- end
- object VibrSamplingEdit: TEdit
- Left = 20
- Top = 101
- Width = 49
- Height = 21
- TabOrder = 2
- Text = '44100'
- end
- object VibrShowCheckBox: TCheckBox
- Left = 140
- Top = 117
- Width = 97
- Height = 17
- Caption = 'Show Objects'
- State = cbChecked
- TabOrder = 7
- Visible = False
- end
- object VibrSizes: TComboBox
- Left = 20
- Top = 188
- Width = 57
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192')
- TabOrder = 4
- end
- object VibrRangeEdit: TEdit
- Left = 178
- Top = 188
- Width = 25
- Height = 21
- ReadOnly = True
- TabOrder = 10
- Text = '60'
- end
- object VibrRangeUpDown: TUpDown
- Left = 203
- Top = 188
- Width = 15
- Height = 21
- Associate = VibrRangeEdit
- Min = 10
- Increment = 10
- Position = 60
- TabOrder = 11
- Wrap = False
- end
- object VibrLogCheckBox: TCheckBox
- Left = 123
- Top = 189
- Width = 49
- Height = 17
- Caption = 'Log'
- State = cbChecked
- TabOrder = 9
- OnClick = VibrLogCheckBoxClick
- end
- object VibrFreqBar: TTrackBar
- Left = 64
- Top = 19
- Width = 120
- Height = 17
- Max = 7
- Min = 1
- Orientation = trHorizontal
- Frequency = 1
- Position = 5
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmTopLeft
- TickStyle = tsAuto
- end
- object VibrAmplBar: TTrackBar
- Left = 64
- Top = 57
- Width = 120
- Height = 17
- Max = 7
- Min = 1
- Orientation = trHorizontal
- Frequency = 1
- Position = 5
- SelEnd = 0
- SelStart = 0
- TabOrder = 1
- TickMarks = tmTopLeft
- TickStyle = tsAuto
- end
- end
- object MorphTabSheet: TTabSheet
- Caption = 'Morphing'
- object Label9: TLabel
- Left = 134
- Top = 164
- Width = 51
- Height = 13
- Caption = 'Method'
- end
- object MorphInterpolCheckBox: TCheckBox
- Left = 134
- Top = 206
- Width = 97
- Height = 17
- Caption = 'Interpolation'
- State = cbChecked
- TabOrder = 4
- end
- object MorphStyleComboBox: TComboBox
- Left = 134
- Top = 181
- Width = 81
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Add'
- 'Multiply')
- TabOrder = 3
- end
- object MorphGraphPanel: TPanel
- Left = 0
- Top = 0
- Width = 0
- Height = 101
- Align = alTop
- TabOrder = 0
- object Label6: TLabel
- Left = 8
- Top = 2
- Width = 145
- Height = 17
- Caption = 'Hybrid signal contents'
- end
- object Label7: TLabel
- Left = 184
- Top = 1
- Width = 57
- Height = 18
- Alignment = taRightJustify
- Caption = 'Signal 1'
- end
- object Label8: TLabel
- Left = 184
- Top = 82
- Width = 57
- Height = 18
- Alignment = taRightJustify
- Caption = 'Signal 2'
- end
- object MorphGraphImage: TImage
- Left = 4
- Top = 19
- Width = 239
- Height = 65
- Cursor = crCross
- OnMouseUp = MorphGraphImageMouseUp
- end
- end
- object MorphCoeffGrid: TStringGrid
- Left = 1
- Top = 100
- Width = 105
- Height = 137
- ColCount = 2
- DefaultColWidth = 50
- DefaultRowHeight = 18
- Options = [goFixedVertLine, goFixedHorzLine, goEditing]
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object ApplyButton: TButton
- Left = 118
- Top = 104
- Width = 50
- Height = 25
- Hint = 'Transfer values from table'
- Caption = 'Apply'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = ApplyButtonClick
- end
- object MorphLoadBtn: TButton
- Left = 182
- Top = 104
- Width = 50
- Height = 25
- Caption = 'Load'
- TabOrder = 5
- OnClick = MorphLoadBtnClick
- end
- object MorphSaveBtn: TButton
- Left = 183
- Top = 136
- Width = 50
- Height = 25
- Caption = 'Save'
- TabOrder = 6
- OnClick = MorphSaveBtnClick
- end
- end
- object ConvTabSheet: TTabSheet
- Caption = 'Convolution'
- object ConvImage: TImage
- Left = 8
- Top = 40
- Width = 233
- Height = 89
- end
- object Label42: TLabel
- Left = 10
- Top = 138
- Width = 48
- Height = 13
- Caption = 'Block size'
- end
- object ConvBrowseButton: TButton
- Left = 191
- Top = 4
- Width = 51
- Height = 25
- Caption = 'Browse'
- TabOrder = 0
- OnClick = ConvBrowseButtonClick
- end
- object ConvolutionWindowLabel: TEdit
- Left = 8
- Top = 8
- Width = 177
- Height = 21
- Color = clScrollBar
- TabOrder = 1
- end
- object ConvSizes: TComboBox
- Left = 10
- Top = 153
- Width = 57
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192'
- '16384')
- TabOrder = 2
- OnChange = ConvSizesChange
- end
- end
- object ModelSheet: TTabSheet
- Caption = 'Models'
- object Label46: TLabel
- Left = 10
- Top = 4
- Width = 48
- Height = 13
- Caption = 'Block size'
- end
- object Label47: TLabel
- Left = 90
- Top = 2
- Width = 43
- Height = 13
- Caption = 'Sampling'
- end
- object Label48: TLabel
- Left = 168
- Top = 1
- Width = 24
- Height = 13
- Caption = 'Type'
- end
- object Label49: TLabel
- Left = 11
- Top = 84
- Width = 45
- Height = 13
- Caption = 'Argument'
- end
- object DurationText: TLabel
- Left = 11
- Top = 56
- Width = 78
- Height = 13
- Caption = ' --- '
- end
- object Label50: TLabel
- Left = 166
- Top = 61
- Width = 7
- Height = 13
- Caption = '#'
- end
- object ModelSizes: TComboBox
- Left = 10
- Top = 19
- Width = 66
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192'
- '16384'
- '32768'
- '65536'
- '100000'
- '200000'
- '400000')
- TabOrder = 0
- Text = '16384'
- OnChange = ModelsSamplEditChange
- end
- object ModelsSamplEdit: TEdit
- Left = 90
- Top = 18
- Width = 65
- Height = 21
- TabOrder = 1
- Text = '44100'
- OnChange = ModelsSamplEditChange
- end
- object FormulaeEdit: TEdit
- Left = 11
- Top = 140
- Width = 227
- Height = 21
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Text = '(sin(t*10050)+sin(t*10000))/(t*10+0,1)'
- end
- object ModelTypes: TComboBox
- Left = 168
- Top = 18
- Width = 67
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Sinus'
- 'Triangle'
- 'Meander'
- 'Noise'
- 'Custom')
- TabOrder = 2
- OnChange = ModelTypesChange
- end
- object ModelsParEdit: TEdit
- Left = 10
- Top = 101
- Width = 73
- Height = 21
- TabOrder = 5
- Text = '10'
- end
- object ModelTimes: TEdit
- Left = 179
- Top = 56
- Width = 41
- Height = 21
- TabOrder = 3
- Text = '5'
- OnChange = ModelsSamplEditChange
- end
- object UpDown4: TUpDown
- Left = 220
- Top = 56
- Width = 15
- Height = 21
- Associate = ModelTimes
- Min = 1
- Position = 5
- TabOrder = 4
- Wrap = False
- end
- end
- object PhysModTabSheet: TTabSheet
- Caption = 'Physical Models'
- object Label45: TLabel
- Left = 10
- Top = 4
- Width = 48
- Height = 13
- Caption = 'Block size'
- end
- object Label51: TLabel
- Left = 90
- Top = 2
- Width = 43
- Height = 13
- Caption = 'Sampling'
- end
- object Label52: TLabel
- Left = 166
- Top = 61
- Width = 7
- Height = 13
- Caption = '#'
- end
- object PhysDurationText: TLabel
- Left = 11
- Top = 56
- Width = 78
- Height = 13
- Caption = ' --- '
- end
- object Label53: TLabel
- Left = 169
- Top = 2
- Width = 30
- Height = 13
- Caption = 'Carrier'
- end
- object PhysModelSizes: TComboBox
- Left = 10
- Top = 19
- Width = 66
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192'
- '16384'
- '32768'
- '65536'
- '100000'
- '200000'
- '400000')
- TabOrder = 0
- Text = '16384'
- OnChange = PhysModelSizesChange
- end
- object PhysModelSampling: TEdit
- Left = 90
- Top = 18
- Width = 65
- Height = 21
- TabOrder = 1
- Text = '44100'
- OnChange = PhysModelSizesChange
- end
- object PhysModelTimes: TEdit
- Left = 179
- Top = 56
- Width = 41
- Height = 21
- TabOrder = 2
- Text = '5'
- OnChange = PhysModelSizesChange
- end
- object UpDown5: TUpDown
- Left = 220
- Top = 56
- Width = 15
- Height = 21
- Associate = PhysModelTimes
- Min = 1
- Position = 5
- TabOrder = 3
- Wrap = False
- end
- object GroupBox5: TGroupBox
- Left = 6
- Top = 80
- Width = 139
- Height = 65
- Caption = 'Frequency Modulation'
- TabOrder = 4
- object Label54: TLabel
- Left = 8
- Top = 17
- Width = 50
- Height = 13
- Caption = 'Frequency'
- end
- object Label55: TLabel
- Left = 80
- Top = 16
- Width = 50
- Height = 13
- Caption = 'Magnitude'
- end
- object PhysModelModulFreq: TEdit
- Left = 8
- Top = 37
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '7'
- end
- object PhysModelModulAmpl: TEdit
- Left = 80
- Top = 37
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '100'
- end
- end
- object PhysModelCarrier: TEdit
- Left = 169
- Top = 17
- Width = 65
- Height = 21
- TabOrder = 5
- Text = '440'
- end
- object GroupBox6: TGroupBox
- Left = 6
- Top = 152
- Width = 139
- Height = 65
- Caption = 'Feedback'
- TabOrder = 6
- object Label56: TLabel
- Left = 8
- Top = 17
- Width = 49
- Height = 13
- Caption = 'Coeff.1'
- end
- object Label57: TLabel
- Left = 80
- Top = 16
- Width = 49
- Height = 13
- Caption = 'Coeff.2'
- end
- object PhysCoeff1: TEdit
- Left = 8
- Top = 37
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '0,5'
- end
- object PhysCoeff2: TEdit
- Left = 80
- Top = 37
- Width = 33
- Height = 21
- TabOrder = 1
- Text = '0,5'
- end
- end
- end
- object ShuffleTabSheet: TTabSheet
- Caption = 'Shuffle'
- object Label58: TLabel
- Left = 89
- Top = 10
- Width = 80
- Height = 13
- Caption = 'Longest, sec'
- end
- object Label59: TLabel
- Left = 10
- Top = 10
- Width = 79
- Height = 13
- Caption = 'Shortest, sec'
- end
- object Label60: TLabel
- Left = 10
- Top = 114
- Width = 53
- Height = 13
- Caption = 'Result, sec'
- end
- object Label61: TLabel
- Left = 10
- Top = 66
- Width = 73
- Height = 13
- Caption = 'Granularity, sec'
- end
- object ShuffleMinEdit: TEdit
- Left = 10
- Top = 25
- Width = 65
- Height = 21
- TabOrder = 0
- Text = '1'
- OnChange = PhysModelSizesChange
- end
- object ShuffleMaxEdit: TEdit
- Left = 89
- Top = 25
- Width = 65
- Height = 21
- TabOrder = 1
- Text = '2'
- end
- object ShuffleResEdit: TEdit
- Left = 10
- Top = 129
- Width = 65
- Height = 21
- TabOrder = 3
- Text = '30'
- OnChange = PhysModelSizesChange
- end
- object ShuffleGranEdit: TEdit
- Left = 10
- Top = 81
- Width = 65
- Height = 21
- TabOrder = 2
- Text = '1'
- OnChange = PhysModelSizesChange
- end
- end
- object EnvTabSheet: TTabSheet
- Caption = 'Envelopes'
- object Label10: TLabel
- Left = 8
- Top = 4
- Width = 64
- Height = 18
- Caption = 'Range, dB'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Label11: TLabel
- Left = 160
- Top = 19
- Width = 33
- Height = 13
- Caption = 'Pack'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label12: TLabel
- Left = 168
- Top = 60
- Width = 73
- Height = 16
- Caption = 'Block Size'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EnvLogCheckBox: TCheckBox
- Left = 79
- Top = 20
- Width = 49
- Height = 17
- Caption = 'Log'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 2
- Visible = False
- OnClick = EnvLogCheckBoxClick
- end
- object EnvPackEdit: TEdit
- Left = 197
- Top = 15
- Width = 33
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- Text = '16'
- end
- object EnvRangeUpDown: TUpDown
- Left = 33
- Top = 22
- Width = 15
- Height = 21
- Associate = EnvRangeEdit
- Min = 10
- Increment = 10
- Position = 60
- TabOrder = 1
- Visible = False
- Wrap = False
- end
- object EnvRangeEdit: TEdit
- Left = 8
- Top = 22
- Width = 25
- Height = 21
- ReadOnly = True
- TabOrder = 0
- Text = '60'
- Visible = False
- end
- object EnvSizeCombo: TComboBox
- Left = 168
- Top = 81
- Width = 65
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '32'
- '64'
- '128'
- '256'
- '512'
- '1024'
- '2048'
- '4096'
- '8192'
- '16384')
- TabOrder = 5
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 52
- Width = 121
- Height = 69
- Caption = 'Frequencies'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- object Label13: TLabel
- Left = 6
- Top = 18
- Width = 27
- Height = 13
- Caption = 'Min'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label14: TLabel
- Left = 64
- Top = 17
- Width = 41
- Height = 13
- Caption = 'Max'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EnvMinFreqEdit: TEdit
- Left = 4
- Top = 33
- Width = 52
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = '0'
- end
- object EnvMaxFreqEdit: TEdit
- Left = 62
- Top = 33
- Width = 52
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = '1000'
- end
- end
- end
- object InvEnvTabSheet: TTabSheet
- Caption = 'Inverse Envelopes'
- object Label15: TLabel
- Left = 8
- Top = 6
- Width = 64
- Height = 16
- Caption = 'Range, dB'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Label16: TLabel
- Left = 160
- Top = 19
- Width = 38
- Height = 19
- Caption = 'Pack'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label17: TLabel
- Left = 165
- Top = 61
- Width = 68
- Height = 17
- Caption = 'Sa&mpling'
- end
- object Edit1: TEdit
- Left = 8
- Top = 22
- Width = 25
- Height = 21
- ReadOnly = True
- TabOrder = 0
- Text = '60'
- Visible = False
- end
- object UpDown3: TUpDown
- Left = 33
- Top = 22
- Width = 15
- Height = 24
- Min = 10
- Increment = 10
- Position = 60
- TabOrder = 1
- Visible = False
- Wrap = False
- end
- object InvEnvLogCheckBox: TCheckBox
- Left = 79
- Top = 20
- Width = 49
- Height = 17
- Caption = 'Log'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 2
- Visible = False
- end
- object InvEnvPackEdit: TEdit
- Left = 197
- Top = 15
- Width = 33
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- Text = '16'
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 52
- Width = 121
- Height = 69
- Caption = 'Frequencies'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- object Label18: TLabel
- Left = 6
- Top = 18
- Width = 35
- Height = 13
- Caption = 'Min'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label19: TLabel
- Left = 64
- Top = 17
- Width = 41
- Height = 13
- Caption = 'Max'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object InvEnvMinFreqEdit: TEdit
- Left = 4
- Top = 33
- Width = 52
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = '0'
- end
- object InvEnvMaxFreqEdit: TEdit
- Left = 62
- Top = 33
- Width = 52
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = '1000'
- end
- end
- object InvEnvelopSampling: TEdit
- Left = 165
- Top = 79
- Width = 65
- Height = 21
- TabOrder = 5
- Text = '44100'
- end
- end
- end
- object Panel3: TPanel
- Left = 1
- Top = 297
- Width = 253
- Height = 143
- Align = alBottom
- TabOrder = 1
- object LoadBtn: TBitBtn
- Left = 16
- Top = 7
- Width = 80
- Height = 25
- Hint = 'Click to load source data'
- Caption = '&Load'
- Default = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = LoadBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
- 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
- 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- end
- object RenderBtn: TBitBtn
- Left = 16
- Top = 65
- Width = 80
- Height = 25
- Hint = 'Click to start conversion'
- Caption = '&Convert'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = RenderBtnClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
- 3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
- 700077337F3333373777887007333337007733F773F333337733700070333333
- 077037773733333F7F37703707333300080737F373333377737F003333333307
- 78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
- 078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
- 70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
- 3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
- 33337F73FF7377733333078000770333333373377733733333330000}
- NumGlyphs = 2
- end
- object SaveBtn: TBitBtn
- Left = 16
- Top = 95
- Width = 80
- Height = 25
- Hint = 'Save the result of conversion'
- Caption = '&Save'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = SaveBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
- 7700333333337777777733333333008088003333333377F73377333333330088
- 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
- 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
- FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
- 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
- 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
- 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
- 93337FFFF7737777733300000033333333337777773333333333}
- NumGlyphs = 2
- end
- object ExitBtn: TBitBtn
- Left = 164
- Top = 95
- Width = 80
- Height = 25
- Hint = 'Good bye'
- Caption = 'E&xit'
- ModalResult = 8
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = ExitBtnClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
- 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
- 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
- 0333337F777FFFFF7F33330000000000033333777777777773330000}
- NumGlyphs = 2
- end
- object AboutBtn: TBitBtn
- Left = 164
- Top = 65
- Width = 80
- Height = 25
- Hint = 'This is Bitmap Player'
- Caption = 'Help/Update'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = AboutBtnClick
- NumGlyphs = 2
- end
- object PlayBtn: TBitBtn
- Left = 164
- Top = 35
- Width = 80
- Height = 25
- Hint = 'Play the sound created'
- Caption = '&Play'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = PlayBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
- 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
- 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
- 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- end
- object AutoPlayCheckBox: TCheckBox
- Left = 164
- Top = 7
- Width = 80
- Height = 17
- Caption = 'Autoplay'
- TabOrder = 6
- end
- object ProgressBar1: TProgressBar
- Left = 1
- Top = 126
- Width = 251
- Height = 16
- Align = alBottom
- Min = 0
- Max = 100
- Step = 1
- TabOrder = 10
- end
- object BatchBtn: TBitBtn
- Left = 16
- Top = 35
- Width = 80
- Height = 25
- Hint = 'Click to process data batch'
- Caption = '&Batch'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = BatchBtnClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000
- 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000
- FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000
- 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000
- 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F
- FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF
- 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000
- 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555
- 55557F77777775555555000000055555555577777775555555550000}
- NumGlyphs = 2
- end
- object LeftButton: TButton
- Left = 99
- Top = 95
- Width = 25
- Height = 25
- Hint = 'Click to use the result in the left channel'
- Caption = 'L'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = LeftButtonClick
- end
- object RightButton: TButton
- Left = 128
- Top = 95
- Width = 25
- Height = 25
- Hint = 'Click to use the result in the right channel'
- Caption = 'R'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = RightButtonClick
- end
- end
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Left = 424
- Top = 312
- end
- object SaveDialog1: TSaveDialog
- FileEditStyle = fsEdit
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
- Left = 416
- Top = 352
- end
- object ConvOpenDialog: TOpenDialog
- DefaultExt = 'wav'
- FileEditStyle = fsEdit
- Filter = 'Wave files (short ones required)|*.wav'
- FilterIndex = 0
- Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist]
- Title = 'Convolution window - short sound'
- Left = 542
- Top = 413
- end
- object SaveDialog2: TSaveDialog
- DefaultExt = 'wav'
- FileEditStyle = fsEdit
- FileName = 'stereo.wav'
- Filter = 'Sound files (*.wav)|*.wav'
- Options = [ofReadOnly, ofOverwritePrompt, ofPathMustExist]
- Left = 392
- Top = 256
- end
- object OpenDialog2: TOpenDialog
- DefaultExt = 'wav'
- FileEditStyle = fsEdit
- Filter = 'Sound files (*.wav)|*.wav'
- Options = [ofPathMustExist, ofFileMustExist]
- Left = 424
- Top = 256
- end
- object OpenDialog3: TOpenDialog
- DefaultExt = 'env'
- FileEditStyle = fsEdit
- Filter = 'Envelope files (*.env)|*.env'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Left = 539
- Top = 146
- end
- end
-