equal
deleted
inserted
replaced
411 begin |
411 begin |
412 for ii:= Low(TSprite) to High(TSprite) do |
412 for ii:= Low(TSprite) to High(TSprite) do |
413 begin |
413 begin |
414 FreeTexture(SpritesData[ii].Texture); |
414 FreeTexture(SpritesData[ii].Texture); |
415 SpritesData[ii].Texture:= nil; |
415 SpritesData[ii].Texture:= nil; |
416 if (SpritesData[ii].Surface <> nil) and not reload then |
416 if (SpritesData[ii].Surface <> nil) and (not reload) then |
417 begin |
417 begin |
418 SDL_FreeSurface(SpritesData[ii].Surface); |
418 SDL_FreeSurface(SpritesData[ii].Surface); |
419 SpritesData[ii].Surface:= nil |
419 SpritesData[ii].Surface:= nil |
420 end |
420 end |
421 end; |
421 end; |
953 var flags: Longword = 0; |
953 var flags: Longword = 0; |
954 reinit: boolean = false; |
954 reinit: boolean = false; |
955 {$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF} |
955 {$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF} |
956 {$IFDEF SDL13}x, y: LongInt;{$ENDIF} |
956 {$IFDEF SDL13}x, y: LongInt;{$ENDIF} |
957 begin |
957 begin |
958 if Length(s) = 0 then cFullScreen:= not cFullScreen |
958 if Length(s) = 0 then cFullScreen:= (not cFullScreen) |
959 else cFullScreen:= s = '1'; |
959 else cFullScreen:= s = '1'; |
960 |
960 |
961 AddFileLog('Preparing to change video parameters...'); |
961 AddFileLog('Preparing to change video parameters...'); |
962 {$IFNDEF IPHONEOS} |
962 {$IFNDEF IPHONEOS} |
963 if SDLPrimSurface = nil then |
963 if SDLPrimSurface = nil then |