hedgewars/hwengine.dpr
changeset 166 2920ab2bf329
parent 161 d8870bbf960e
child 167 805fa9a27e9e
equal deleted inserted replaced
165:9b9144948668 166:2920ab2bf329
   203    OutError(errmsgShouldntRun, true)
   203    OutError(errmsgShouldntRun, true)
   204    end
   204    end
   205 end;
   205 end;
   206 
   206 
   207 procedure ShowMainWindow;
   207 procedure ShowMainWindow;
   208 var flags: Longword;
   208 begin
   209 begin
   209 if cFullScreen then ParseCommand('fullscr 1')
   210 flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL;
   210                else ParseCommand('fullscr 0')
   211 if cFullScreen then flags:= flags or SDL_FULLSCREEN
       
   212                else SDL_WM_SetCaption('Hedgewars', nil);
       
   213 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
       
   214 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);
       
   215 PixelFormat:= SDLPrimSurface.format;
       
   216 SDL_ShowCursor(0);
       
   217 end;
   211 end;
   218 
   212 
   219 ///////////////
   213 ///////////////
   220 procedure Game;
   214 procedure Game;
   221 begin
   215 begin