Was war dann die Ursache und wie hast du das Problem gelöst?
Mit der geänderten Function von Amateurprofi und angehängten stdcall
stdcall wirkt manchmal wunder. (vor allem dann wenn diese Function sich in einer
DLL befindet.)
Delphi-Quellcode:
function RGBtoGray(Value: 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;
gruss