equal
deleted
inserted
replaced
1710 |
1710 |
1711 procedure onFocusStateChanged; |
1711 procedure onFocusStateChanged; |
1712 begin |
1712 begin |
1713 if (not cHasFocus) and (GameState <> gsConfirm) then |
1713 if (not cHasFocus) and (GameState <> gsConfirm) then |
1714 ParseCommand('quit', true); |
1714 ParseCommand('quit', true); |
|
1715 |
|
1716 if not cHasFocus then DampenAudio() |
|
1717 else UndampenAudio(); |
1715 end; |
1718 end; |
1716 |
1719 |
1717 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
1720 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
1718 begin |
1721 begin |
1719 with widget^ do |
1722 with widget^ do |