diff --git a/components/acs/Demos/linerecord/linerecord.lpi b/components/acs/Demos/linerecord/linerecord.lpi index 2b4c04572..58a41dfa4 100644 --- a/components/acs/Demos/linerecord/linerecord.lpi +++ b/components/acs/Demos/linerecord/linerecord.lpi @@ -1,140 +1,18 @@ - + - - + + + + - - - + + <ActiveWindowIndexAtStart Value="0"/> </General> - <LazDoc Paths=""/> - <Units Count="17"> - <Unit0> - <Filename Value="linerecord.lpr"/> - <IsPartOfProject Value="True"/> - <UnitName Value="linerecord"/> - <UsageCount Value="21"/> - </Unit0> - <Unit1> - <CursorPos X="24" Y="71"/> - <EditorIndex Value="0"/> - <Filename Value="umain.pas"/> - <ComponentName Value="Form1"/> - <IsPartOfProject Value="True"/> - <Loaded Value="True"/> - <ResourceFilename Value="umain.lrs"/> - <TopLine Value="24"/> - <UnitName Value="umain"/> - <UsageCount Value="21"/> - </Unit1> - <Unit2> - <CursorPos X="15" Y="129"/> - <Filename Value="D:/LKomponenten/acs/Src/classes/acs_file.pas"/> - <TopLine Value="129"/> - <UnitName Value="acs_file"/> - <UsageCount Value="10"/> - </Unit2> - <Unit3> - <CursorPos X="3" Y="153"/> - <Filename Value="D:/LKomponenten/acs/Src/classes/acs_classes.pas"/> - <TopLine Value="134"/> - <UnitName Value="acs_classes"/> - <UsageCount Value="10"/> - </Unit3> - <Unit4> - <CursorPos X="15" Y="169"/> - <Filename Value="D:/LKomponenten/acs/Src/classes/acs_mixer.pas"/> - <TopLine Value="153"/> - <UnitName Value="acs_mixer"/> - <UsageCount Value="10"/> - </Unit4> - <Unit5> - <CursorPos X="3" Y="389"/> - <Filename Value="D:/LKomponenten/acs/Src/classes/windows/acs_mixer.inc"/> - <TopLine Value="372"/> - <UsageCount Value="10"/> - </Unit5> - <Unit6> - <CursorPos X="1" Y="2235"/> - <Filename Value="D:/lazarus/lcl/include/control.inc"/> - <TopLine Value="2219"/> - <UsageCount Value="10"/> - </Unit6> - <Unit7> - <CursorPos X="1" Y="645"/> - <Filename Value="D:/lazarus/lcl/EditBtn.pas"/> - <TopLine Value="629"/> - <UnitName Value="EditBtn"/> - <UsageCount Value="10"/> - </Unit7> - <Unit8> - <CursorPos X="1" Y="1379"/> - <Filename Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/> - <TopLine Value="1363"/> - <UnitName Value="acs_wave"/> - <UsageCount Value="10"/> - </Unit8> - <Unit9> - <CursorPos X="27" Y="1335"/> - <Filename Value="D:/acs tmp/Src/Common/ACS_Wave.pas"/> - <TopLine Value="1326"/> - <UnitName Value="ACS_Wave"/> - <UsageCount Value="10"/> - </Unit9> - <Unit10> - <CursorPos X="1" Y="681"/> - <Filename Value="D:/LKomponenten/acs/Src/classes/acs_audio.pas"/> - <TopLine Value="665"/> - <UnitName Value="acs_audio"/> - <UsageCount Value="10"/> - </Unit10> - <Unit11> - <CursorPos X="28" Y="377"/> - <Filename Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/> - <TopLine Value="361"/> - <UsageCount Value="10"/> - </Unit11> - <Unit12> - <CursorPos X="14" Y="125"/> - <Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_StdAudio.pas"/> - <TopLine Value="109"/> - <UnitName Value="acs_stdaudio"/> - <UsageCount Value="10"/> - </Unit12> - <Unit13> - <CursorPos X="1" Y="391"/> - <Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_DXAudio.pas"/> - <TopLine Value="375"/> - <UnitName Value="acs_dxaudio"/> - <UsageCount Value="10"/> - </Unit13> - <Unit14> - <CursorPos X="1" Y="2456"/> - <Filename Value="D:/fpc/packages/extra/winunits/mmsystem.pp"/> - <TopLine Value="2440"/> - <UnitName Value="mmsystem"/> - <UsageCount Value="10"/> - </Unit14> - <Unit15> - <CursorPos X="18" Y="205"/> - <EditorIndex Value="2"/> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/> - <Loaded Value="True"/> - <TopLine Value="197"/> - <UnitName Value="acs_mixer"/> - <UsageCount Value="10"/> - </Unit15> - <Unit16> - <CursorPos X="18" Y="99"/> - <EditorIndex Value="1"/> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Loaded Value="True"/> - <TopLine Value="152"/> - <UsageCount Value="10"/> - </Unit16> - </Units> + <BuildModes Count="1"> + <Item1 Name="default" Default="True"/> + </BuildModes> <PublishOptions> <Version Value="2"/> <IgnoreBinaries Value="False"/> @@ -145,7 +23,7 @@ <local> <FormatVersion Value="1"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> - <Display Use="True" Value=":1"/> + <Display Value=":1"/> </local> </RunParams> <RequiredPackages Count="2"> @@ -156,65 +34,224 @@ <PackageName Value="laz_acs"/> </Item2> </RequiredPackages> - <JumpHistory Count="12" HistoryIndex="11"> - <Position1> + <Units Count="22"> + <Unit0> + <Filename Value="linerecord.lpr"/> + <IsPartOfProject Value="True"/> + <UnitName Value="linerecord"/> + <EditorIndex Value="5"/> + <WindowIndex Value="1"/> + <TopLine Value="1"/> + <CursorPos X="15" Y="9"/> + <UsageCount Value="21"/> + <Loaded Value="True"/> + </Unit0> + <Unit1> + <Filename Value="umain.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="fMain"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + <UnitName Value="umain"/> + <IsVisibleTab Value="True"/> + <EditorIndex Value="0"/> + <WindowIndex Value="1"/> + <TopLine Value="1"/> + <CursorPos X="32" Y="16"/> + <UsageCount Value="21"/> + <Loaded Value="True"/> + <LoadedDesigner Value="True"/> + </Unit1> + <Unit2> + <Filename Value="D:/LKomponenten/acs/Src/classes/acs_file.pas"/> + <UnitName Value="acs_file"/> + <TopLine Value="129"/> + <CursorPos X="15" Y="129"/> + <UsageCount Value="10"/> + </Unit2> + <Unit3> + <Filename Value="D:/LKomponenten/acs/Src/classes/acs_classes.pas"/> + <UnitName Value="acs_classes"/> + <TopLine Value="134"/> + <CursorPos X="3" Y="153"/> + <UsageCount Value="10"/> + </Unit3> + <Unit4> + <Filename Value="D:/LKomponenten/acs/Src/classes/acs_mixer.pas"/> + <UnitName Value="acs_mixer"/> + <TopLine Value="153"/> + <CursorPos X="15" Y="169"/> + <UsageCount Value="10"/> + </Unit4> + <Unit5> + <Filename Value="D:/LKomponenten/acs/Src/classes/windows/acs_mixer.inc"/> + <TopLine Value="372"/> + <CursorPos X="3" Y="389"/> + <UsageCount Value="10"/> + </Unit5> + <Unit6> + <Filename Value="D:/lazarus/lcl/include/control.inc"/> + <TopLine Value="2219"/> + <CursorPos X="1" Y="2235"/> + <UsageCount Value="10"/> + </Unit6> + <Unit7> + <Filename Value="D:/lazarus/lcl/EditBtn.pas"/> + <UnitName Value="EditBtn"/> + <TopLine Value="629"/> + <CursorPos X="1" Y="645"/> + <UsageCount Value="10"/> + </Unit7> + <Unit8> + <Filename Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/> + <UnitName Value="acs_wave"/> + <TopLine Value="1363"/> + <CursorPos X="1" Y="1379"/> + <UsageCount Value="10"/> + </Unit8> + <Unit9> + <Filename Value="D:/acs tmp/Src/Common/ACS_Wave.pas"/> + <UnitName Value="ACS_Wave"/> + <TopLine Value="1326"/> + <CursorPos X="27" Y="1335"/> + <UsageCount Value="10"/> + </Unit9> + <Unit10> + <Filename Value="D:/LKomponenten/acs/Src/classes/acs_audio.pas"/> + <UnitName Value="acs_audio"/> + <TopLine Value="665"/> + <CursorPos X="1" Y="681"/> + <UsageCount Value="10"/> + </Unit10> + <Unit11> + <Filename Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/> + <TopLine Value="361"/> + <CursorPos X="28" Y="377"/> + <UsageCount Value="10"/> + </Unit11> + <Unit12> + <Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_StdAudio.pas"/> + <UnitName Value="acs_stdaudio"/> + <TopLine Value="109"/> + <CursorPos X="14" Y="125"/> + <UsageCount Value="10"/> + </Unit12> + <Unit13> + <Filename Value="D:/LKomponenten/acs/Src/drivers/ACS_DXAudio.pas"/> + <UnitName Value="acs_dxaudio"/> + <TopLine Value="375"/> + <CursorPos X="1" Y="391"/> + <UsageCount Value="10"/> + </Unit13> + <Unit14> + <Filename Value="D:/fpc/packages/extra/winunits/mmsystem.pp"/> + <UnitName Value="mmsystem"/> + <TopLine Value="2440"/> + <CursorPos X="1" Y="2456"/> + <UsageCount Value="10"/> + </Unit14> + <Unit15> + <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/> + <UnitName Value="acs_mixer"/> + <WindowIndex Value="1"/> + <TopLine Value="197"/> + <CursorPos X="18" Y="205"/> + <UsageCount Value="10"/> + </Unit15> + <Unit16> <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="163" Column="1" TopLine="136"/> + <WindowIndex Value="1"/> + <TopLine Value="152"/> + <CursorPos X="18" Y="99"/> + <UsageCount Value="10"/> + </Unit16> + <Unit17> + <Filename Value="umain.lfm"/> + <ComponentName Value="Form1"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + <WindowIndex Value="1"/> + <TopLine Value="1"/> + <CursorPos X="1" Y="1"/> + <ExtraEditorCount Value="1"/> + <ExtraEditor1> + <WindowIndex Value="1"/> + <TopLine Value="1"/> + <CursorPos X="1" Y="1"/> + </ExtraEditor1> + <UsageCount Value="10"/> + <DefaultSyntaxHighlighter Value="LFM"/> + </Unit17> + <Unit18> + <Filename Value="../../Src/classes/acs_audio.pas"/> + <UnitName Value="acs_audio"/> + <EditorIndex Value="1"/> + <WindowIndex Value="1"/> + <TopLine Value="242"/> + <CursorPos X="3" Y="242"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + <DefaultSyntaxHighlighter Value="Delphi"/> + </Unit18> + <Unit19> + <Filename Value="../../Src/fileformats/acs_allformats.pas"/> + <UnitName Value="acs_allformats"/> + <EditorIndex Value="2"/> + <WindowIndex Value="1"/> + <TopLine Value="1"/> + <CursorPos X="8" Y="11"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + <DefaultSyntaxHighlighter Value="Delphi"/> + </Unit19> + <Unit20> + <Filename Value="../../Src/fileformats/acs_mpeg.pas"/> + <UnitName Value="acs_mpeg"/> + <EditorIndex Value="3"/> + <WindowIndex Value="1"/> + <TopLine Value="1"/> + <CursorPos X="1" Y="1"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + <DefaultSyntaxHighlighter Value="Delphi"/> + </Unit20> + <Unit21> + <Filename Value="../../Src/drivers/acs_alsaaudio.pas"/> + <UnitName Value="acs_alsaaudio"/> + <EditorIndex Value="4"/> + <WindowIndex Value="1"/> + <TopLine Value="447"/> + <CursorPos X="1" Y="1"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + <DefaultSyntaxHighlighter Value="Delphi"/> + </Unit21> + </Units> + <JumpHistory Count="3" HistoryIndex="2"> + <Position1> + <Filename Value="umain.pas"/> + <Caret Line="18" Column="21" TopLine="1"/> </Position1> <Position2> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="164" Column="1" TopLine="137"/> + <Filename Value="../../Src/fileformats/acs_allformats.pas"/> + <Caret Line="11" Column="8" TopLine="1"/> </Position2> <Position3> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="163" Column="1" TopLine="136"/> + <Filename Value="linerecord.lpr"/> + <Caret Line="1" Column="1" TopLine="1"/> </Position3> - <Position4> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="164" Column="1" TopLine="137"/> - </Position4> - <Position5> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="163" Column="1" TopLine="136"/> - </Position5> - <Position6> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="164" Column="1" TopLine="137"/> - </Position6> - <Position7> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="163" Column="1" TopLine="136"/> - </Position7> - <Position8> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="164" Column="1" TopLine="137"/> - </Position8> - <Position9> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="163" Column="1" TopLine="136"/> - </Position9> - <Position10> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/linux/acs_mixer.inc"/> - <Caret Line="166" Column="1" TopLine="139"/> - </Position10> - <Position11> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/> - <Caret Line="250" Column="3" TopLine="200"/> - </Position11> - <Position12> - <Filename Value="/windows/C/src/LKomponenten/acs/Src/classes/acs_mixer.pas"/> - <Caret Line="249" Column="40" TopLine="201"/> - </Position12> </JumpHistory> </ProjectOptions> <CompilerOptions> - <Version Value="5"/> + <Version Value="11"/> <SearchPaths> - <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/> + <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/> </SearchPaths> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> + <Parsing> + <SyntaxOptions> + <UseAnsiStrings Value="False"/> + </SyntaxOptions> + </Parsing> <Linking> <Options> <Win32> @@ -227,19 +264,42 @@ </Other> </CompilerOptions> <Debugging> - <BreakPoints Count="3"> + <BreakPoints Count="5"> <Item1> + <Kind Value="bpkSource"/> + <WatchScope Value="wpsGlobal"/> + <WatchKind Value="wpkWrite"/> <Source Value="D:/LKomponenten/acs/Demos/Ripper/umain.pas"/> <Line Value="68"/> </Item1> <Item2> + <Kind Value="bpkSource"/> + <WatchScope Value="wpsGlobal"/> + <WatchKind Value="wpkWrite"/> <Source Value="D:/LKomponenten/acs/Src/fileformats/acs_wave.pas"/> <Line Value="1379"/> </Item2> <Item3> + <Kind Value="bpkSource"/> + <WatchScope Value="wpsGlobal"/> + <WatchKind Value="wpkWrite"/> <Source Value="D:/LKomponenten/acs/Src/drivers/windows/ACS_Audio.inc"/> <Line Value="341"/> </Item3> + <Item4> + <Kind Value="bpkSource"/> + <WatchScope Value="wpsLocal"/> + <WatchKind Value="wpkWrite"/> + <Source Value="../../Src/fileformats/acs_mpeg.pas"/> + <Line Value="141"/> + </Item4> + <Item5> + <Kind Value="bpkSource"/> + <WatchScope Value="wpsLocal"/> + <WatchKind Value="wpkWrite"/> + <Source Value="../../Src/drivers/acs_alsaaudio.pas"/> + <Line Value="475"/> + </Item5> </BreakPoints> <Watches Count="1"> <Item1> @@ -247,4 +307,5 @@ </Item1> </Watches> </Debugging> + <EditorMacros Count="0"/> </CONFIG> diff --git a/components/acs/Demos/linerecord/umain.lfm b/components/acs/Demos/linerecord/umain.lfm index a18ebd47b..95bafc35b 100644 --- a/components/acs/Demos/linerecord/umain.lfm +++ b/components/acs/Demos/linerecord/umain.lfm @@ -1,82 +1,82 @@ -object Form1: TForm1 +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 - PixelsPerInch = 90 - HorzScrollBar.Page = 307 - VertScrollBar.Page = 42 - Left = 347 - Height = 43 - Top = 208 - Width = 308 + LCLVersion = '1.3' object Label1: TLabel - Caption = 'Source' - Color = clNone - ParentColor = False Left = 60 - Height = 13 - Width = 41 + Height = 14 + Top = 0 + Width = 39 + Caption = 'Source' + ParentColor = False end object bRecord: TBitBtn - BorderSpacing.InnerBorder = 2 - Caption = 'Record' - NumGlyphs = 0 - OnClick = bRecordClick - TabOrder = 0 Left = 184 Height = 26 Top = 12 Width = 60 + BorderSpacing.InnerBorder = 2 + Caption = 'Record' + OnClick = bRecordClick + TabOrder = 0 end object cbRecordSource: TComboBox - MaxLength = 0 + Left = 60 + Height = 27 + Top = 12 + Width = 116 + ItemHeight = 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 + BorderSpacing.InnerBorder = 2 + Caption = 'Stop' + OnClick = bStopClick + TabOrder = 2 end object bOpen: TBitBtn - BorderSpacing.InnerBorder = 2 - Caption = 'Open' - NumGlyphs = 0 - OnClick = bOpenClick - TabOrder = 3 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 = 'Wavemapper' + Driver = 'Alsa' + Device = 0 InBitsPerSample = 8 InChannels = 1 InSampleRate = 8000 + RecTime = 0 left = 4 top = 236 end object Mixer1: TACSMixer - MixerName = 'Realtek ALC655 rev 0' + DevNum = 0 left = 4 top = 204 end diff --git a/components/acs/Demos/linerecord/umain.lrs b/components/acs/Demos/linerecord/umain.lrs index 689678211..b03896496 100644 --- a/components/acs/Demos/linerecord/umain.lrs +++ b/components/acs/Demos/linerecord/umain.lrs @@ -1,25 +1,25 @@ -{ Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei } +{ This is an automatically generated lazarus resource file } -LazarusResources.Add('TForm1','FORMDATA',[ - 'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'bRecord'#11'BorderStyle'#7#12 - +'bsToolWindow'#7'Caption'#6#12'Audio Record'#12'ClientHeight'#2'+'#11'Client' - +'Width'#3'4'#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'Z'#18'HorzSc' - +'rollBar.Page'#3'3'#1#18'VertScrollBar.Page'#2'*'#4'Left'#3'['#1#6'Height'#2 - +'+'#3'Top'#3#208#0#5'Width'#3'4'#1#0#6'TLabel'#6'Label1'#7'Caption'#6#6'Sour' - +'ce'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'<'#6'Height'#2#13#5'Wi' - +'dth'#2')'#0#0#7'TBitBtn'#7'bRecord'#25'BorderSpacing.InnerBorder'#2#2#7'Cap' - +'tion'#6#6'Record'#9'NumGlyphs'#2#0#7'OnClick'#7#12'bRecordClick'#8'TabOrder' - +#2#0#4'Left'#3#184#0#6'Height'#2#26#3'Top'#2#12#5'Width'#2'<'#0#0#9'TComboBo' - +'x'#14'cbRecordSource'#9'MaxLength'#2#0#8'OnChange'#7#20'cbRecordSourceChang' - +'e'#8'TabOrder'#2#1#4'Left'#2'<'#6'Height'#2#21#3'Top'#2#16#5'Width'#2't'#0#0 - +#7'TBitBtn'#5'bStop'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Stop'#9 - +'NumGlyphs'#2#0#7'OnClick'#7#10'bStopClick'#8'TabOrder'#2#2#4'Left'#3#248#0#6 - +'Height'#2#26#3'Top'#2#12#5'Width'#2'8'#0#0#7'TBitBtn'#5'bOpen'#25'BorderSpa' - +'cing.InnerBorder'#2#2#7'Caption'#6#4'Open'#9'NumGlyphs'#2#0#7'OnClick'#7#10 - +'bOpenClick'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#26#3'Top'#2#12#5'Width' - +#2'3'#0#0#11'TACSFileOut'#8'FileOut1'#5'Input'#7#8'AudioIn1'#4'left'#2#4#3't' - +'op'#3#12#1#0#0#11'TACSAudioIn'#8'AudioIn1'#6'Driver'#6#10'Wavemapper'#15'In' - +'BitsPerSample'#2#8#10'InChannels'#2#1#12'InSampleRate'#3'@'#31#4'left'#2#4#3 - +'top'#3#236#0#0#0#9'TACSMixer'#6'Mixer1'#9'MixerName'#6#20'Realtek ALC655 re' - +'v 0'#4'left'#2#4#3'top'#3#204#0#0#0#0 +LazarusResources.Add('TfMain','FORMDATA',[ + 'TPF0'#6'TfMain'#5'fMain'#4'Left'#3'['#1#6'Height'#2'+'#3'Top'#3#208#0#5'Widt' + +'h'#3'4'#1#18'HorzScrollBar.Page'#3'3'#1#18'VertScrollBar.Page'#2'*'#13'Acti' + +'veControl'#7#7'bRecord'#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#12 + +'Audio Record'#12'ClientHeight'#2'+'#11'ClientWidth'#3'4'#1#8'OnCreate'#7#10 + +'FormCreate'#10'LCLVersion'#6#3'1.3'#0#6'TLabel'#6'Label1'#4'Left'#2'<'#6'He' + +'ight'#2#14#3'Top'#2#0#5'Width'#2''''#7'Caption'#6#6'Source'#11'ParentColor' + +#8#0#0#7'TBitBtn'#7'bRecord'#4'Left'#3#184#0#6'Height'#2#26#3'Top'#2#12#5'Wi' + +'dth'#2'<'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Record'#7'OnClic' + +'k'#7#12'bRecordClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#14'cbRecordSource'#4 + +'Left'#2'<'#6'Height'#2#27#3'Top'#2#12#5'Width'#2't'#10'ItemHeight'#2#0#8'On' + +'Change'#7#20'cbRecordSourceChange'#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'bStop'#4 + +'Left'#3#248#0#6'Height'#2#26#3'Top'#2#12#5'Width'#2'8'#25'BorderSpacing.Inn' + +'erBorder'#2#2#7'Caption'#6#4'Stop'#7'OnClick'#7#10'bStopClick'#8'TabOrder'#2 + +#2#0#0#7'TBitBtn'#5'bOpen'#4'Left'#2#4#6'Height'#2#26#3'Top'#2#12#5'Width'#2 + +'3'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Open'#7'OnClick'#7#10'b' + +'OpenClick'#8'TabOrder'#2#3#0#0#11'TACSFileOut'#8'FileOut1'#8'FileMode'#7#9 + +'foRewrite'#5'Input'#7#8'AudioIn1'#4'left'#2#4#3'top'#3#12#1#0#0#11'TACSAudi' + +'oIn'#8'AudioIn1'#6'Driver'#6#4'Alsa'#6'Device'#2#0#15'InBitsPerSample'#2#8 + +#10'InChannels'#2#1#12'InSampleRate'#3'@'#31#7'RecTime'#2#0#4'left'#2#4#3'to' + +'p'#3#236#0#0#0#9'TACSMixer'#6'Mixer1'#6'DevNum'#2#0#4'left'#2#4#3'top'#3#204 + +#0#0#0#0 ]); diff --git a/components/acs/Demos/linerecord/umain.pas b/components/acs/Demos/linerecord/umain.pas index 0ae1160fa..7707b9d8e 100644 --- a/components/acs/Demos/linerecord/umain.pas +++ b/components/acs/Demos/linerecord/umain.pas @@ -10,9 +10,9 @@ uses type - { TForm1 } + { TfMain } - TForm1 = class(TForm) + TfMain = class(TForm) bOpen: TBitBtn; Mixer1: TACSMixer; AudioIn1: TACSAudioIn; @@ -33,13 +33,13 @@ type end; var - Form1: TForm1; + fMain: TfMain; implementation -{ TForm1 } +{ TfMain } -procedure TForm1.FormCreate(Sender: TObject); +procedure TfMain.FormCreate(Sender: TObject); var i : Integer; begin @@ -49,24 +49,24 @@ begin cbRecordSource.Text := Mixer1.ChannelName[Mixer1.RecordSource]; end; -procedure TForm1.bOpenClick(Sender: TObject); +procedure TfMain.bOpenClick(Sender: TObject); begin FileOut1.Open; if FileExists(FileOut1.FileName) then FileOut1.FileMode := foAppend; end; -procedure TForm1.bRecordClick(Sender: TObject); +procedure TfMain.bRecordClick(Sender: TObject); begin FileOut1.Run; end; -procedure TForm1.bStopClick(Sender: TObject); +procedure TfMain.bStopClick(Sender: TObject); begin FileOut1.Stop; end; -procedure TForm1.cbRecordSourceChange(Sender: TObject); +procedure TfMain.cbRecordSourceChange(Sender: TObject); var i : Integer; begin diff --git a/components/acs/Demos/player/player.lpi b/components/acs/Demos/player/player.lpi index 193511f8c..b656b5e46 100644 --- a/components/acs/Demos/player/player.lpi +++ b/components/acs/Demos/player/player.lpi @@ -40,7 +40,8 @@ <Filename Value="player.lpr"/> <IsPartOfProject Value="True"/> <UnitName Value="player"/> - <EditorIndex Value="7"/> + <IsVisibleTab Value="True"/> + <EditorIndex Value="1"/> <WindowIndex Value="0"/> <TopLine Value="1"/> <CursorPos X="7" Y="5"/> @@ -57,7 +58,7 @@ <UnitName Value="uMain"/> <EditorIndex Value="0"/> <WindowIndex Value="0"/> - <TopLine Value="5"/> + <TopLine Value="1"/> <CursorPos X="11" Y="20"/> <UsageCount Value="64"/> <Loaded Value="True"/> @@ -144,12 +145,10 @@ <Unit13> <Filename Value="..\..\Src\classes\acs_classes.pas"/> <UnitName Value="acs_classes"/> - <EditorIndex Value="6"/> <WindowIndex Value="0"/> - <TopLine Value="215"/> + <TopLine Value="117"/> <CursorPos X="31" Y="117"/> <UsageCount Value="22"/> - <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="Delphi"/> </Unit13> <Unit14> @@ -722,24 +721,19 @@ <Unit96> <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> <UnitName Value="acs_alsaaudio"/> - <EditorIndex Value="1"/> <WindowIndex Value="0"/> <TopLine Value="447"/> <CursorPos X="1" Y="481"/> <UsageCount Value="10"/> - <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="Delphi"/> </Unit96> <Unit97> <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> <UnitName Value="alsa"/> - <IsVisibleTab Value="True"/> - <EditorIndex Value="2"/> <WindowIndex Value="0"/> - <TopLine Value="887"/> - <CursorPos X="25" Y="904"/> + <TopLine Value="912"/> + <CursorPos X="1" Y="940"/> <UsageCount Value="10"/> - <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="Delphi"/> </Unit97> <Unit98> @@ -805,158 +799,31 @@ <Unit105> <Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/> <UnitName Value="acs_stdaudio"/> - <EditorIndex Value="4"/> <WindowIndex Value="0"/> <TopLine Value="198"/> <CursorPos X="1" Y="215"/> <UsageCount Value="10"/> - <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="Delphi"/> </Unit105> <Unit106> <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <EditorIndex Value="5"/> <WindowIndex Value="0"/> <TopLine Value="232"/> <CursorPos X="1" Y="265"/> <UsageCount Value="10"/> - <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="Delphi"/> </Unit106> <Unit107> <Filename Value="..\..\Src\classes\acs_procs.pas"/> <UnitName Value="acs_procs"/> - <EditorIndex Value="3"/> <WindowIndex Value="0"/> <TopLine Value="28"/> <CursorPos X="12" Y="46"/> <UsageCount Value="10"/> - <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="Delphi"/> </Unit107> </Units> - <JumpHistory Count="30" HistoryIndex="29"> - <Position1> - <Filename Value="umain.pas"/> - <Caret Line="20" Column="11" TopLine="5"/> - </Position1> - <Position2> - <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> - <Caret Line="475" Column="11" TopLine="447"/> - </Position2> - <Position3> - <Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/> - <Caret Line="222" Column="1" TopLine="198"/> - </Position3> - <Position4> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="242" Column="1" TopLine="224"/> - </Position4> - <Position5> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="243" Column="1" TopLine="224"/> - </Position5> - <Position6> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="244" Column="1" TopLine="224"/> - </Position6> - <Position7> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="245" Column="1" TopLine="224"/> - </Position7> - <Position8> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="246" Column="1" TopLine="224"/> - </Position8> - <Position9> - <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> - <Caret Line="475" Column="12" TopLine="447"/> - </Position9> - <Position10> - <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> - <Caret Line="900" Column="27" TopLine="889"/> - </Position10> - <Position11> - <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> - <Caret Line="904" Column="41" TopLine="890"/> - </Position11> - <Position12> - <Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/> - <Caret Line="222" Column="1" TopLine="198"/> - </Position12> - <Position13> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="242" Column="1" TopLine="232"/> - </Position13> - <Position14> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="243" Column="1" TopLine="232"/> - </Position14> - <Position15> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="244" Column="1" TopLine="232"/> - </Position15> - <Position16> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="245" Column="1" TopLine="232"/> - </Position16> - <Position17> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="246" Column="1" TopLine="232"/> - </Position17> - <Position18> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="249" Column="1" TopLine="232"/> - </Position18> - <Position19> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="250" Column="1" TopLine="232"/> - </Position19> - <Position20> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="251" Column="1" TopLine="232"/> - </Position20> - <Position21> - <Filename Value="..\..\Src\drivers\linux\acs_audio.inc"/> - <Caret Line="265" Column="1" TopLine="232"/> - </Position21> - <Position22> - <Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/> - <Caret Line="223" Column="1" TopLine="198"/> - </Position22> - <Position23> - <Filename Value="..\..\Src\drivers\acs_stdaudio.pas"/> - <Caret Line="224" Column="1" TopLine="198"/> - </Position23> - <Position24> - <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> - <Caret Line="475" Column="1" TopLine="447"/> - </Position24> - <Position25> - <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> - <Caret Line="465" Column="23" TopLine="447"/> - </Position25> - <Position26> - <Filename Value="..\..\Src\drivers\acs_alsaaudio.pas"/> - <Caret Line="475" Column="1" TopLine="447"/> - </Position26> - <Position27> - <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> - <Caret Line="904" Column="41" TopLine="890"/> - </Position27> - <Position28> - <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> - <Caret Line="901" Column="1" TopLine="890"/> - </Position28> - <Position29> - <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> - <Caret Line="902" Column="1" TopLine="890"/> - </Position29> - <Position30> - <Filename Value="..\..\Src\drivers\linux\alsa.pas"/> - <Caret Line="937" Column="1" TopLine="880"/> - </Position30> - </JumpHistory> + <JumpHistory Count="0" HistoryIndex="-1"/> </ProjectOptions> <CompilerOptions> <Version Value="11"/> @@ -982,7 +849,7 @@ </Other> </CompilerOptions> <Debugging> - <BreakPoints Count="2"> + <BreakPoints Count="1"> <Item1> <Kind Value="bpkSource"/> <WatchScope Value="wpsGlobal"/> @@ -990,13 +857,6 @@ <Source Value="..\..\Src\fileformats\ACS_FLAC.pas"/> <Line Value="576"/> </Item1> - <Item2> - <Kind Value="bpkSource"/> - <WatchScope Value="wpsLocal"/> - <WatchKind Value="wpkWrite"/> - <Source Value="..\..\Src\drivers\linux\alsa.pas"/> - <Line Value="901"/> - </Item2> </BreakPoints> <Watches Count="2"> <Item1>