pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Changed folder structure

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5490 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-14 14:48:40 +00:00
parent fea888d463
commit c1f807e8f4
22 changed files with 1163 additions and 817 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/playsoundpackage/demo/demo.res
View File

Binary file not shown.

0
components/playsoundpackage/TPlaysound.png → components/playsoundpackage/latest_stable/TPlaysound.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 978 B

After

Width:  |  Height:  |  Size: 978 B

1248
components/playsoundpackage/aboutplaysound.pas → components/playsoundpackage/latest_stable/aboutplaysound.pas
View File

File diff suppressed because it is too large Load Diff

BIN
components/playsoundpackage/latest_stable/demo/demo.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

93
components/playsoundpackage/latest_stable/demo/demo.lpi Normal file
View File

@@ -0,0 +1,93 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="PlaySound component demo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<RevisionNr Value="1"/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="4">
<Item1>
<PackageName Value="RunTimeTypeInfoControls"/>
</Item1>
<Item2>
<PackageName Value="poweredby"/>
</Item2>
<Item3>
<PackageName Value="playwavepackage"/>
<MaxVersion Release="1"/>
</Item3>
<Item4>
<PackageName Value="LCL"/>
</Item4>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="demo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="umainform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

22
components/playsoundpackage/latest_stable/demo/demo.lpr Normal file
View File

@@ -0,0 +1,22 @@
program demo;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, runtimetypeinfocontrols, poweredby, umainform
{ you can add units after this };
{$R *.res}
begin
Application.Title:='PlaySound component demo';
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(Tmainform, mainform);
Application.Run;
end.

66
components/playsoundpackage/latest_stable/demo/demo.lps Normal file
View File

@@ -0,0 +1,66 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="6">
<Unit0>
<Filename Value="demo.lpr"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="umainform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<CursorPos X="32" Y="9"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="D:\Lazarusprojects\playsoundpackage\uplaysound.pas"/>
<TopLine Value="85"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="..\uplaysound.pas"/>
<EditorIndex Value="1"/>
<TopLine Value="118"/>
<CursorPos X="28" Y="118"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="X:\TEMP\wzbed3\grille.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="67"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\aboutplaysound.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="580"/>
<CursorPos X="32" Y="589"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="umainform.pas"/>
</Position1>
<Position2>
<Filename Value="umainform.pas"/>
<Caret Line="44" Column="3" TopLine="10"/>
</Position2>
<Position3>
<Filename Value="..\aboutplaysound.pas"/>
</Position3>
</JumpHistory>
</ProjectSession>
</CONFIG>

BIN
components/playsoundpackage/latest_stable/demo/demo.res Normal file
View File

Binary file not shown.

BIN
components/playsoundpackage/latest_stable/demo/doorbell.wav Normal file
View File

Binary file not shown.

BIN
components/playsoundpackage/latest_stable/demo/telephone.wav Normal file
View File

Binary file not shown.

83
components/playsoundpackage/latest_stable/demo/umainform.lfm Normal file
View File

