364             SDL_UnlockSurface(Image);

   364             SDL_UnlockSurface(Image);

   365         exit

   365         exit

   366     end;

   366     end;

   367 

   367 

   368     for y := 0 to Image^.h - 1 do

   368     for y := 0 to Image^.h - 1 do

   370         if alphaOnly then

   369         if alphaOnly then

   371             begin

   370             begin

   372             for x := 0 to Image^.w - 1 do

   371             for x := 0 to Image^.w - 1 do

   373                 (rowData + x)^:= (PByte(Image^.pixels) + y * Image^.pitch + x * 4 + AByteIndex)^;

   372                 (rowData + x)^:= (PByte(Image^.pixels) + y * Image^.pitch + x * 4 + AByteIndex)^;

   374             syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, Image^.w);

   373             syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, Image^.w);

   375             end

   374             end

   376         else

   375         else

   377             syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(Image^.pixels)^[y*Image^.pitch], Image^.w*4);

   376             syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(Image^.pixels)^[y*Image^.pitch], Image^.w*4);

   381 

   377 

   382     if SDL_MustLock(Image) then

   378     if SDL_MustLock(Image) then

   383         SDL_UnlockSurface(Image);

   379         SDL_UnlockSurface(Image);

   384 

   380 

   385     if alphaOnly then

   381     if alphaOnly then