From 5183bfe531572f33e67adfe3897fcf6868a6cedc Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 11 Jul 2019 14:32:50 +0000
Subject: [PATCH] To V0.0.8.0  Bugfix for linux systems

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7025 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../latest_stable/aboutplaysound.pas          |   2 +-
 .../latest_stable/demo/demo.lps               |  32 +++++++-----------
 .../latest_stable/demo/demo.res               | Bin 4612 -> 4968 bytes
 .../latest_stable/playwavepackage.lpk         |   2 +-
 .../latest_stable/uplaysound.pas              |  10 ++++--
 5 files changed, 23 insertions(+), 23 deletions(-)

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 @@
 <CONFIG>
   <ProjectSession>
     <PathDelim Value="\"/>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <BuildModes Active="Default"/>
     <Units Count="6">
       <Unit0>
@@ -16,9 +16,9 @@
         <ComponentName Value="mainform"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <EditorIndex Value="-1"/>
         <CursorPos X="32" Y="9"/>
         <UsageCount Value="20"/>
-        <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
@@ -28,11 +28,10 @@
       </Unit2>
       <Unit3>
         <Filename Value="..\uplaysound.pas"/>
-        <EditorIndex Value="1"/>
+        <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"/>
@@ -43,24 +42,19 @@
       <Unit5>
         <Filename Value="..\aboutplaysound.pas"/>
         <IsVisibleTab Value="True"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="580"/>
-        <CursorPos X="32" Y="589"/>
+        <CursorPos X="22" Y="588"/>
         <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>
+    <General>
+      <ActiveWindowIndexAtStart Value="-1"/>
+    </General>
+    <JumpHistory HistoryIndex="-1"/>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="0" ActiveMode="default"/>
+    </RunParams>
   </ProjectSession>
 </CONFIG>
diff --git a/components/playsoundpackage/latest_stable/demo/demo.res b/components/playsoundpackage/latest_stable/demo/demo.res
index 6c7c81ce6ddb90b9b4bf9585e4ffa65d6ea93c92..e3872854a698630af1a0c37cfe25b3fb6d235984 100644
GIT binary patch
delta 378
zcmZosd7(BzfoU__M5X`ijs*pNiMgqhH5hF+XEI8$$Sc?+7Uz~3TO}40<YXo%mSpDV
zDOBX<<P}?i#V02+%S@if#9I$hRi2rbl3!jNoLW+nnU`J+QE97`QBqQ1rLSL{oRONF
zSge<unOu}#oS#;rmz<xgAMER?Z)9L#svnN3S;>x<OF==wCZ!<Lu{^OT)y^$3r#RI{
zAI=9!+vr0qu1B*OtQYEZG$|4sWoU-OQOH(<jn_wb8e}!hSxBJ<6b6YFr{*T*RN8Is
IXD#Ic082N4vH$=8

delta 66
zcmaE%)}k^&f!mLjfkA<Rf#LsuiOK)jL?=2tWRJ`*EpjX<n5@BQ!>W*xT9mpug;9!y
W$3{P~xHvU8DW}qoVe@CUQXT-oP8DhZ

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.
 "/>
-    <Version Release="7"/>
+    <Version Release="8"/>
     <Files Count="2">
       <Item1>
         <Filename Value="uplaysound.pas"/>
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