Crear un Degradado entre dos colores

[aeff]

Saludos, colegas la cuestion que trato de resolver es lograr un degradado entre dos colores, para explicarme mejor, tengo dos colores, por ejemplo: clRed y clBlue, y necesito degradar el rojo hasta llegar a azul verticalmente, claro, pintando en el canvas de un objeto y teniendo en cuenta el Height del mismo de forma que la degradación se ajuste al área ¿no?.

En el Trucomania existe una referencia de como lograr un degradado tipo instalación, en este caso no me preocupa el Height de el objeto en cuestion (el Form), pero el degradado es de un color específico hacia negro y lo que quiero es lograrlo entre dos colores:

 procedure TForm1.FormPaint(Sender: TObject);
  var 
     Row, Ht: Word ;
  begin 
     Ht := (ClientHeight + 255) div 256 ;
     for Row := 0 to 255 do 
       with Canvas do begin 
          Brush.Color := RGB(0, 0, Row) ;
          FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;
       end ;
  end;

alguien me puede dar una mano en esto colegas ???

mil gracias de antemano, en verdad!, mil gracias!

saludos!
aeff!

[[coso]]

Hola, se ha dado el tema muchas veces. Te recomiendo que uses el buscador antes de preguntar algo en el foro. Saludos.

[aeff]

ok colega, pido disculpa por incumplir con la guia del foro, eso haré!!

[[cHackAll]]

Originally Posted by coso

Hola, se ha dado el tema muchas veces...

Demasiada coincidencia

Originally Posted by JF Sebastian

Desearia realizar un espectro de colores desde el rojo al azul...

Originally Posted by aeff

...necesito degradar el rojo hasta llegar a azul...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Offset, Value, Index: Cardinal;
begin
 Offset := 0;
 Value := 255;
 for Index := 0 to 255 do
  begin
   Canvas.Pen.Color := Value;
   Canvas.MoveTo(0, Index);
   Canvas.LineTo(32, Index + 16);
   Dec(PByte(Cardinal(@Value) + (Offset mod 3))^);
   Inc(PByte(Cardinal(@Value) + ((Offset + 2) mod 3))^);
   if ((Index + 1) mod 255) = 0 then
    Inc(Offset);
  end;
end;

Saludos