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

Version 0.0.4

Browse Source 
With StopSound

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5300 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-11-03 12:47:39 +00:00
parent 5aa08935ff
commit 8518f165fb
3 changed files with 6 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/playsoundpackage/aboutplaysound.pas
View File

@@ -585,7 +585,7 @@ begin
Font.Size:=10; Font.Size:=10;
// BackGroundColor shows if no BackGround image is set // BackGroundColor shows if no BackGround image is set
BackGroundColor := clWindow; BackGroundColor := clWindow;
Version := '1.0.0.0'; Version := '0.0.4.0';
AuthorName := 'Gordon Bamber'; AuthorName := 'Gordon Bamber';
AuthorEmail := 'minesadorada@charcodelvalle.com'; AuthorEmail := 'minesadorada@charcodelvalle.com';
Organisation := 'Public Domain'; Organisation := 'Public Domain';

12
components/playsoundpackage/playwavepackage.lpk
View File

@@ -1,7 +1,8 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="4">
<Name Value="playwavepackage"/> <Name Value="playwavepackage"/>
<Type Value="RunAndDesignTime"/>
<Author Value="minesadorada"/> <Author Value="minesadorada"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
@@ -13,16 +14,10 @@
<GenerateDebugInfo Value="False"/> <GenerateDebugInfo Value="False"/>
</Debugging> </Debugging>
</Linking> </Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</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="LGPLv2"/> <License Value="LGPLv2"/>
<Version Release="3"/> <Version Release="5"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="uplaysound.pas"/> <Filename Value="uplaysound.pas"/>
@@ -40,7 +35,6 @@
<OutDir Value="locale"/> <OutDir Value="locale"/>
<EnableI18NForLFM Value="True"/> <EnableI18NForLFM Value="True"/>
</i18n> </i18n>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="1"> <RequiredPkgs Count="1">
<Item1> <Item1>
<PackageName Value="IDEIntf"/> <PackageName Value="IDEIntf"/>

4
components/playsoundpackage/uplaysound.pas
View File

@@ -115,7 +115,7 @@ begin
AboutBoxBackgroundColor := clCream; AboutBoxBackgroundColor := clCream;
//AboutBoxFontName (string) //AboutBoxFontName (string)
//AboutBoxFontSize (integer) //AboutBoxFontSize (integer)
AboutBoxVersion := '0.0.3'; AboutBoxVersion := '0.0.5';
AboutBoxAuthorname := 'Gordon Bamber'; AboutBoxAuthorname := 'Gordon Bamber';
AboutBoxOrganisation := 'Public Domain'; AboutBoxOrganisation := 'Public Domain';
AboutBoxAuthorEmail := 'minesadorada@charcodelvalle.com'; AboutBoxAuthorEmail := 'minesadorada@charcodelvalle.com';
@@ -134,7 +134,7 @@ end;
procedure Tplaysound.Execute; procedure Tplaysound.Execute;
begin begin
if not FileExistsUTF8(fPathToSoundFile) then if not FileExists(fPathToSoundFile) then
Exit; Exit;
Try Try
PlaySound(fPathToSoundFile); PlaySound(fPathToSoundFile);