From 59b053bc8a9e0b52168b73ca86296e6fe890f522 Mon Sep 17 00:00:00 2001
From: mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 25 Aug 2008 19:46:45 +0000
Subject: Added: Option for background music in sound options (affects UIni
 too) Added: New language string SING_OPTIONS_SOUND_BACKGROUNDMUSIC Added: CC
 licensed music loop Improved: Options positions via Deluxe theme (first pass,
 next will follow) Improved: Code beautified in UScreenMain

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1290 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSong.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 5e374568..be1320f2 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -23,8 +23,6 @@ uses
   UThemes,
   UTexture,
   ULanguage,
-  //ULCD, //TODO: maybe LCD Support as Plugin?
-  //ULight, //TODO: maybe Light Support as Plugin?
   USong,
   UIni;
 
@@ -792,7 +790,6 @@ end;
 procedure TScreenSong.GenerateThumbnails();
 var
   I: Integer;
-  OldTextureLimit: integer;
   CoverButtonIndex: integer;
   CoverButton: TButton;
   CoverName: string;
@@ -1340,6 +1337,10 @@ end;
 procedure TScreenSong.onShow;
 begin
   inherited;
+{**
+ * Pause background music, so we can play it again on scorescreen
+ *}
+  SoundLib.PauseBgMusic;
 
   AudioPlayback.Stop;
 
-- 
cgit v1.2.3