@@ -0,0 +1,83 @@
object mainform: Tmainform
Left = 415
Height = 257
Top = 305
Width = 352
BorderIcons = [biSystemMenu]
Caption = 'mainform'
ClientHeight = 257
ClientWidth = 352
DefaultMonitor = dmPrimary
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.7'
object cmd_Async: TButton
Left = 264
Height = 25
Top = 180
Width = 75
Caption = 'Play Async'
OnClick = cmd_AsyncClick
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 264
Height = 30
Top = 216
Width = 75
DefaultCaption = True
Kind = bkClose
ModalResult = 11
TabOrder = 1
end
object cmd_Sync: TButton
Left = 264
Height = 25
Top = 148
Width = 75
Caption = 'Play Sync'
OnClick = cmd_SyncClick
TabOrder = 2
end
object TIPropertyGrid1: TTIPropertyGrid
Left = 4
Height = 238
Top = 8
Width = 252
CheckboxForBoolean = False
DefaultValueFont.Color = clWindowText
Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
Indent = 16
NameFont.Color = clWindowText
TIObject = playsound1
ValueFont.Color = clMaroon
end
object cmd_StopSound: TButton
Left = 264
Height = 25
Top = 112
Width = 75
Caption = 'Stop Sound'
OnClick = cmd_StopSoundClick
TabOrder = 4
end
object playsound1: Tplaysound
About.Description.Strings = (
'Plays WAVE sounds in Windows or Linux'
)
About.Title = 'About About About About About About PlaySound'
About.Height = 400
About.Width = 400
About.Font.Color = clNavy
About.Font.Height = -13
About.BackGroundColor = clCream
About.Version = '0.0.1'
About.Authorname = 'Gordon Bamber'
About.Organisation = 'Public Domain'
About.AuthorEmail = 'minesadorada@charcodelvalle.com'
About.ComponentName = 'PlaySound'
About.LicenseType = abLGPL
left = 104
top = 40
end
end

82
components/playsoundpackage/latest_stable/demo/umainform.pas Normal file
View File

@@ -0,0 +1,82 @@
unit umainform;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ExtCtrls, uplaysound;
type
{ Tmainform }
Tmainform = class(TForm)
BitBtn1: TBitBtn;
cmd_StopSound: TButton;
cmd_Async: TButton;
cmd_Sync: TButton;
playsound1: Tplaysound;
TIPropertyGrid1: TTIPropertyGrid;
procedure cmd_AsyncClick(Sender: TObject);
procedure cmd_StopSoundClick(Sender: TObject);
procedure cmd_SyncClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
mainform: Tmainform;
implementation
{$R *.lfm}
{ Tmainform }
procedure Tmainform.cmd_AsyncClick(Sender: TObject);
// No gap between sounds. App remains responsive
begin
playsound1.PlayStyle:=psASync;
{$IFDEF WINDOWS}
playsound1.SoundFile:='doorbell.wav';
playsound1.Execute;
playsound1.SoundFile:='telephone.wav';
playsound1.Execute;
{$ELSE}
// Sound file taken from PropertyGrid
playsound1.Execute;
{$ENDIF}
end;
procedure Tmainform.cmd_StopSoundClick(Sender: TObject);
begin
playsound1.StopSound;
end;
procedure Tmainform.cmd_SyncClick(Sender: TObject);
begin
playsound1.PlayStyle:=psSync;
{$IFDEF WINDOWS}
playsound1.SoundFile:='doorbell.wav';
playsound1.Execute;
playsound1.SoundFile:='telephone.wav';
playsound1.Execute;
{$ELSE}
// Sound file taken from PropertyGrid
playsound1.Execute;
{$ENDIF}
end;
procedure Tmainform.FormCreate(Sender: TObject);
begin
Caption:=Application.Title;
Icon:=Application.Icon;
end;
end.

144
components/playsoundpackage/license.lrs → components/playsoundpackage/latest_stable/license.lrs
View File

