hedgewars/uGame.pas
branchios-develop
changeset 13418 ba39a1d396c0
parent 13044 aed4b25ff242
child 13496 f725701ca529
--- a/hedgewars/uGame.pas	Sun Jun 10 18:56:51 2018 +0200
+++ b/hedgewars/uGame.pas	Sun Jun 10 19:12:26 2018 +0200
@@ -93,6 +93,18 @@
             s:= ansistring(inttostr(i));
             AddCaption(FormatA(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
             end
+        end
+    else if cMuteToggle then
+        begin
+        MuteAudio;
+        if isAudioMuted then
+            AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
+        else
+            begin
+            s:= ansistring(inttostr(GetVolumePercent()));
+            AddCaption(FormatA(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
+            end;
+        cMuteToggle:= false;
         end;
     end;
 PlayNextVoice;