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

To V0.0.8.0 Bugfix for linux systems

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7025 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2019-07-11 14:32:50 +00:00
parent 88c8be65cf
commit 5183bfe531
5 changed files with 23 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/playsoundpackage/latest_stable/uplaysound.pas
View File

@ -143,12 +143,13 @@ begin
AboutBoxBackgroundColor := clCream;
//AboutBoxFontName (string)
//AboutBoxFontSize (integer)
AboutBoxVersion := '0.0.7';
AboutBoxVersion := '0.0.8';
AboutBoxAuthorname := 'Gordon Bamber';
AboutBoxOrganisation := 'Public Domain';
AboutBoxAuthorEmail := 'minesadorada@charcodelvalle.com';
AboutBoxLicenseType := 'MODIFIEDGPL';
AboutBoxDescription := 'Plays WAVE sounds in Windows or Linux';
AboutBoxDescription := 'Plays WAVE sounds in Windows or Linux' + LineEnding +
'Public methods: Execute and StopSound';
end;
destructor Tplaysound.Destroy;
@ -164,6 +165,11 @@ procedure Tplaysound.Execute;
begin
if not FileExists(fPathToSoundFile) then
Exit;
{$IFDEF WINDOWS}
fDefaultPlayCommand := 'sndPlaySound';
{$ELSE}
fDefaultPlayCommand := GetNonWindowsPlayCommand; // Linux, Mac etc.
{$ENDIF}
Try
PlaySound(fPathToSoundFile);
Except