hedgewars/hwengine.pas
changeset 3153 adfe8a91658f
parent 3078 07d4ca3afce3
child 3154 32e572debb9c
--- a/hedgewars/hwengine.pas	Mon Mar 29 09:52:10 2010 +0000
+++ b/hedgewars/hwengine.pas	Mon Mar 29 13:35:15 2010 +0000
@@ -28,7 +28,8 @@
 {$ELSE}
 program hwengine;
 {$ENDIF}
-uses    SDLh in 'SDLh.pas',
+uses
+    SDLh in 'SDLh.pas',
     uConsts in 'uConsts.pas',
     uGame in 'uGame.pas',
     uMisc in 'uMisc.pas',
@@ -266,7 +267,10 @@
     SDLTry(TTF_Init() <> -1, true);
     WriteLnToConsole(msgOK);
 
+    s:= SDL_getenv('SDL_VIDEO_CENTERED');
+    SDL_putenv('SDL_VIDEO_CENTERED=1');
     ShowMainWindow();
+    SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s));
 
     AddProgress();