429 

   429 

   430 flags:= SDL_OPENGL;

   430 flags:= SDL_OPENGL;

   431 if cFullScreen then flags:= flags or SDL_FULLSCREEN

   431 if cFullScreen then flags:= flags or SDL_FULLSCREEN

   432                else SDL_WM_SetCaption('Hedgewars', nil);

   432                else SDL_WM_SetCaption('Hedgewars', nil);

   433 SDL_FreeSurface(SDLPrimSurface);

   433 SDL_FreeSurface(SDLPrimSurface);

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

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

   435 

   437 

   436 SetupOpenGL();

   438 SetupOpenGL();

   437 

   439 

   438 {$IFDEF DEBUGFILE}

   440 {$IFDEF DEBUGFILE}

   439 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf))));

   441 AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf))));

   440 {$ENDIF}

   442 {$ENDIF}

   442 PixelFormat:= SDLPrimSurface^.format

   443 PixelFormat:= SDLPrimSurface^.format

   443 end;

   444 end;

   444 

   445 

   445 procedure chVol_p(var s: shortstring);

   446 procedure chVol_p(var s: shortstring);

   446 begin

   447 begin