You've already forked lazarus-ccr
c9d65fa82e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2822 8e941d3f-bd1b-0410-a28a-d453659cc2b4
84 lines
1.5 KiB
Plaintext
84 lines
1.5 KiB
Plaintext
object fMain: TfMain
|
|
Left = 347
|
|
Height = 43
|
|
Top = 208
|
|
Width = 308
|
|
HorzScrollBar.Page = 307
|
|
VertScrollBar.Page = 42
|
|
ActiveControl = bRecord
|
|
BorderStyle = bsToolWindow
|
|
Caption = 'Audio Record'
|
|
ClientHeight = 43
|
|
ClientWidth = 308
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.3'
|
|
object Label1: TLabel
|
|
Left = 60
|
|
Height = 14
|
|
Top = 0
|
|
Width = 39
|
|
Caption = 'Source'
|
|
ParentColor = False
|
|
end
|
|
object bRecord: TBitBtn
|
|
Left = 184
|
|
Height = 26
|
|
Top = 12
|
|
Width = 60
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Record'
|
|
OnClick = bRecordClick
|
|
TabOrder = 0
|
|
end
|
|
object cbRecordSource: TComboBox
|
|
Left = 60
|
|
Height = 27
|
|
Top = 12
|
|
Width = 116
|
|
ItemHeight = 0
|
|
OnChange = cbRecordSourceChange
|
|
TabOrder = 1
|
|
end
|
|
object bStop: TBitBtn
|
|
Left = 248
|
|
Height = 26
|
|
Top = 12
|
|
Width = 56
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Stop'
|
|
OnClick = bStopClick
|
|
TabOrder = 2
|
|
end
|
|
object bOpen: TBitBtn
|
|
Left = 4
|
|
Height = 26
|
|
Top = 12
|
|
Width = 51
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Open'
|
|
OnClick = bOpenClick
|
|
TabOrder = 3
|
|
end
|
|
object FileOut1: TACSFileOut
|
|
FileMode = foRewrite
|
|
Input = AudioIn1
|
|
left = 4
|
|
top = 268
|
|
end
|
|
object AudioIn1: TACSAudioIn
|
|
Driver = 'Alsa'
|
|
Device = 0
|
|
InBitsPerSample = 8
|
|
InChannels = 1
|
|
InSampleRate = 8000
|
|
RecTime = 0
|
|
left = 4
|
|
top = 236
|
|
end
|
|
object Mixer1: TACSMixer
|
|
DevNum = 0
|
|
left = 4
|
|
top = 204
|
|
end
|
|
end
|