"Farbverlauf" von clBtnFace zu clBlack

[3_of_8]

Also ich würds so machen:

Delphi-Quellcode:

function GetGradientColor(const Color1, Color2: TColor; const Step, Steps: Cardinal): TColor;
begin
  Result:=(Color1 and $FF)*(Steps-Step-1) div (Steps-1)+(Color2 and $FF)*Step div (Steps-1);
  Result:=Result or 
    ((Color1 and $FF00)*(Steps-Step-1) div (Steps-1)+(Color2 and $FF00)*Step div (Steps-1));
  Result:=Result or 
    ((Color1 and $FF0000)*(Steps-Step-1) div (Steps-1)+(Color2 and $FF0000)*Step div (Steps-1));
end;

Ungetestet, sollte aber funktionieren. Anmerkung: Das ganze fängt bei Step=0 an.