hedgewars/CCHandlers.inc
changeset 1121 d595dc56b4f3
parent 1120 eb5a9f86f9c6
child 1127 7e1b94a0fc1f
equal deleted inserted replaced
1120:eb5a9f86f9c6 1121:d595dc56b4f3
   454 AddFileLog('Prepare to change video parameters...');
   454 AddFileLog('Prepare to change video parameters...');
   455 {$ENDIF}
   455 {$ENDIF}
   456 SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
   456 SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
   457 
   457 
   458 flags:= SDL_OPENGL or SDL_RESIZABLE;
   458 flags:= SDL_OPENGL or SDL_RESIZABLE;
   459 if cFullScreen then flags:= flags or SDL_FULLSCREEN
   459 if cFullScreen then
   460                else SDL_WM_SetCaption('Hedgewars', nil);
   460 	begin
       
   461 	flags:= flags or SDL_FULLSCREEN;
       
   462 	cScreenWidth:= cInitWidth;
       
   463 	cScreenHeight:= cInitHeight
       
   464 	end
       
   465 	else SDL_WM_SetCaption('Hedgewars', nil);
   461 {$IFDEF DEBUGFILE}
   466 {$IFDEF DEBUGFILE}
   462 AddFileLog('Freeing old primary surface...');
   467 AddFileLog('Freeing old primary surface...');
   463 {$ENDIF}
   468 {$ENDIF}
   464 SDL_FreeSurface(SDLPrimSurface);
   469 SDL_FreeSurface(SDLPrimSurface);
   465 
   470