Hilfe bei Farbverlauf procedure

[shmia]

Zitat von Maik81ftl:

function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.

Dann schau nochmal genauer hin; die überladene Funktion gibt es in einer Variante, die beliebig viele Farben entgegen nimmt.
Wenn du 5 Farben übergibst, dann bekommst du den Verlauf in sagen wir mal 101 Schritten so:

Delphi-Quellcode:

for i:=0 to 100 do
begin
  blend := i * 0.01;  // blend bewegt sich zwischen 0.0 bis 1.0 !!
  farbe := ColorsBetween([clBlack, clRed, clYellow, clWhite, clGreen], blend);
  // hier mit farbe etwas tun....
end;

Anstelle von clBlack, clRed,... übergibst du natürlich deine eigenen 5 Farben.