delphi ряд прямоугольников

[tanek]

Да нужно чтобы был ряд этих прямоугольников, который шел через какой то интервал времени

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    StartProgramm: TMenuItem;
    exit: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure StartProgrammClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y:integer;
  dx,dy:integer;

implementation

{$R *.dfm}
procedure Ris(var dx,dy:integer);
begin
     // стереть окружность
  form1.Canvas.Pen.Color := form1.Color;
  form1.Canvas.Rectangle(x, y, x + 20, y + 20);
  x := x + dx; // нарисовать окружность на новом месте
  y:=y+dy;
  form1.Canvas.Pen.Color := clBlack;
  form1.Canvas.Rectangle(x, y, x + 20, y + 20);
end;

procedure TForm1.exitClick(Sender: TObject);
begin
  ShowMessage('Спасибо что использовали нашу программу');
  halt;
end;



procedure TForm1.StartProgrammClick(Sender: TObject);
begin
  x := 0;
  y := 20;
  dx := 5;
  timer1.Interval := 50; // период возникновения события OnTimer - 0.5 сек
  form1.canvas.brush.color := form1.color;

end;

procedure Tform1.Timer1Timer(Sender: TObject);
begin
  Ris(dx,dy);
end;

end.

Я просто не понимаю как это создать

[Greblin]

Очень просто, заводим какую-нибудь переменную sosed, в которой храним расстояние между двумя соседними прямоугольниками, и дальше делаем что-нибудь такое

procedure Ris(var dx,dy:integer);
begin
  for i := 0 to 5 do begin
    form1.Canvas.Pen.Color := form1.Color;
    form1.Canvas.Rectangle(x+i*sosed, y, x+i*sosed + 20, y + 20);
  end; //стёрли
  
  x := x + dx;
  y:=y+dy; //подвинули

  for i := 0 to 5 do begin 
    form1.Canvas.Pen.Color := clBlack;
    form1.Canvas.Rectangle(x+i*sosed, y, x+i*sosed + 20, y + 20);
  end; //нарисовали
end;

[tanek]

В этом случае они сразу ресуются на форме. а как сделать так, чтобы сначала вышел один прямоугольник потом через расстояние sosed вышел второй и т.д.?????

[Greblin]

Заведите глобальную переменную count, в которой будет хранится текущее количество прямоугольников. Тогда Ris изменится так

procedure Ris(var dx,dy:integer);
begin
  for i := 0 to count do begin
    form1.Canvas.Pen.Color := form1.Color;
    form1.Canvas.Rectangle(x+i*sosed, y, x+i*sosed + 20, y + 20);
  end; //стёрли
  
  count := count + 1;
  x := x + dx;
  y:=y+dy; //подвинули

  for i := 0 to count do begin 
    form1.Canvas.Pen.Color := clBlack;
    form1.Canvas.Rectangle(x+i*sosed, y, x+i*sosed + 20, y + 20);
  end; //нарисовали
end;

[tanek]

Greblin все равно не то получается....
у меня вот что получилось (приложение 10.jpg) а должно быть что то такое(приложение 4tasck.rar)

[Greblin]

Вот, ловите
Расстояние между ними надо было побольше сделать. И чтоб они в обратном порядке в цикле +i*sosed заменить на -i*sosed

[tanek]

Greblin спасибо вам вы мне очень помогли....)))