hedgewars/uStore.pas
changeset 4933 86bd82d58a0b
parent 4925 3d90fd7f738a
child 4976 088d40d8aba2
equal deleted inserted replaced
4932:f11d80bac7ed 4933:86bd82d58a0b
   687 
   687 
   688     DrawFromRect( -squaresize div 2, (cScreenHeight - squaresize) shr 1, @r, ProgrTex);
   688     DrawFromRect( -squaresize div 2, (cScreenHeight - squaresize) shr 1, @r, ProgrTex);
   689 
   689 
   690     SDL_GL_SwapBuffers();
   690     SDL_GL_SwapBuffers();
   691 {$IFDEF SDL13}
   691 {$IFDEF SDL13}
   692     SDL_RenderPresent();
   692     SDL_RenderPresent(SDLrender);
   693 {$ENDIF}
   693 {$ENDIF}
   694     inc(Step);
   694     inc(Step);
   695 
   695 
   696 end;
   696 end;
   697 
   697 
   930     if SDLwindow = nil then
   930     if SDLwindow = nil then
   931     begin
   931     begin
   932         SDLwindow:= SDL_CreateWindow('Hedgewars', 0, 0, cScreenWidth, cScreenHeight,
   932         SDLwindow:= SDL_CreateWindow('Hedgewars', 0, 0, cScreenWidth, cScreenHeight,
   933                         SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN
   933                         SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN
   934                         {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS{$ENDIF});
   934                         {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS{$ENDIF});
   935         SDL_CreateRenderer(SDLwindow, -1, 0);
   935         SDLrender:= SDL_CreateRenderer(SDLwindow, -1, 1 and 2);
   936     end;
   936     end;
   937 
   937 
   938     SDL_SetRenderDrawColor(0, 0, 0, 255);
   938     SDL_SetRenderDrawColor(SDLrender,0, 0, 0, 255);
   939     SDL_RenderFill(nil);
   939     SDL_RenderClear(SDLrender);
   940     SDL_RenderPresent();
   940     SDL_RenderPresent(SDLrender);
   941 {$ELSE}
   941 {$ELSE}
   942     SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
   942     SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
   943     SDLTry(SDLPrimSurface <> nil, true);
   943     SDLTry(SDLPrimSurface <> nil, true);
   944     PixelFormat:= SDLPrimSurface^.format;
   944     PixelFormat:= SDLPrimSurface^.format;
   945 {$ENDIF}
   945 {$ENDIF}