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

2
components/playsoundpackage/latest_stable/aboutplaysound.pas
View File

@ -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';

32
components/playsoundpackage/latest_stable/demo/demo.lps
View File

@ -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>

BIN
components/playsoundpackage/latest_stable/demo/demo.res
View File

Binary file not shown.

2
components/playsoundpackage/latest_stable/playwavepackage.lpk
View File

@ -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"/>

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