From 49ada15c935658c5d90416e26acfb360f1e7c047 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 3 Jun 2007 19:45:43 +0000
Subject: Added SongPreview Fading Song Preview Max Volume is now 70 % Need
 Testing because of timing

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

(limited to 'Game/Code/Classes/UMusic.pas')

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index 6e997c11..52bae3c9 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -59,6 +59,7 @@ type
       procedure InitializePlayback;
       procedure InitializeRecord;
       procedure SetVolume(Volume: integer);
+      procedure SetMusicVolume(Volume: Byte);
       procedure SetLoop(Enabled: boolean);
       function Open(Name: string): boolean; // true if succeed
       procedure Rewind;
@@ -350,6 +351,16 @@ begin
   BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);
 end;
 
+procedure TMusic.SetMusicVolume(Volume: Byte);
+begin
+  //Max Volume Prevention
+  if Volume > 100 then
+    Volume := 100;
+
+  //Set Volume
+  BASS_ChannelSetAttributes (Bass, -1, Integer(Volume), -101);
+end;
+
 procedure TMusic.SetLoop(Enabled: boolean);
 begin
   Loop := Enabled;
@@ -364,6 +375,8 @@ begin
 
     Bass := Bass_StreamCreateFile(false, pchar(Name), 0, 0, 0);
     Loaded := true;
+    //Set Max Volume
+    SetMusicVolume (100);
   end;
 
   Result := Loaded;
-- 
cgit v1.2.3