389 

   389 procedure chFullScr(var s: shortstring);

   390 var flags: Longword;

   391 begin

   392 if Length(s) = 0 then cFullScreen:= not cFullScreen

   393                  else cFullScreen:= s = '1';

   394    

   395 flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL;

   396 if cFullScreen then flags:= flags or SDL_FULLSCREEN

   397                else SDL_WM_SetCaption('Hedgewars', nil);

   398 SDL_FreeSurface(SDLPrimSurface);

   399 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);

   400 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);

   401 PixelFormat:= SDLPrimSurface.format;

   402 SDL_ShowCursor(0)

   403 end;

   404