в Delphi нарисовать флаг , и что бы он развевался

[yana1996]

Как в Delphi нарисовать флаг , и что бы он развевался ?
Помогите пожалуйста

[vlad1389]

Гиф картинка пойдёт?

[northener]

Сообщение от vlad1389

Гиф картинка пойдёт?

Подойдёт, если код дашь.

[vlad1389]

А если так?

[yana1996]

Сообщение от vlad1389

А если так?

Неа, нужно прям нарисовать флаг) через Canvas .. и что бы он Развевался

[vlad1389]

Ну тогда вперёд. Таймер в помощь.

и что бы он Развевался

А я зачем Гиф предложил? Наверное потому, что он имеет анимацию. То бишь с первого раза понял задачу.

[yana1996]

как сделать что бы флаг развивался ?*

begin
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clBlack;
Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(0,0,500,300);
with canvas do
begin
Brush.Color:=clWhite; Rectangle(0,0,500,100);
Brush.Color:=clBlue; Rectangle(0,100,500,200);
Brush.Color:=clRed; Rectangle(0,200,500,300);
Canvas.Font.Size:=20;

    end;

[Pavia]

Решил сделать флаг. Может кому пригодится.