Zitat:
Schwarz- Weiss Bilder
Was denn "Schwarz- Weiss" oder Graustufen? zumindest sind es 256 werte nicht nur 2 ($FFFFFF + $F000000)
Und GetPixel\SetPixel? Kein Ahnung wie schnell das unter LINUX\FMX ist jedenfalls unter Windows um einiges lahmer.
Das sollte auch unter Linux laufen oder kennt Linux kein
ASM sollte mich doch schwer wundern.
Delphi-Quellcode:
function TSkinEngine.Rgb2Gray(RGBValue: COLORREF): COLORREF;
stdcall;
asm
movzx edx, al
imul edx, 19595
//Red
movzx ecx, ah
imul ecx, 38470
//Greean
shr eax, 16
imul eax, 7471
//Blue
add eax, ecx
add eax, edx
shr eax, 16
mov ah, al
shl eax, 8
mov al, ah
end;
und FMX.
grusss