hedgewars/uStore.pas
changeset 15345 4e91a7050add
parent 15339 8951eaad20e5
child 15348 ae4c5738e8cb
equal deleted inserted replaced
15344:cf4a9632e649 15345:4e91a7050add
   431 
   431 
   432                 // load the image
   432                 // load the image
   433                 tmpsurf := LoadDataImageAltPath(Path, AltPath, FileName, imflags);
   433                 tmpsurf := LoadDataImageAltPath(Path, AltPath, FileName, imflags);
   434                 if (tmpsurf <> nil) and checkSum then
   434                 if (tmpsurf <> nil) and checkSum then
   435                     for y := 0 to tmpsurf^.h-1 do
   435                     for y := 0 to tmpsurf^.h-1 do
   436                         syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(tmpsurf^.pixels)^[y*tmpsurf^.pitch], tmpsurf^.w*4)
   436                         begin
       
   437                         syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(tmpsurf^.pixels)^[y*tmpsurf^.pitch], tmpsurf^.w*4);
       
   438                         AddFileLog(FileName + ': ' + IntToStr(syncedPixelDigest));
       
   439                         end;
   437                 end;
   440                 end;
   438 
   441 
   439             if tmpsurf <> nil then
   442             if tmpsurf <> nil then
   440                 begin
   443                 begin
   441                 if getImageDimensions then
   444                 if getImageDimensions then