668 SDL_FreeSurface(SDLPrimSurface); |
668 SDL_FreeSurface(SDLPrimSurface); |
669 end; |
669 end; |
670 |
670 |
671 {$IFDEF SDL13} |
671 {$IFDEF SDL13} |
672 window:= SDL_CreateWindow('Hedgewars', 0, 0, cScreenWidth, cScreenHeight, |
672 window:= SDL_CreateWindow('Hedgewars', 0, 0, cScreenWidth, cScreenHeight, |
673 SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN |
673 SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN |
674 {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS{$ENDIF}); |
674 {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS{$ENDIF}); |
675 SDL_CreateRenderer(window, -1, 0); |
675 SDL_CreateRenderer(window, -1, 0); |
676 PixelFormat:= nil; |
676 PixelFormat:= nil; |
677 |
677 |
678 SDL_SetRenderDrawColor(0, 0, 0, 255); |
678 SDL_SetRenderDrawColor(0, 0, 0, 255); |
679 SDL_RenderFill(nil); |
679 SDL_RenderFill(nil); |
680 SDL_RenderPresent(); |
680 SDL_RenderPresent(); |
681 {$ELSE} |
681 {$ELSE} |
682 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
682 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
683 SDLTry(SDLPrimSurface <> nil, true); |
683 SDLTry(SDLPrimSurface <> nil, true); |
684 PixelFormat:= SDLPrimSurface^.format; |
684 PixelFormat:= SDLPrimSurface^.format; |