You've already forked lazarus-ccr
75 lines
1.3 KiB
Plaintext
75 lines
1.3 KiB
Plaintext
![]() |
object fMain: TfMain
|
||
|
BorderStyle = bsToolWindow
|
||
|
Caption = 'Sound Indicator'
|
||
|
ClientHeight = 53
|
||
|
ClientWidth = 400
|
||
|
OnShow = FormShow
|
||
|
PixelsPerInch = 96
|
||
|
HorzScrollBar.Page = 399
|
||
|
VertScrollBar.Page = 52
|
||
|
Left = 276
|
||
|
Height = 53
|
||
|
Top = 155
|
||
|
Width = 400
|
||
|
object Label1: TLabel
|
||
|
Caption = 'Input Level'
|
||
|
Color = clNone
|
||
|
ParentColor = False
|
||
|
Left = 8
|
||
|
Height = 14
|
||
|
Top = 2
|
||
|
Width = 55
|
||
|
end
|
||
|
object Label2: TLabel
|
||
|
Caption = '-3 db'
|
||
|
Color = clNone
|
||
|
ParentColor = False
|
||
|
Left = 192
|
||
|
Height = 14
|
||
|
Top = 36
|
||
|
Width = 26
|
||
|
end
|
||
|
object Label3: TLabel
|
||
|
Caption = '-96 db'
|
||
|
Color = clNone
|
||
|
ParentColor = False
|
||
|
Left = 8
|
||
|
Height = 14
|
||
|
Top = 36
|
||
|
Width = 32
|
||
|
end
|
||
|
object ProgressBar: TProgressBar
|
||
|
Max = 200
|
||
|
Left = 8
|
||
|
Height = 16
|
||
|
Top = 16
|
||
|
Width = 376
|
||
|
end
|
||
|
object AudioIn1: TACSAudioIn
|
||
|
Driver = 'Wavemapper'
|
||
|
InBitsPerSample = 8
|
||
|
InChannels = 1
|
||
|
InSampleRate = 8000
|
||
|
RecTime = -1
|
||
|
left = 9
|
||
|
top = 296
|
||
|
end
|
||
|
object NULLOut1: TACSNULLOut
|
||
|
Input = VolumeQuery
|
||
|
SuspendWhenIdle = True
|
||
|
left = 9
|
||
|
top = 368
|
||
|
end
|
||
|
object VolumeQuery: TACSVolumeQuery
|
||
|
Input = AudioIn1
|
||
|
left = 9
|
||
|
top = 332
|
||
|
end
|
||
|
object Timer1: TTimer
|
||
|
Interval = 100
|
||
|
OnTimer = Timer1Timer
|
||
|
left = 9
|
||
|
top = 264
|
||
|
end
|
||
|
end
|