1777 procedure onFocusStateChanged;

  1777 procedure onFocusStateChanged;

  1778 begin

  1778 begin

  1779 if (not cHasFocus) and (GameState <> gsConfirm) then

  1779 if (not cHasFocus) and (GameState <> gsConfirm) then

  1780     ParseCommand('quit', true);

  1780     ParseCommand('quit', true);

  1781 

  1781 

  1782 // do not change volume during prerecording as it will affect sound in video file

  1783 // do not change volume during prerecording as it will affect sound in video file

  1783 if not flagPrerecording then

  1784 if not flagPrerecording then

  1784     begin

  1786     begin

  1785     if not cHasFocus then DampenAudio()

  1787     if not cHasFocus then DampenAudio()

  1786     else UndampenAudio();

  1788     else UndampenAudio();

  1787     end;

  1789     end;

  1788 end;

  1790 end;