hedgewars/uLandObjects.pas
changeset 15351 3907c95227b8
parent 15345 a81bd0b5aad8
child 15352 410a83aa9d9a
equal deleted inserted replaced
15350:81037b6052f4 15351:3907c95227b8
   367 
   367 
   368     for y := 0 to Image^.h - 1 do
   368     for y := 0 to Image^.h - 1 do
   369         if alphaOnly then
   369         if alphaOnly then
   370             begin
   370             begin
   371             for x := 0 to Image^.w - 1 do
   371             for x := 0 to Image^.w - 1 do
   372                 (rowData + x)^:= (PByte(Image^.pixels) + y * Image^.pitch + x * 4 + AByteIndex)^;
   372                 PByteArray(rowData)^[x] := PByteArray(Image^.pixels)^[y * Image^.pitch + x * 4 + AByteIndex];
   373             syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, Image^.w);
   373             syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, Image^.w);
   374             end
   374             end
   375         else
   375         else
   376             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);
   377 
   377