hedgewars/uStore.pas
branchqmlfrontend
changeset 12876 b544bbbd0696
parent 12844 22cc3d82905a
child 12877 c9418f57fcbc
--- 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