anchor.diff:  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);
  +procedure TKMUserInterfaceCommon.HandleSoundVolumeKeys(Key: Word; var aHandled: Boolean);
   begin
     if aHandled then Exit;
   
  
positive.code: end;
  
  
  procedure TKMUserInterfaceCommon.KeyUp(Key: Word; Shift: TShiftState; var aHandled: Boolean);
  var
    mutedAll: Boolean;
  begin
  
negative.code:     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;
  
  
  