hedgewars/uStore.pas
changeset 15372 3907c95227b8
parent 15365 9fca575e3c88
child 15373 410a83aa9d9a
equal deleted inserted replaced
15371:81037b6052f4 15372:3907c95227b8
   436                     begin
   436                     begin
   437                     rowData := GetMem(tmpsurf^.w);
   437                     rowData := GetMem(tmpsurf^.w);
   438                     for y := 0 to tmpsurf^.h-1 do
   438                     for y := 0 to tmpsurf^.h-1 do
   439                         begin
   439                         begin
   440                         for x := 0 to tmpsurf^.w - 1 do
   440                         for x := 0 to tmpsurf^.w - 1 do
   441                             (rowData + x)^:= (PByte(tmpsurf^.pixels) + y * tmpsurf^.pitch + x * 4 + AByteIndex)^;
   441                             PByteArray(rowData)^[x] := PByteArray(tmpsurf^.pixels)^[y * tmpsurf^.pitch + x * 4 + AByteIndex];
   442                         syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, tmpsurf^.w);
   442                         syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, tmpsurf^.w);
   443                         end;
   443                         end;
   444                     FreeMem(rowData, tmpsurf^.w);
   444                     FreeMem(rowData, tmpsurf^.w);
   445                     end;
   445                     end;
   446                 end;
   446                 end;