aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UMusic.pas
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-06-06 20:24:29 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-06-06 20:24:29 +0000
commitd08356e3b64d8738ff9672229c1bbe963b58337c (patch)
treef801d0bb58e2c120933e098abcbe0ceaeb9e559b /Game/Code/Classes/UMusic.pas
parent4c5b6c460f3729fa2db0590e6f133a786a486ed8 (diff)
downloadusdx-d08356e3b64d8738ff9672229c1bbe963b58337c.tar.gz
usdx-d08356e3b64d8738ff9672229c1bbe963b58337c.tar.xz
usdx-d08356e3b64d8738ff9672229c1bbe963b58337c.zip
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
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UMusic.pas6
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);