var lPixel := PRGBQuad(integer(p32) + X * sizeof(cardinal));
Macht keinen unterschied.
lPixel.rgbGreen
ebenso wenig.
Es bleibt bei "inaccessible value"
Dein Hinweis mit bm.bmBits hat mich auf die Lösung gebracht. Danke!
Delphi-Quellcode:
p32 := PByte(Long_PTR(bm.bmBits) + (bm.bmHeight - 1) * bm.bmWidthBytes);
lPixel := PRGBQuad(Long_PTR(p32) + X * sizeof(cardinal));