diff --git a/components/playsoundpackage/latest_stable/aboutplaysound.pas b/components/playsoundpackage/latest_stable/aboutplaysound.pas index 4bee04833..969bad882 100644 --- a/components/playsoundpackage/latest_stable/aboutplaysound.pas +++ b/components/playsoundpackage/latest_stable/aboutplaysound.pas @@ -585,7 +585,7 @@ begin Font.Size:=10; // BackGroundColor shows if no BackGround image is set BackGroundColor := clWindow; - Version := '0.0.4.0'; + Version := '0.0.8.0'; AuthorName := 'Gordon Bamber'; AuthorEmail := 'minesadorada@charcodelvalle.com'; Organisation := 'Public Domain'; diff --git a/components/playsoundpackage/latest_stable/demo/demo.lps b/components/playsoundpackage/latest_stable/demo/demo.lps index 91b203242..800eb4a31 100644 --- a/components/playsoundpackage/latest_stable/demo/demo.lps +++ b/components/playsoundpackage/latest_stable/demo/demo.lps @@ -2,7 +2,7 @@ - + @@ -16,9 +16,9 @@ + - @@ -28,11 +28,10 @@ - + - @@ -43,24 +42,19 @@ - + - + - - - - - - - - - - - - - + + + + + + + + diff --git a/components/playsoundpackage/latest_stable/demo/demo.res b/components/playsoundpackage/latest_stable/demo/demo.res index 6c7c81ce6..e3872854a 100644 Binary files a/components/playsoundpackage/latest_stable/demo/demo.res and b/components/playsoundpackage/latest_stable/demo/demo.res differ diff --git a/components/playsoundpackage/latest_stable/playwavepackage.lpk b/components/playsoundpackage/latest_stable/playwavepackage.lpk index f3e683bc0..42a9bacd8 100644 --- a/components/playsoundpackage/latest_stable/playwavepackage.lpk +++ b/components/playsoundpackage/latest_stable/playwavepackage.lpk @@ -47,7 +47,7 @@ along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. "/> - + diff --git a/components/playsoundpackage/latest_stable/uplaysound.pas b/components/playsoundpackage/latest_stable/uplaysound.pas index eaee0e915..f3dcb170a 100644 --- a/components/playsoundpackage/latest_stable/uplaysound.pas +++ b/components/playsoundpackage/latest_stable/uplaysound.pas @@ -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