From 56401e83adcd301f9fac25bcbf918305d9ed0501 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 20 Jul 2016 20:18:36 +0000 Subject: [PATCH] playsoundpackage: Fix playstyle usage in demo broken in Linux by prev commit. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5017 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/playsoundpackage/demo/umainform.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/playsoundpackage/demo/umainform.pas b/components/playsoundpackage/demo/umainform.pas index bf3013ae0..6011dc8ee 100644 --- a/components/playsoundpackage/demo/umainform.pas +++ b/components/playsoundpackage/demo/umainform.pas @@ -41,8 +41,8 @@ implementation procedure Tmainform.cmd_AsyncClick(Sender: TObject); // No gap between sounds. App remains responsive begin - {$IFDEF WINDOWS} playsound1.PlayStyle:=psASync; + {$IFDEF WINDOWS} playsound1.SoundFile:='doorbell.wav'; playsound1.Execute; playsound1.SoundFile:='telephone.wav'; @@ -60,8 +60,8 @@ end; procedure Tmainform.cmd_SyncClick(Sender: TObject); begin - {$IFDEF WINDOWS} playsound1.PlayStyle:=psSync; + {$IFDEF WINDOWS} playsound1.SoundFile:='doorbell.wav'; playsound1.Execute; playsound1.SoundFile:='telephone.wav';