diff -r fe16fa088b69 -r b544bbbd0696 hedgewars/uStore.pas --- a/hedgewars/uStore.pas Wed Dec 27 00:59:26 2017 +0100 +++ b/hedgewars/uStore.pas Tue Jan 02 23:45:18 2018 +0100 @@ -779,10 +779,10 @@ // un-comment below and add proper logic to support opengles2.0 //SDL_GL_SetAttribute(SDL_GL_CONTEXT_MAJOR_VERSION, 2); //SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 0); - if SDLGLcontext = nil then + {if SDLGLcontext = nil then SDLGLcontext:= SDL_GL_CreateContext(SDLwindow); if SDLCheck(SDLGLcontext <> nil, 'SDLGLcontext', true) then exit; - SDL_GL_SetSwapInterval(1); + SDL_GL_SetSwapInterval(1);} RendererSetup(); @@ -793,8 +793,8 @@ procedure AddProgress; var r: TSDL_Rect; texsurf: PSDL_Surface; -begin - if cOnlyStats then exit; +begin + if cOnlyStats then exit; (* if Step = 0 then begin WriteToConsole(msgLoading + 'progress sprite: '); @@ -832,11 +832,11 @@ SwapBuffers; - inc(Step); + inc(Step); *) end; procedure FinishProgress; -begin +begin (* {$IFNDEF PAS2C} with mobileRecord do if GameLoaded <> nil then @@ -845,7 +845,7 @@ WriteLnToConsole('Freeing progress textures... '); FreeAndNilTexture(ProgrTex); FreeAndNilTexture(LoadingText); - Step:= 0 + Step:= 0 *) end; function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture; @@ -1084,7 +1084,7 @@ cScreenWidth:= cWindowedWidth; cScreenHeight:= cWindowedHeight; end; - +{ AddFileLog('Preparing to change video parameters...'); if SDLwindow = nil then begin @@ -1180,7 +1180,7 @@ SDL_SetWindowIcon(SDLwindow, ico); SDL_FreeSurface(ico); end; - {$ENDIF} + {$ENDIF}} SetupOpenGL(); if reinit then