Mach doch noch eine Funktion draus:
Delphi-Quellcode:
function CalcGradiendColor(start,
end, pos, length: Integer): Integer;
begin
Result := start + round ((
end - start) * pos / length);
end;
// Aufruf:
RVal := CalcGradientColor(<Params>);
GVal := CalcGradientColor(<Params>);
BVal := CalcGradientColor(<Params>);