Seit D11.2 tritt unter 64Bit folgender Fehler auf.
Beim initialisieren von lPixel bekomme ich "inaccessible value"
Der selbe Quelltext unter 32Bit funktioniert.
Unter D11 hat auch 64Bit funktioniert jetzt plötzlich nicht mehr.
Hat vielleicht jemand eine Info was geändert wurde?
Delphi-Quellcode:
procedure TSkinEngine.CreateFormRegion(hParent: HWND; TransColor: COLORREF);
var
p32: PByte;
lPixel: PRGBQuad;
begin
// nur relevanter Quelltext des Fehlers
p32 := PByte(integer(bm.bmBits) + (bm.bmHeight - 1) * bm.bmWidthBytes);
for Y := 0 to bm.bmHeight - 1 do
begin
X := 0;
while X < bm.bmWidth do
begin
M := X;
lPixel := PRGBQuad(integer(p32) + X * sizeof(cardinal));
while X < bm.bmWidth do
begin
try"
K := MakeColor(0, lPixel^.rgbRed, lPixel^.rgbGreen, lPixel^.rgbBlue) and $FFFFFF; // Fehler "lPixel^.rgbRed" usw. inaccessible value
except
K := 0;
end;