aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-10-10 10:34:20 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-10-10 10:34:20 +0000
commit11cbdbed11fc4c98d04e968bd581e12ed695545e (patch)
treeeed237939ce15a903d8b6176981993a9ca670f79
parent99f9409119f5eafa47f6de56d2ebbef4a2f1d2a9 (diff)
downloadusdx-11cbdbed11fc4c98d04e968bd581e12ed695545e.tar.gz
usdx-11cbdbed11fc4c98d04e968bd581e12ed695545e.tar.xz
usdx-11cbdbed11fc4c98d04e968bd581e12ed695545e.zip
no bg-music in record screen
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2649 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--src/screens/UScreenOptions.pas2
-rw-r--r--src/screens/UScreenOptionsRecord.pas3
2 files changed, 5 insertions, 0 deletions
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