hedgewars/hwengine.dpr
changeset 166 2920ab2bf329
parent 161 d8870bbf960e
child 167 805fa9a27e9e
--- a/hedgewars/hwengine.dpr	Sun Sep 24 21:32:18 2006 +0000
+++ b/hedgewars/hwengine.dpr	Mon Sep 25 19:48:51 2006 +0000
@@ -205,15 +205,9 @@
 end;
 
 procedure ShowMainWindow;
-var flags: Longword;
 begin
-flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL;
-if cFullScreen then flags:= flags or SDL_FULLSCREEN
-               else SDL_WM_SetCaption('Hedgewars', nil);
-SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
-TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);
-PixelFormat:= SDLPrimSurface.format;
-SDL_ShowCursor(0);
+if cFullScreen then ParseCommand('fullscr 1')
+               else ParseCommand('fullscr 0')
 end;
 
 ///////////////