hedgewars/uStore.pas
changeset 5565 1a326ba319c9
parent 5562 8056d82b4d23
child 5577 272c82f82cee
child 5608 1e5d925dde9d
--- a/hedgewars/uStore.pas	Sun Aug 14 17:49:12 2011 -0400
+++ b/hedgewars/uStore.pas	Mon Aug 15 00:23:32 2011 +0200
@@ -941,7 +941,7 @@
         SDL_FreeSurface(ico)
     end;
 
-    // set window caption
+    // set window title
     SDL_WM_SetCaption('Hedgewars', nil);
 
     if SDLPrimSurface <> nil then
@@ -970,8 +970,13 @@
 {$ELSE}
     if not cOnlyStats then
         begin
+{$IFDEF WIN32}
+        s:= SDL_getenv('SDL_VIDEO_CENTERED');
+        SDL_putenv('SDL_VIDEO_CENTERED=1');
+{$ENDIF}
         SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
         SDLTry(SDLPrimSurface <> nil, true);
+{$IFDEF WIN32}SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s));{$ENDIF}
         end;
 {$ENDIF}