From 7ba2a6cc5144715c8b1e48356dc06731b3ba1298 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 22 Feb 2010 16:33:40 +0000
Subject: workaround for alt+tab bug new acinerella.dll

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2140 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UMain.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index feaaedf1..19607404 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -161,11 +161,18 @@ Begin
   Begin
 //    beep;
     Case Event.type_ Of
-      SDL_QUITEV: begin
+      SDL_ACTIVEEVENT: //workaround for alt-tab bug
+        begin
+          if (Event.active.gain=0) then
+            SDL_SetModState(0);
+        end;
+
+      SDL_QUITEV:
+        begin
         Display.Fade := 0;
         Display.NextScreenWithCheck := nil;
         Display.CheckOK := True;
-      end;
+        end;
 {      SDL_MOUSEBUTTONDOWN:
         With Event.button Do
         Begin
-- 
cgit v1.2.3