[Delphi] Jak narysować gradient?

0

Jak narysować gradient aby wyglądał tak jak na zdjęciu:

http://www.delphitologia.cba.pl/test.jpg

Czy ktoś mógłby napisać jak to zrobić? Z góry dziękuję za pomocną odpowiedź.

0

poszukaj w źródłach różnych komponentów które gradient malują, np tych z JEDI

0
var i:integer;
begin
with Canvas do
  begin
  Brush.Style:=bsClear;
  for i:=0 to 12 do
    begin
    Pen.Color:=RGB(0, 255-i*10, 0);
    Rectangle(100-i, 100-i, 400+i, 100+i);
    end;
  end;
end;

Ewentualnie kolorki sobie dobierz :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1