diff options
| -rw-r--r-- | src/screens/UScreenOptions.pas | 2 | ||||
| -rw-r--r-- | src/screens/UScreenOptionsRecord.pas | 3 |
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 |