@@ -1,72 +1,72 @@
LazarusResources.Add('gpl.txt','TXT',[ LazarusResources.Add('gpl.txt','TXT',[
' Copyright (C) <year> <name of author> <contact>'#13#10#13#10' This source' ' Copyright (C) <year> <name of author> <contact>'#13#10#13#10' This source'
+' is free software; you can redistribute it and/or modify it under'#13#10' ' +' is free software; you can redistribute it and/or modify it under'#13#10' '
+'the terms of the GNU General Public License as published by the Free'#13#10 +'the terms of the GNU General Public License as published by the Free'#13#10
+' Software Foundation; either version 2 of the License, or (at your option)' +' Software Foundation; either version 2 of the License, or (at your option)'
+#13#10' any later version.'#13#10#13#10' This code is distributed in the h' +#13#10' any later version.'#13#10#13#10' This code is distributed in the h'
+'ope that it will be useful, but WITHOUT ANY'#13#10' WARRANTY; without even' +'ope that it will be useful, but WITHOUT ANY'#13#10' WARRANTY; without even'
+' the implied warranty of MERCHANTABILITY or FITNESS'#13#10' FOR A PARTICUL' +' the implied warranty of MERCHANTABILITY or FITNESS'#13#10' FOR A PARTICUL'
+'AR PURPOSE. See the GNU General Public License for more'#13#10' details.' +'AR PURPOSE. See the GNU General Public License for more'#13#10' details.'
+#13#10#13#10' A copy of the GNU General Public License is available on the ' +#13#10#13#10' A copy of the GNU General Public License is available on the '
+'World Wide Web'#13#10' at <http://www.gnu.org/copyleft/gpl.html>. You can ' +'World Wide Web'#13#10' at <http://www.gnu.org/copyleft/gpl.html>. You can '
+'also obtain it by writing'#13#10' to the Free Software Foundation, Inc., 5' +'also obtain it by writing'#13#10' to the Free Software Foundation, Inc., 5'
+'9 Temple Place - Suite 330, Boston,'#13#10' MA 02111-1307, USA.' +'9 Temple Place - Suite 330, Boston,'#13#10' MA 02111-1307, USA.'
]); ]);
LazarusResources.Add('lgpl.txt','TXT',[ LazarusResources.Add('lgpl.txt','TXT',[
' Copyright (C) <year> <name of author> <contact>'#13#10#13#10' This librar' ' Copyright (C) <year> <name of author> <contact>'#13#10#13#10' This librar'
+'y is free software; you can redistribute it and/or modify it'#13#10' under' +'y is free software; you can redistribute it and/or modify it'#13#10' under'
+' the terms of the GNU Library General Public License as published by'#13#10 +' the terms of the GNU Library General Public License as published by'#13#10
+' the Free Software Foundation; either version 2 of the License, or (at you' +' the Free Software Foundation; either version 2 of the License, or (at you'
+'r'#13#10' option) any later version.'#13#10#13#10' This program is distri' +'r'#13#10' option) any later version.'#13#10#13#10' This program is distri'
+'buted in the hope that it will be useful, but WITHOUT'#13#10' ANY WARRANTY' +'buted in the hope that it will be useful, but WITHOUT'#13#10' ANY WARRANTY'
+'; without even the implied warranty of MERCHANTABILITY or'#13#10' FITNESS ' +'; without even the implied warranty of MERCHANTABILITY or'#13#10' FITNESS '
+'FOR A PARTICULAR PURPOSE. See the GNU Library General Public License'#13#10 +'FOR A PARTICULAR PURPOSE. See the GNU Library General Public License'#13#10
+' for more details.'#13#10#13#10' You should have received a copy of the G' +' for more details.'#13#10#13#10' You should have received a copy of the G'
+'NU Library General Public License'#13#10' along with this library; if not,' +'NU Library General Public License'#13#10' along with this library; if not,'
+' write to the Free Software Foundation,'#13#10' Inc., 59 Temple Place - Su' +' write to the Free Software Foundation,'#13#10' Inc., 59 Temple Place - Su'
+'ite 330, Boston, MA 02111-1307, USA.' +'ite 330, Boston, MA 02111-1307, USA.'
]); ]);
LazarusResources.Add('mit.txt','TXT',[ LazarusResources.Add('mit.txt','TXT',[
' Copyright (c) <year> <copyright holders>'#13#10#13#10' Permission is here' ' Copyright (c) <year> <copyright holders>'#13#10#13#10' Permission is here'
+'by granted, free of charge, to any person obtaining a copy'#13#10' of this' +'by granted, free of charge, to any person obtaining a copy'#13#10' of this'
+' software and associated documentation files (the "Software"), to'#13#10' ' +' software and associated documentation files (the "Software"), to'#13#10' '
+'deal in the Software without restriction, including without limitation the' +'deal in the Software without restriction, including without limitation the'
+#13#10' rights to use, copy, modify, merge, publish, distribute, sublicense' +#13#10' rights to use, copy, modify, merge, publish, distribute, sublicense'
+', and/or'#13#10' sell copies of the Software, and to permit persons to who' +', and/or'#13#10' sell copies of the Software, and to permit persons to who'
+'m the Software is'#13#10' furnished to do so, subject to the following con' +'m the Software is'#13#10' furnished to do so, subject to the following con'
+'ditions:'#13#10#13#10' The above copyright notice and this permission noti' +'ditions:'#13#10#13#10' The above copyright notice and this permission noti'
+'ce shall be included in'#13#10' all copies or substantial portions of the ' +'ce shall be included in'#13#10' all copies or substantial portions of the '
+'Software.'#13#10#13#10' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY' +'Software.'#13#10#13#10' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY'
+' OF ANY KIND, EXPRESS OR'#13#10' IMPLIED, INCLUDING BUT NOT LIMITED TO THE' +' OF ANY KIND, EXPRESS OR'#13#10' IMPLIED, INCLUDING BUT NOT LIMITED TO THE'
+' WARRANTIES OF MERCHANTABILITY,'#13#10' FITNESS FOR A PARTICULAR PURPOSE A' +' WARRANTIES OF MERCHANTABILITY,'#13#10' FITNESS FOR A PARTICULAR PURPOSE A'
+'ND NONINFRINGEMENT. IN NO EVENT SHALL THE'#13#10' AUTHORS OR COPYRIGHT HOL' +'ND NONINFRINGEMENT. IN NO EVENT SHALL THE'#13#10' AUTHORS OR COPYRIGHT HOL'
+'DERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER'#13#10' LIABILITY, WHETHER ' +'DERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER'#13#10' LIABILITY, WHETHER '
+'IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING'#13#10' FROM, OUT OF ' +'IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING'#13#10' FROM, OUT OF '
+'OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS'#13#10' IN' +'OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS'#13#10' IN'
+' THE SOFTWARE.' +' THE SOFTWARE.'
]); ]);
LazarusResources.Add('modifiedgpl.txt','TXT',[ LazarusResources.Add('modifiedgpl.txt','TXT',[
' Copyright (C) <year> <name of author> <contact>'#13#10#13#10' This librar' ' Copyright (C) <year> <name of author> <contact>'#13#10#13#10' This librar'
+'y is free software; you can redistribute it and/or modify it'#13#10' under' +'y is free software; you can redistribute it and/or modify it'#13#10' under'
+' the terms of the GNU Library General Public License as published by'#13#10 +' the terms of the GNU Library General Public License as published by'#13#10
+' the Free Software Foundation; either version 2 of the License, or (at you' +' the Free Software Foundation; either version 2 of the License, or (at you'
+'r'#13#10' option) any later version with the following modification:'#13#10 +'r'#13#10' option) any later version with the following modification:'#13#10
+#13#10' As a special exception, the copyright holders of this library give ' +#13#10' As a special exception, the copyright holders of this library give '
+'you'#13#10' permission to link this library with independent modules to pr' +'you'#13#10' permission to link this library with independent modules to pr'
+'oduce an'#13#10' executable, regardless of the license terms of these inde' +'oduce an'#13#10' executable, regardless of the license terms of these inde'
+'pendent modules,and'#13#10' to copy and distribute the resulting executabl' +'pendent modules,and'#13#10' to copy and distribute the resulting executabl'
+'e under terms of your choice,'#13#10' provided that you also meet, for eac' +'e under terms of your choice,'#13#10' provided that you also meet, for eac'
+'h linked independent module, the terms'#13#10' and conditions of the licen' +'h linked independent module, the terms'#13#10' and conditions of the licen'
+'se of that module. An independent module is a'#13#10' module which is not ' +'se of that module. An independent module is a'#13#10' module which is not '
+'derived from or based on this library. If you modify'#13#10' this library,' +'derived from or based on this library. If you modify'#13#10' this library,'
+' you may extend this exception to your version of the library,'#13#10' but' +' you may extend this exception to your version of the library,'#13#10' but'
+' you are not obligated to do so. If you do not wish to do so, delete this' +' you are not obligated to do so. If you do not wish to do so, delete this'
+#13#10' exception statement from your version.'#13#10#13#10' This program ' +#13#10' exception statement from your version.'#13#10#13#10' This program '
+'is distributed in the hope that it will be useful, but WITHOUT'#13#10' ANY' +'is distributed in the hope that it will be useful, but WITHOUT'#13#10' ANY'
+' WARRANTY; without even the implied warranty of MERCHANTABILITY or'#13#10' ' +' WARRANTY; without even the implied warranty of MERCHANTABILITY or'#13#10' '
+' FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public Licen' +' FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public Licen'
+'se'#13#10' for more details.'#13#10#13#10' You should have received a cop' +'se'#13#10' for more details.'#13#10#13#10' You should have received a cop'
+'y of the GNU Library General Public License'#13#10' along with this librar' +'y of the GNU Library General Public License'#13#10' along with this librar'
+'y; if not, write to the Free Software Foundation,'#13#10' Inc., 59 Temple ' +'y; if not, write to the Free Software Foundation,'#13#10' Inc., 59 Temple '
+'Place - Suite 330, Boston, MA 02111-1307, USA.' +'Place - Suite 330, Boston, MA 02111-1307, USA.'
]); ]);

