84 lines
1.5 KiB
Plaintext
84 lines
1.5 KiB
Plaintext
object Form1: TForm1
|
|
ActiveControl = bRecord
|
|
BorderStyle = bsToolWindow
|
|
Caption = 'Audio Record'
|
|
ClientHeight = 43
|
|
ClientWidth = 308
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 90
|
|
HorzScrollBar.Page = 307
|
|
VertScrollBar.Page = 42
|
|
Left = 347
|
|
Height = 43
|
|
Top = 208
|
|
Width = 308
|
|
object Label1: TLabel
|
|
Caption = 'Source'
|
|
Color = clNone
|
|
ParentColor = False
|
|
Left = 60
|
|
Height = 13
|
|
Width = 41
|
|
end
|
|
object bRecord: TBitBtn
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Record'
|
|
NumGlyphs = 0
|
|
OnClick = bRecordClick
|
|
TabOrder = 0
|
|
Left = 184
|
|
Height = 26
|
|
Top = 12
|
|
Width = 60
|
|
end
|
|
object cbRecordSource: TComboBox
|
|
MaxLength = 0
|
|
OnChange = cbRecordSourceChange
|
|
TabOrder = 1
|
|
Left = 60
|
|
Height = 21
|
|
Top = 16
|
|
Width = 116
|
|
end
|
|
object bStop: TBitBtn
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Stop'
|
|
NumGlyphs = 0
|
|
OnClick = bStopClick
|
|
TabOrder = 2
|
|
Left = 248
|
|
Height = 26
|
|
Top = 12
|
|
Width = 56
|
|
end
|
|
object bOpen: TBitBtn
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Open'
|
|
NumGlyphs = 0
|
|
OnClick = bOpenClick
|
|
TabOrder = 3
|
|
Left = 4
|
|
Height = 26
|
|
Top = 12
|
|
Width = 51
|
|
end
|
|
object FileOut1: TACSFileOut
|
|
Input = AudioIn1
|
|
left = 4
|
|
top = 268
|
|
end
|
|
object AudioIn1: TACSAudioIn
|
|
Driver = 'Wavemapper'
|
|
InBitsPerSample = 8
|
|
InChannels = 1
|
|
InSampleRate = 8000
|
|
left = 4
|
|
top = 236
|
|
end
|
|
object Mixer1: TACSMixer
|
|
MixerName = 'Realtek ALC655 rev 0'
|
|
left = 4
|
|
top = 204
|
|
end
|
|
end
|