kann Daten nicht an Rect übergeben

[EWeiss]

Habs mal versucht aber transparent werden die Ecken immer noch nicht

Delphi-Quellcode:

          K := TransColor;

          end else K :=  ARGB(lPixel^.rgbReserved,
                               lPixel^.rgbRed,
                               lPixel^.rgbGreen,
                               lPixel^.rgbBlue) and $FFFFFF;
          inc(lPixel);

Delphi-Quellcode:

var 
  lPixel      : PRGBQuad;
begin
  lPixel := bm.bmBits;

Array rausgeschmissen anstelle dessen die Pixel incrementiert.
Sieh Bild im Anhang mit aktivierten AeroEmulationsEffect unter Xp

gruss Emil