Zitat von
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);
Was mir daran sofort auffällt: Du baust dir einen Quad zusammen mit Alpha Kanal über die RGBA() Funktion um danach den Alphakanal wieder auszumaskieren. Dann kannste auch gleich die
RGB Funktion nehmen oder einfach 1:1 zuweisen und dann nur den Alpha Kanal auf 0 setzen.