как вывести спектр на форму?

[Roof]

как вывести цветовой спектр на форму или Image?

[Arigato]

Использовать свойство Pixels канвы компонента.
Например, Image1.Canvas.Pixels[X,Y] := RGB (R, G, B)
X, Y - координаты пиксела
R, G, B - составляющие цвета (красный, зеленый и синий соответственно). Значение типа byte, т.е. от 0 до 255 для каждой компоненты.

[Roof]

Вопрос решил, примерно, не совсем красиво, правда, полдучилось...
Выкладываю исходник. Если есть другие варианты решений, то буду благодарен за их предоставление.

Есть также исходник покороче, средствами OpenGl. но это не совсем спектр...
тоже выкладываю...

[Arigato]

Набросал небольшой примерчик. Выводится непрерывный спектр (в соответствии с порядком следования цветов в радуге).
Масштабирования по размерам окна не производится. Длинна спектра = 6 * 256 = 1536 пикселей. Высота спектра подгоняется под высоту окна.

function Sgn (I: Integer): Integer;
// Сигнум числа:
begin
  if I < 0 then Result := -1;
  if I = 0 then Result := 0;
  if I > 0 then Result := 1;
end; {func Sgn}

procedure TForm1.FormPaint(Sender: TObject);
var Points: array[1..6] of TColor;
    C, X: Integer;
    R, G, B, NewR, NewG, NewB: Byte;
begin
  Points[1] := RGB (255, 0, 0); // красный
  Points[2] := RGB (255, 255, 0); // желтый
  Points[3] := RGB (0, 255, 0); // зеленый
  Points[4] := RGB (0, 255, 255); // голубой
  Points[5] := RGB (0, 0, 255); // синий
  Points[6] := RGB (255, 0, 255); // фиолетовый
  R := GetRValue (Points[1]);
  G := GetGValue (Points[1]);
  B := GetBValue (Points[1]);
  X := 0;
  for C := 2 to 6 do
  begin
    NewR := GetRValue (Points[C]);
    NewG := GetGValue (Points[C]);
    NewB := GetBValue (Points[C]);
    repeat
      with Canvas do
      begin
        Pen.Color := RGB (R, G, B);
        MoveTo (X, 0);
        LineTo (X, Height);
      end; {with}
      Inc (X);
      Inc (R, Sgn (NewR - R));
      Inc (G, Sgn (NewG - G));
      Inc (B, Sgn (NewB - B));
    until (R = NewR) and (G = NewG) and (B = NewB);
  end; {for}
end;

[Roof]

да, выглядит намного лучше, да и код короткий
замечательно. спасиб!