0
components/playsoundpackage/locale/aboutplaysound.po → components/playsoundpackage/latest_stable/locale/aboutplaysound.po
View File

0
components/playsoundpackage/locale/uplaysound.po → components/playsoundpackage/latest_stable/locale/uplaysound.po
View File

0
components/playsoundpackage/playsound_icon.lrs → components/playsoundpackage/latest_stable/playsound_icon.lrs
View File

0
components/playsoundpackage/playsound_icon.png → components/playsoundpackage/latest_stable/playsound_icon.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 978 B

After

Width:  |  Height:  |  Size: 978 B

44
components/playsoundpackage/playsoundackage.pas → components/playsoundpackage/latest_stable/playsoundackage.pas
View File

@@ -1,22 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit! { This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package. This source is only used to compile and install the package.
} }
unit playsoundackage; unit playsoundackage;
interface interface
uses uses
uplaysound, aboutplaysound, LazarusPackageIntf; uplaysound, aboutplaysound, LazarusPackageIntf;
implementation implementation
procedure Register; procedure Register;
begin begin
RegisterUnit('uplaysound', @uplaysound.Register); RegisterUnit('uplaysound', @uplaysound.Register);
RegisterUnit('aboutplaysound', @aboutplaysound.Register); RegisterUnit('aboutplaysound', @aboutplaysound.Register);
end; end;
initialization initialization
RegisterPackage('playsoundackage', @Register); RegisterPackage('playsoundackage', @Register);
end. end.

