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} |