aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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