Создать граф. примитивы

[BDA]

Строки для 6 пункта берутся с сайта выше (они там точно есть все необходимые).

[vibraxo]

ничерта не выходит. Даже эллипс не получается

[BDA]

Засуньте проект в архив и выложите сюда.

[vibraxo]

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

Засуньте проект в архив и выложите сюда.

Он же пустой...
http://rghost.ru/private/46563047/0b...4274347b2735ae

[BDA]

Я надеюсь, что Вы прочли всю страницу, а не только скопировали пример.

With Canvas do
begin
  brush.Color:=clRed;
  Brush.Style:=BsDiagCross;
  Ellipse(0,0,Width,Height);
end;

[vibraxo]

Я прочитал всё, но практически не понял. Я сам этот сайт, перед тем как написать, нашел, прочитал, не понял, написал сюда, чтобы помогли с заданием

[vibraxo]

Есть прога.

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Pen.Color := clGreen;
Canvas.Brush.Color := clGreen;
Canvas.Rectangle(100, 100, 200, 150);
Canvas.Pen.Width:=2;

Canvas.Pen.Color := clBlue;
Canvas.Brush.Color := clBlue;
Canvas.Brush.Style:=bsBDiagonal;
Canvas.Ellipse(250, 100, 300, 150);

Canvas.Pen.Color := clOlive;
Canvas.Brush.Color := clOlive;
Canvas.Ellipse(350, 100, 500, 150);

Canvas.Pen.Color := clRed;
Canvas.Brush.Color := clRed;
Canvas.Rectangle(100, 200, 200, 300);

Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clBlack;
Canvas.RoundRect(250, 210, 380, 300, 10, 10);
end;
end.

Но как сделать, чтобы компонент юзался для 1 элемента? А то толщина юзается для всех и т.д. Как исправить?

[BDA]

procedure TForm1.FormPaint(Sender: TObject);
begin
  with canvas do
  begin
    Pen.Width := 1;
    Brush.Style := bsSolid;

    Pen.Color := clGreen;
    Brush.Color := clGreen;
    Rectangle(100, 100, 200, 150);

    Pen.Color := clOlive;
    Brush.Color := clOlive;
    Ellipse(350, 100, 500, 150);

    Pen.Color := clRed;
    Brush.Color := clRed;
    Rectangle(100, 200, 200, 300);

    Pen.Color := clBlack;
    Brush.Color := clBlack;
    RoundRect(250, 210, 380, 300, 10, 10);

    Pen.Width := 2;
    Brush.Style := bsBDiagonal;

    Pen.Color := clBlue;
    Brush.Color := clBlue;
    Ellipse(250, 100, 300, 150);
  end;
end;

Задавать те свойства, какие хочется, перед вызовом непосредственно рисования примитива.

UPD
Пожалуйста.

[vibraxo]

Огромное спасибо