diff --git a/components/playsoundpackage/aboutplaysound.pas b/components/playsoundpackage/aboutplaysound.pas index b3cd6bf37..c4a34065f 100644 --- a/components/playsoundpackage/aboutplaysound.pas +++ b/components/playsoundpackage/aboutplaysound.pas @@ -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'; diff --git a/components/playsoundpackage/playwavepackage.lpk b/components/playsoundpackage/playwavepackage.lpk index 9f45f14bb..b4bee09f6 100644 --- a/components/playsoundpackage/playwavepackage.lpk +++ b/components/playsoundpackage/playwavepackage.lpk @@ -1,7 +1,8 @@ - + + @@ -13,16 +14,10 @@ - - - - - - - + @@ -40,7 +35,6 @@ - diff --git a/components/playsoundpackage/uplaysound.pas b/components/playsoundpackage/uplaysound.pas index 7744648cf..545319ade 100644 --- a/components/playsoundpackage/uplaysound.pas +++ b/components/playsoundpackage/uplaysound.pas @@ -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);