Farbe wird verändert

[Blup]

Was war dann die Ursache und wie hast du das Problem gelöst?

[EWeiss]

Zitat:

Zitat von Blup (Beitrag 1371717)

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