129
components/playsoundpackage/playwavepackage.lpk → components/playsoundpackage/latest_stable/playwavepackage.lpk
View File

@@ -1,77 +1,52 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="4">
<Name Value="playwavepackage"/> <Name Value="playwavepackage"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<Author Value="minesadorada"/> <Author Value="minesadorada"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging> <Debugging>
<GenerateDebugInfo Value="False"/> <GenerateDebugInfo Value="False"/>
</Debugging> </Debugging>
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Description Value="Simple component to play wave files under Windows or Linux"/> <Description Value="Simple component to play wave files under Windows or Linux"/>
<License Value=" Copyright (C)2014 minesadorada@charcodelvalle.com <License Value=" Copyright (C)2014 minesadorada@charcodelvalle.com
Modified GPL Modified GPL"/>
This library is free software; you can redistribute it and/or modify it <Version Release="7"/>
under the terms of the GNU Library General Public License as published by <Files Count="2">
the Free Software Foundation; either version 2 of the License, or (at your <Item1>
option) any later version with the following modification: <Filename Value="uplaysound.pas"/>
<HasRegisterProc Value="True"/>
As a special exception, the copyright holders of this library give you <UnitName Value="uplaysound"/>
permission to link this library with independent modules to produce an </Item1>
executable, regardless of the license terms of these independent modules,and <Item2>
to copy and distribute the resulting executable under terms of your choice, <Filename Value="aboutplaysound.pas"/>
provided that you also meet, for each linked independent module, the terms <HasRegisterProc Value="True"/>
and conditions of the license of that module. An independent module is a <UnitName Value="aboutplaysound"/>
module which is not derived from or based on this library. If you modify </Item2>
this library, you may extend this exception to your version of the library, </Files>
but you are not obligated to do so. If you do not wish to do so, delete this <i18n>
exception statement from your version. <EnableI18N Value="True"/>
<OutDir Value="locale"/>
This program is distributed in the hope that it will be useful, but WITHOUT <EnableI18NForLFM Value="True"/>
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or </i18n>
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License <RequiredPkgs Count="1">
for more details. <Item1>
<PackageName Value="IDEIntf"/>
You should have received a copy of the GNU Library General Public License </Item1>
along with this library; if not, write to the Free Software Foundation, </RequiredPkgs>
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. <UsageOptions>
"/> <UnitPath Value="$(PkgOutDir)"/>
<Version Release="7"/> </UsageOptions>
<Files Count="2"> <PublishOptions>
<Item1> <Version Value="2"/>
<Filename Value="uplaysound.pas"/> <DestinationDirectory Value="/home/gordon/Lazarusprojects/playsoundpackage/published"/>
<HasRegisterProc Value="True"/> </PublishOptions>
<UnitName Value="uplaysound"/> </Package>
</Item1> </CONFIG>
<Item2>
<Filename Value="aboutplaysound.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="aboutplaysound"/>
</Item2>
</Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="locale"/>
<EnableI18NForLFM Value="True"/>
</i18n>
<RequiredPkgs Count="1">
<Item1>
<PackageName Value="IDEIntf"/>
</Item1>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="/home/gordon/Lazarusprojects/playsoundpackage/published"/>
</PublishOptions>
</Package>
</CONFIG>

