From d08356e3b64d8738ff9672229c1bbe963b58337c Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 6 Jun 2007 20:24:29 +0000
Subject: Fixed some Bugs in Song Fading Added Ini Values to change the Fading
 and the Preview Volume

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

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

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index 52bae3c9..3fcd2a21 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -59,7 +59,7 @@ type
       procedure InitializePlayback;
       procedure InitializeRecord;
       procedure SetVolume(Volume: integer);
-      procedure SetMusicVolume(Volume: Byte);
+      procedure SetMusicVolume(Volume: integer);
       procedure SetLoop(Enabled: boolean);
       function Open(Name: string): boolean; // true if succeed
       procedure Rewind;
@@ -351,14 +351,14 @@ begin
   BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);
 end;
 
-procedure TMusic.SetMusicVolume(Volume: Byte);
+procedure TMusic.SetMusicVolume(Volume: Integer);
 begin
   //Max Volume Prevention
   if Volume > 100 then
     Volume := 100;
 
   //Set Volume
-  BASS_ChannelSetAttributes (Bass, -1, Integer(Volume), -101);
+  BASS_ChannelSetAttributes (Bass, -1, Volume, -101);
 end;
 
 procedure TMusic.SetLoop(Enabled: boolean);
-- 
cgit v1.2.3