Prüfung eines Bitmaps auf Transparenz (gehts noch schneller)?

[Amateurprofi]

@Harry:
Versuche mal das:

Code:

FUNCTION IsPartlyTransparentAsm(P0,P1:Pointer; W,H:NativeInt):Boolean;
asm
               sub      edx,eax
               js       @BottomUp
               imul     edx,H
               add      eax,edx
@BottomUp:     lea      eax,[eax+ecx*4+3]
               imul     ecx,H
               neg      ecx
@Loop:         cmp      byte[eax+ecx*4],$FF
               jne      @True
               add      ecx,1
               jl       @Loop
               xor      al,al
               jmp      @End
@True:         mov      al,True
@End:
end;

Delphi-Quellcode:

FUNCTION IsPartlyTransparent(Bmp:TBitMap):Boolean;
begin
   with Bmp do
      Result:=IsPartlyTransparentAsm(ScanLine[0],ScanLine[1],Width,Height);
end;