Ach ich vertu mich auch immerwieder
Dann sinds auch hier im Release 8ms
Trotzdem, 8ms sind hier noch flott genug. Mich interessiert erstmal die CPU des Threaderstellers o.O
EDIT:
Folgendes braucht im Release 5(-6)ms:
Delphi-Quellcode:
function HasTransparentRGBAValues (const bm:TBitmap): Boolean;
var
z: Integer; RGBA: PScanLine;
LPixel, LLastPixel: PRGBA;
begin
RGBA := bm.Scanline[bm.Height-1];
z := bm.Width * bm.Height;
LPixel := @RGBA[0];
LLastPixel := @RGBA[z - 1];
while (LPixel.A = 255) and (LPixel <> LLastPixel) do
Inc(LPixel);
Result := LPixel.A < 255;
end;
Meine CPU ist schon etwas älter, aber durchaus schnell genug für meine Zwecke:
AMD Athlon 64 X2 Dual Core Processor 5000+, 2600 MHz, 2 Kern(e), 2 logische(r) Prozessor(en)
Die hier gezeigte Variante ist mit ca. 23 MS in etwa so schnell wie meine Lösung (ebenfalls im Release-Mode)