Hallo himitsu und vielen Dank!
Hallo shmia,
habe mich mal daran probiert, scheint aber noch zu schwierig!
Danke aber dafür, ist recht interessant.
Warum darf man keine Systemfarben übergeben bzw warum stören die 2 Nullen?
00XXXXXXX
mal mein bisheriges Ergebnis
(immerhin werden es schon 2 unterschiedlich gefärbte Vierecke
)
Delphi-Quellcode:
function ColorBetween2(a,b:TColor;c:integer):TColor;
ASM
// Shl eax,24; //cmp al,$00;
// cmp ah,$00;
// je @weiter;
Sub
dl,al;
Xchg al,
dl;
Mul
dl;
add al,
dl;
Sub dx,ax;
Xchg ax,dx;
Mul dx;
add ax,cx;
shl ax,8;
Sub edx,eax;
Xchg eax,edx;
Mul edx;
add eax,ecx;
shl eax,16;
Ret;
//@weiter:;
END;
Mfg Thomas
//Edit also 2 unterschiedliche Vierecke wenn man die Kommentarklammeren entfernt