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

playsoundpackage: Fix playstyle usage in demo broken in Linux by prev commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5017 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-20 20:18:36 +00:00
parent 0299f6dba7
commit 56401e83ad
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/playsoundpackage/demo/umainform.pas
View File

@@ -41,8 +41,8 @@ implementation
procedure Tmainform.cmd_AsyncClick(Sender: TObject); procedure Tmainform.cmd_AsyncClick(Sender: TObject);
// No gap between sounds. App remains responsive // No gap between sounds. App remains responsive
begin begin
{$IFDEF WINDOWS}
playsound1.PlayStyle:=psASync; playsound1.PlayStyle:=psASync;
{$IFDEF WINDOWS}
playsound1.SoundFile:='doorbell.wav'; playsound1.SoundFile:='doorbell.wav';
playsound1.Execute; playsound1.Execute;
playsound1.SoundFile:='telephone.wav'; playsound1.SoundFile:='telephone.wav';
@@ -60,8 +60,8 @@ end;
procedure Tmainform.cmd_SyncClick(Sender: TObject); procedure Tmainform.cmd_SyncClick(Sender: TObject);
begin begin
{$IFDEF WINDOWS}
playsound1.PlayStyle:=psSync; playsound1.PlayStyle:=psSync;
{$IFDEF WINDOWS}
playsound1.SoundFile:='doorbell.wav'; playsound1.SoundFile:='doorbell.wav';
playsound1.Execute; playsound1.Execute;
playsound1.SoundFile:='telephone.wav'; playsound1.SoundFile:='telephone.wav';