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 @@
-
+
-
-
+
+
+
+
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
@@ -145,7 +23,7 @@
-
+
@@ -156,65 +34,224 @@
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
-
-
-
+
+
+
+
+
@@ -227,19 +264,42 @@
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -247,4 +307,5 @@
+
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 @@
-
+
+
@@ -57,7 +58,7 @@
-
+
@@ -144,12 +145,10 @@
-
-
+
-
@@ -722,24 +721,19 @@
-
-
-
-
-
-
+
+
-
@@ -805,158 +799,31 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
@@ -982,7 +849,7 @@
-
+
@@ -990,13 +857,6 @@
-
-
-
-
-
-
-