[putenko]

Как разбить прямоугольник на 5 полос различных цветов по вертикали и установить смену цветов полос создающюю иллюзию их вертикального движения.
Я паписал, то как, разбить прямоугольник на 5 полос различных цветов по вертикали.

Код:

procedure TForm1.FormPaint(Sender: TObject);
const
L = 50;// ширина (полосы)
H = 300;// высота (полосы)
var
x,y: integer;// левый верхний угол
begin
x := 20;
y := 20;
with Canvas do
begin
Brush.Color := clRed;// цвет закраски
Pen.Color := clRed;// цвет границы
Rectangle(x,y,x+L,y+H);

Brush.Color := clYellow;
Pen.Color := clYellow;
Rectangle(x+L,y,x+2*L,y+H);

Brush.Color := clGreen;
Pen.Color := clGreen;
Rectangle(x+2*L,y,x+3*L,y+H);

Brush.Color := clBlue;
Pen.Color := clBlue;
Rectangle(x+3*L,y,x+4*L,y+H);

Brush.Color := clPurple;
Pen.Color := clPurple;
Rectangle(x+4*L,y,x+5*L,y+H);

Pen.Color := clBlack;
Brush.Style := bsClear;// "прозрачная" кисть
Rectangle(x,y,x+5*L,y+H)
end;
end;
end.

Admin: Используем теги!

А дальше ступор! Помогите пожалуйста!