diff -r 814683bbd230 -r fa518383563b hedgewars/uStore.pas --- a/hedgewars/uStore.pas Tue Jan 24 18:11:56 2012 +0100 +++ b/hedgewars/uStore.pas Thu Jan 26 02:06:16 2012 +0100 @@ -369,7 +369,7 @@ // This should maybe be flagged. It wastes quite a bit of memory. if not reload then begin -{$IF DEFINED(DARWIN) OR DEFINED(WIN32)} +{$IF DEFINED(DARWIN) OR DEFINED(WIN32) or DEFINED(ANDROID)} Surface:= tmpsurf {$ELSE} if saveSurf then @@ -998,7 +998,11 @@ AddFileLog('Preparing to change video parameters...'); {$IFNDEF IPHONEOS} + {$IFDEF SDL13} + if SDLwindow = nil then + {$ELSE} if SDLPrimSurface = nil then + {$ENDIF} begin // set window title SDL_WM_SetCaption('Hedgewars', nil); @@ -1006,7 +1010,7 @@ SDLTry(IMG_Init(IMG_INIT_PNG) <> 0, true); WriteLnToConsole(msgOK); // load engine icon -{$IFNDEF DARWIN} + {$IFNDEF DARWIN} ico:= LoadImage(UserPathz[ptGraphics] + '/hwengine', ifIgnoreCaps); if ico = nil then ico:= LoadImage(Pathz[ptGraphics] + '/hwengine', ifIgnoreCaps); @@ -1015,18 +1019,18 @@ SDL_WM_SetIcon(ico, 0); SDL_FreeSurface(ico) end; -{$ENDIF} + {$ENDIF} end else begin SetScale(cDefaultZoomLevel); -{$IF DEFINED(DARWIN) OR DEFINED(WIN32)} + {$IF DEFINED(DARWIN) OR DEFINED(WIN32) or DEFINED(ANDROID)} reinit:= true; StoreRelease(true); ResetLand; ResetWorldTex; //uTextures.freeModule; //DEBUG ONLY -{$ENDIF} + {$ENDIF} AddFileLog('Freeing old primary surface...'); SDL_FreeSurface(SDLPrimSurface); SDLPrimSurface:= nil; @@ -1047,14 +1051,14 @@ y:= SDL_WINDOWPOS_CENTERED_MASK; flags:= SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN; -{$IFDEF MOBILE} + {$IFDEF MOBILE} // make the sdl window appear on the second monitor when present x:= x or (SDL_GetNumVideoDisplays() - 1); y:= y or (SDL_GetNumVideoDisplays() - 1); SDL_SetHint('SDL_IOS_ORIENTATIONS','LandscapeLeft LandscapeRight'); flags:= flags or SDL_WINDOW_BORDERLESS or SDL_WINDOW_RESIZABLE; -{$ENDIF} + {$ENDIF} if SDLwindow = nil then if cFullScreen then @@ -1069,13 +1073,13 @@ if not cOnlyStats then begin -{$IFDEF WIN32} + {$IFDEF WIN32} s:= SDL_getenv('SDL_VIDEO_CENTERED'); SDL_putenv('SDL_VIDEO_CENTERED=1'); -{$ENDIF} + {$ENDIF} SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); SDLTry(SDLPrimSurface <> nil, true); -{$IFDEF WIN32}SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s));{$ENDIF} + {$IFDEF WIN32}SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s));{$ENDIF} end; {$ENDIF}