From ccb5946db9ae26b5b40a171110e4a5fc595cb0bf Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 25 Mar 2007 15:20:46 +0000
Subject: Changed Music.SetVolume from Global Wave Volume to Application-Only
 BassConfig

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@35 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UMusic.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index db1675c5..f7f0e20d 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -342,7 +342,12 @@ end;
 
 procedure TMusic.SetVolume(Volume: integer);
 begin
-  BASS_SetVolume(Volume);
+  //Old Sets Wave Volume
+  //BASS_SetVolume(Volume);
+  //New: Sets Volume only for this Application
+  BASS_SetConfig(BASS_CONFIG_GVOL_SAMPLE, Volume);
+  BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);
+  BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);
 end;
 
 procedure TMusic.SetLoop(Enabled: boolean);
-- 
cgit v1.2.3