anchor.diff:      gGameSettings.MusicVolume := gMusic.Volume;
       aHandled := True;
     end;
  +end;
  +
  +
  +// This event happens every ~33ms if the Key is Down and holded
  +procedure TKMUserInterfaceCommon.KeyDown(Key: Word; Shift: TShiftState; aIsFirst: Boolean; var aHandled: Boolean);
  +begin
  +  if aHandled then Exit;
  +
  +  HandleSoundVolumeKeys(Key, aHandled);
  +
  +  if aIsFirst then Exit;
  +
  +  HandleSoundKeys(Key, aHandled);
  +end;
  +
  +
  +procedure TKMUserInterfaceCommon.KeyUp(Key: Word; Shift: TShiftState; var aHandled: Boolean);
  +begin
  +//
   end;
   
   
  
positive.code: end;
  
  
  procedure TKMUserInterfaceCommon.KeyUp(Key: Word; Shift: TShiftState; var aHandled: Boolean);
  var
    mutedAll: Boolean;
  begin
  
negative.code: end;
  
  
  procedure TKMUserInterfaceCommon.HandleSoundVolumeKeys(Key: Word; var aHandled: Boolean);
  begin
    if aHandled then Exit;
  
  