From 11cbdbed11fc4c98d04e968bd581e12ed695545e Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 10 Oct 2010 10:34:20 +0000
Subject: no bg-music in record screen

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2649 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenOptions.pas       | 2 ++
 src/screens/UScreenOptionsRecord.pas | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'src')

diff --git a/src/screens/UScreenOptions.pas b/src/screens/UScreenOptions.pas
index bdb37701..30e3e9c4 100644
--- a/src/screens/UScreenOptions.pas
+++ b/src/screens/UScreenOptions.pas
@@ -191,6 +191,8 @@ end;
 procedure TScreenOptions.OnShow;
 begin
   inherited;
+  // continue possibly stopped bg-music (stopped in record options)
+  SoundLib.StartBgMusic;
 end;
 
 procedure TScreenOptions.InteractNext;
diff --git a/src/screens/UScreenOptionsRecord.pas b/src/screens/UScreenOptionsRecord.pas
index dc4a355f..7af598e5 100644
--- a/src/screens/UScreenOptionsRecord.pas
+++ b/src/screens/UScreenOptionsRecord.pas
@@ -445,6 +445,9 @@ var
 begin
   inherited;
 
+  // BgMusic distracts too much, pause it
+  SoundLib.PauseBgMusic;
+
   Interaction := 0;
 
   // create preview sound-buffers
-- 
cgit v1.2.3