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;
// BackGroundColor shows if no BackGround image is set
BackGroundColor := clWindow;
Version := '1.0.0.0';
Version := '0.0.4.0';
AuthorName := 'Gordon Bamber';
AuthorEmail := 'minesadorada@charcodelvalle.com';
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>
<Package Version="4">
<Name Value="playwavepackage"/>
<Type Value="RunAndDesignTime"/>
<Author Value="minesadorada"/>
<CompilerOptions>
<Version Value="11"/>
@ -13,16 +14,10 @@
<GenerateDebugInfo Value="False"/>
</Debugging>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Simple component to play wave files under Windows or Linux"/>
<License Value="LGPLv2"/>
<Version Release="3"/>
<Version Release="5"/>
<Files Count="2">
<Item1>
<Filename Value="uplaysound.pas"/>
@ -40,7 +35,6 @@
<OutDir Value="locale"/>
<EnableI18NForLFM Value="True"/>
</i18n>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="1">
<Item1>
<PackageName Value="IDEIntf"/>

4
components/playsoundpackage/uplaysound.pas
View File

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