879 |
879 |
880 procedure chFullScr(var s: shortstring); |
880 procedure chFullScr(var s: shortstring); |
881 var flags: Longword = 0; |
881 var flags: Longword = 0; |
882 ico: PSDL_Surface; |
882 ico: PSDL_Surface; |
883 buf: array[byte] of char; |
883 buf: array[byte] of char; |
|
884 x, y: LongInt; |
884 begin |
885 begin |
885 s:= s; // avoid compiler hint |
886 s:= s; // avoid compiler hint |
886 if Length(s) = 0 then cFullScreen:= not cFullScreen |
887 if Length(s) = 0 then cFullScreen:= not cFullScreen |
887 else cFullScreen:= s = '1'; |
888 else cFullScreen:= s = '1'; |
888 |
889 |
920 SDL_FreeSurface(SDLPrimSurface); |
921 SDL_FreeSurface(SDLPrimSurface); |
921 SDLPrimSurface:= nil; |
922 SDLPrimSurface:= nil; |
922 end; |
923 end; |
923 |
924 |
924 {$IFDEF SDL13} |
925 {$IFDEF SDL13} |
925 {$IFDEF IPHONEOS} |
|
926 // ipad can have 2 monitors, display sdl window on the second one |
|
927 SDL_SelectVideoDisplay(SDL_GetNumVideoDisplays() - 1); |
|
928 {$ENDIF} |
|
929 |
|
930 if SDLwindow = nil then |
926 if SDLwindow = nil then |
931 begin |
927 begin |
932 SDLwindow:= SDL_CreateWindow('Hedgewars', 0, 0, cScreenWidth, cScreenHeight, |
928 // on ipad, when second monitor is attached, display window in second monitor always |
933 SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN |
929 x:= {$IFDEF IPHONEOS}(SDL_WINDOWPOS_CENTERED_MASK or (SDL_GetNumVideoDisplays() - 1)){$ELSE}0{$ENDIF}; |
934 {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS{$ENDIF}); |
930 y:= {$IFDEF IPHONEOS}(SDL_WINDOWPOS_CENTERED_MASK or (SDL_GetNumVideoDisplays() - 1)){$ELSE}0{$ENDIF}; |
|
931 SDLwindow:= SDL_CreateWindow('Hedgewars', x, y, cScreenWidth, cScreenHeight, SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN |
|
932 {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS {$ENDIF}); |
935 SDLrender:= SDL_CreateRenderer(SDLwindow, -1, 1 and 2); |
933 SDLrender:= SDL_CreateRenderer(SDLwindow, -1, 1 and 2); |
936 end; |
934 end; |
937 |
935 |
938 SDL_SetRenderDrawColor(SDLrender,0, 0, 0, 255); |
936 SDL_SetRenderDrawColor(SDLrender, 0, 0, 0, 255); |
939 SDL_RenderClear(SDLrender); |
937 SDL_RenderClear(SDLrender); |
940 SDL_RenderPresent(SDLrender); |
938 SDL_RenderPresent(SDLrender); |
941 {$ELSE} |
939 {$ELSE} |
942 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
940 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
943 SDLTry(SDLPrimSurface <> nil, true); |
941 SDLTry(SDLPrimSurface <> nil, true); |