Interpolacion RGB

[[Caral]]

Hola
No dejo de aprender con el código de cHackAll, no dejas de impresionarme amigo.
Haciendo un poco de chapuzas quise que el color estuviese en el form completo, que cuando se amplie o reduzca el color haga lo mismo y que con un trackbar se pudiera cambiar, ademas de hacerlo que siga la linea del form, sin la inclinacion (bueno, metiendome en camisa de once varas)
Logre que se ampliara hacia abajo, que siguiera la linea del form y que cambiara el color con el trackbar (hace un efecto simpatico).
Lo que no me aclaro es como hacer que crezca completo cuando el form se amplia?.
Aqui tu codigo con estos detalles:

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

Bueno, la pregunta es obvia: Como lo hago amigo?.
Saludos

[[cHackAll]]

Código Delphi [-]
var Bitmap: TBitmap;
 
procedure TForm1.FormCreate(Sender: TObject);
var Offset, Value, Index: Cardinal;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := 255 * 3;
 Bitmap.Height := 1;
 Offset := 0;
 Value := 255; // change this
 for Index := 0 to 255 * 3 - 1 do
  begin
   Bitmap.Canvas.Pixels[Index, 0] := Value;
   Dec(PByte(Cardinal(@Value) + (Offset mod 3))^);
   Inc(PByte(Cardinal(@Value) + ((Offset + 1) mod 3))^);
   if ((Index + 1) mod 255) = 0 then
    Inc(Offset);
  end;
end;
 
procedure TForm1.FormPaint(Sender: TObject); // OnPaint, OnResize
begin
 SetStretchBltMode(Canvas.Handle, COLORONCOLOR);
 StretchBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, Bitmap.Canvas.Handle, 0, 0, 255 * 3, 1, SRCCOPY);
end;

[[Caral]]

Hola
Muy bueno amigo.
Tengo otra duda, cuando el form se redimensiona, se queda marcado el form anterior, osea pintado encima, supongo que se tendria que borrar?.
Saludos

[[coso]]

Hola Caral, con

Código Delphi [-]
procedure TForm1.OnResize(sender : TObject);
begin
     Paint;
end;

lo solucionas. Saludos.

[[Caral]]

Hola
Muchas gracias Coso, ahora si.
Saludos