*ups*
Das liegt daran das sie bei Delphi nicht existiert.
Delphi-Quellcode:
function GetMixColor(adwStartColor, adwStopColor : Cardinal; afPos : Extended) : Cardinal;
function Clc(abStart, abStop : Byte) : Byte;
begin
Result := abStart + Round((abStop - abStart) * afPos);
end;
begin
Result :=
Rgb(Clc(GetRValue(adwStartColor), GetRValue(adwStopColor)),
Clc(GetGValue(adwStartColor), GetGValue(adwStopColor)),
Clc(GetBValue(adwStartColor), GetBValue(adwStopColor)));
end;
<== Ganz praktisch auch für Farbverläufe.
Übrigens den mist hab ich mir selbstausgedacht, also sorgsam damit umgehen!