44
components/playsoundpackage/playwavepackage.pas → components/playsoundpackage/latest_stable/playwavepackage.pas
View File

@@ -1,22 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit! { This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package. This source is only used to compile and install the package.
} }
unit playwavepackage; unit playwavepackage;
interface interface
uses uses
uplaysound, aboutplaysound, LazarusPackageIntf; uplaysound, aboutplaysound, LazarusPackageIntf;
implementation implementation
procedure Register; procedure Register;
begin begin
RegisterUnit('uplaysound', @uplaysound.Register); RegisterUnit('uplaysound', @uplaysound.Register);
RegisterUnit('aboutplaysound', @aboutplaysound.Register); RegisterUnit('aboutplaysound', @aboutplaysound.Register);
end; end;
initialization initialization
RegisterPackage('playwavepackage', @Register); RegisterPackage('playwavepackage', @Register);
end. end.

25
components/playsoundpackage/latest_stable/readme.txt Normal file
View File

@@ -0,0 +1,25 @@
PlayWavePackage
===============
A simple visual component to play WAVe files in Windows or Linux
Licence
=======
LGPLv2
Author
======
minesadorada
Compatibility
=============
Tested in:
Windows Vista 32-bit
Linux Mint 64-bit
Should work with:
All versions of Windows
Most versions of Linux
Maybe Macintosh OSX
:Gordon Bamber September 2014

0
components/playsoundpackage/uplaysound.pas → components/playsoundpackage/latest_stable/uplaysound.pas
View File