517 {$IFDEF DEBUGFILE}

   517 {$IFDEF DEBUGFILE}

   518 AddFileLog('Freeing old primary surface...');

   518 AddFileLog('Freeing old primary surface...');

   519 {$ENDIF}

   519 {$ENDIF}

   520 if SDLPrimSurface <> nil then SDL_FreeSurface(SDLPrimSurface);

   520 if SDLPrimSurface <> nil then SDL_FreeSurface(SDLPrimSurface);

   521 

   521 

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

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

   523 SDLTry(SDLPrimSurface <> nil, true);

   527 SDLTry(SDLPrimSurface <> nil, true);

   524 

   528 

   525 {$IFDEF DEBUGFILE}

   529 {$IFDEF DEBUGFILE}

   526 AddFileLog('Setting up OpenGL...');

   530 AddFileLog('Setting up OpenGL...');