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

1 files changed, 3 insertions, 3 deletions

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);