hedgewars/uStore.pas
changeset 5686 3f2e6ec7719a
parent 5670 e01f0b6f1969
child 5696 972bf04d4a79
--- a/hedgewars/uStore.pas	Thu Aug 25 16:17:15 2011 -0400
+++ b/hedgewars/uStore.pas	Fri Aug 26 16:16:27 2011 -0400
@@ -1006,7 +1006,8 @@
     flags:= flags or SDL_WINDOW_BORDERLESS or SDL_WINDOW_RESIZABLE;
 {$ENDIF}
 
-    SDLwindow:= SDL_CreateWindow('Hedgewars', x, y, cScreenWidth, cScreenHeight, flags);
+    if cFullScreen then SDLwindow:= SDL_CreateWindow('Hedgewars', x, y, cOrigScreenWidth, cOrigScreenHeight, flags);
+    else SDLwindow:= SDL_CreateWindow('Hedgewars', x, y, cScreenWidth, cScreenHeight, flags);
     SDLTry(SDLwindow <> nil, true);
 {$ELSE}
     flags:= SDL_OPENGL or SDL_RESIZABLE;