equal
deleted
inserted
replaced
351 //SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); |
351 //SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); |
352 //SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1); |
352 //SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1); |
353 {$ENDIF} |
353 {$ENDIF} |
354 AddProgress; |
354 AddProgress; |
355 |
355 |
356 {$IFNDEF IPHONEOS} |
356 {$IFDEF SDL_IMAGE_NEWER} |
357 // remove this ifndef when updating sdl_image |
|
358 IMG_Quit(); |
357 IMG_Quit(); |
359 {$ENDIF} |
358 {$ENDIF} |
360 end; |
359 end; |
361 |
360 |
362 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture); |
361 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture); |
1168 var r: TSDL_Rect; |
1167 var r: TSDL_Rect; |
1169 texsurf: PSDL_Surface; |
1168 texsurf: PSDL_Surface; |
1170 begin |
1169 begin |
1171 if Step = 0 then |
1170 if Step = 0 then |
1172 begin |
1171 begin |
1173 {$IFNDEF IPHONEOS} |
1172 {$IFDEF SDL_IMAGE_NEWER} |
1174 // remove this ifndef when updating sdl_image |
|
1175 WriteToConsole('Init SDL_image... '); |
1173 WriteToConsole('Init SDL_image... '); |
1176 SDLTry(IMG_Init(IMG_INIT_PNG) <> 0, true); |
1174 SDLTry(IMG_Init(IMG_INIT_PNG) <> 0, true); |
1177 WriteLnToConsole(msgOK); |
1175 WriteLnToConsole(msgOK); |
1178 {$ENDIF} |
1176 {$ENDIF} |
1179 |
1177 |