Dynamiske farve intevaller fra blå til rød

okay denne kode er fra et simpelt gradiant component. Jeg har bare lavet lidt om i den. Du må selv lige finde ud af om du vil lige farven ind i et array eller andet....

Smid en memo, en edit og en button med denne kode, og se om du kan bruge det:

procedure TForm1.Button1Click(Sender: TObject);
var
  diffr, startr, endr: longint;
  diffg, startg, endg: longint;
  diffb, startb, endb: longint;
  rstepr: real;
  rstepg: real;
  rstepb: real;
  i: word;
  TSteps: word;
  TFromColor: TColor;
  TToColor: TColor;
begin
  TSteps := strtoint(edit1.text);
  TFromColor := clblue;
  TToColor := clred;
  memo1.Clear;

  if TSteps = 0 then TSteps := 1;
  startr := (TFromColor and $0000FF);
  startg := (TFromColor and $00FF00) shr 8;
  startb := (TFromColor and $FF0000) shr 16;
  endr := (TToColor and $0000FF);
  endg := (TToColor and $00FF00) shr 8;
  endb := (TToColor and $FF0000) shr 16;

  diffr := endr - startr;
  diffg := endg - startg;
  diffb := endb - startb;

  rstepr := diffr / Tsteps;
  rstepg := diffg / Tsteps;
  rstepb := diffb / Tsteps;

    for i := 0 to Tsteps - 1 do
    begin
      endr := startr + round(rstepr * i);
      endg := startg + round(rstepg * i);
      endb := startb + round(rstepb * i);

      memo1.Lines.Add(Colortostring(endr + (endg shl 8) + (endb shl 16)));
    end;
end;

Der er lidt problemer med koden. Spektraet løber den forkert vej rundt i farvecirklen. Den korteste (blå til rød) vej er over lilla, som koden her gør. Den skal løbe denne anden vej rundt, over grøn og gul til rød. Syntes heller ikke slutfarven er rød, men mere over i lilla. Har prøvet at ændre på diffr,diffg,diffb uden held, for at farverne løber over grøn og gul i stedet for lilla. Kan spektreret løbe den anden vej rundt i farvecirkle. Ellers en rigtig fin kode.

Den med at den sidste farve ikke er helt rød fikses med
for i := 1 to Tsteps do istedet for for i := 0 to Tsteps - 1 do.

Nope, så ryger den blå istedet.

okay vil lige kigge på det...

har set lidt på det, men jeg kan ikke lige få den til det ønskede.
Har prøvet en del gradiant componenter for at se, men de bruger alle den samme vej. Målet er at hvis man har en start color på clred og en endcolor på clred, så skal den faktisk lave et farve spectrum.

mon ikke dette kan bruges:
http://community.borland.com/article/0,1410,16247,00.html

Yep, splitter din første kode op i fire parallelle rutiner som i borlands artikel:
{Red To Yellow} {Yellow To Green} {Green To Cyan} {Cyan To Blue}
Takker for hjælpen :))