Графика в Delphi 7

[_-Re@l-_]

Начал изучение графики в Delphi. Нашёл функцию Form1.Canvas.Rectangle. Я пишу так:

Form1.Brush.Color:=clLime;
Form1.Canvas.Rectangle(100,100,200,200);

А почему он мне рисует во всю форму?

[Пепел Феникса]

что значит во всю форму?
он рисует прямоугольник с координатами [100,100]:[200,200]
такие вещи стоит писать в OnPaint формы

[_-Re@l-_]

Вот так это

Ага, когда написал это в OnPaint, нормально стало. А как сделать закрашенный прямоугольник?

[Пепел Феникса]

мне кажется вам надо менять св-во канвы а не формы(Canvas.Brush)
вот фот прямоугольника
Canvas.Pen это его обводка.

[_-Re@l-_]

вот когда я пишу такой код:

procedure TForm1.FormPaint(Sender: TObject);
begin
     Form1.Brush.Style:=bsSolid;
     Form1.Brush.Color:=clLime;
     Form1.Canvas.Rectangle(100,100,200,200);
end;

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

[Пепел Феникса]

я написал ниже(так вышло что вы успели прочесть пост)

[CRUMB]

Промоделировать движение исследовательского зонда, «выстреленного» вертикально вверх с уровня земли. В верхней точке траектории над зондом раскрывается парашют, и он плавно спускается в точку старта.