Цветная полоса???

[ZuBy]

как можно сделать своими руками цветную полоску.
посмотрите пожалуйста на картинку...
компоненты не предлагать...
очень нужно...

[Stilet]

Ну примерно вот так:

procedure TForm1.FormPaint(Sender: TObject);
var r,g,b,x,y:integer;
begin
 x:=1;y:=100;
 r:=(255*255*255) div Width;
   for x:=0 to Width do begin
    Canvas.MoveTo(x,y);
    Canvas.Pen.Color:=Canvas.Pen.Color+r;
    canvas.LineTo(x,y-50);
   end;
end;

Конечно поправить нужно, но смысл остается.

[ZuBy]

спасибо конечно он не то рисует что мне надо, но за основу спасибо...

[ZuBy]

кто может еще помощь??

[Stilet]

http://delphiworld.narod.ru/base/grad_fill.html

[Nester]

нечто похожее

[Nester]

Вот стало интересно и набросал

[ZuBy]

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