From 69b1910acc77c177dba95d7375a668c07648093a Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 21 Feb 2010 17:02:16 +0000
Subject: added mp3 volume adjustment in songscreen and singscreen fixed bug in
 singscreen (tab and pause)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2136 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSongMenu.pas | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'Game/Code/Screens/UScreenSongMenu.pas')

diff --git a/Game/Code/Screens/UScreenSongMenu.pas b/Game/Code/Screens/UScreenSongMenu.pas
index 0efdb57e..d2bce394 100644
--- a/Game/Code/Screens/UScreenSongMenu.pas
+++ b/Game/Code/Screens/UScreenSongMenu.pas
@@ -82,6 +82,30 @@ begin
           ScreenPopupHelp.ShowPopup();
         end;
 
+        //MP3-Volume Up
+      SDLK_PAGEUP:
+        begin
+          if (ScreenSong.MP3Volume<100) then
+          begin
+            ScreenSong.MP3Volume := ScreenSong.MP3Volume+5;
+            Music.SetMusicVolume(ScreenSong.MP3Volume);
+          end;
+          ScreenSong.MP3VolumeHandler.changed := true;
+          ScreenSong.MP3VolumeHandler.change_time := 0;
+        end;
+
+      //MP3-Volume Down
+      SDLK_PAGEDOWN:
+        begin
+          if (ScreenSong.MP3Volume>0) then
+          begin
+            ScreenSong.MP3Volume := ScreenSong.MP3Volume-5;
+            Music.SetMusicVolume(ScreenSong.MP3Volume);
+          end;
+          ScreenSong.MP3VolumeHandler.changed := true;
+          ScreenSong.MP3VolumeHandler.change_time := 0;
+        end;
+
       SDLK_V:
         begin
           if UVideo.VideoOpened then
-- 
cgit v1.2.3