Einzelnen Beitrag anzeigen

venice2
(Gast)

n/a Beiträge
 
#1

D11.2 64Bit inaccessible value (gelöst)

  Alt 9. Sep 2022, 01:12
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;

Geändert von venice2 ( 9. Sep 2022 um 03:21 Uhr)
  Mit Zitat antworten Zitat