Как создать квадрат??? (графика!)

[diznt]

Я умею создавать токо одну линию а как сделать еще несколько чтобы получился к примеру квадратик

[Kostia]

Если это delphi можно так:

  with form1.Canvas do
  begin
    MoveTo(10,10);
    LineTo(20,10);
    LineTo(20,20);
    LineTo(10,20);
    LineTo(10,10);
  end;

или так:
Form1.Canvas.Rectangle(0,0,100,100) ;

А вообще, книжку в руки и дуй читать!

[Alter]

Процедура для упрощения -> kvad:

var
  Form1: TForm1;
  Procedure kvad(C :TCanvas; X0,Y0, Heig,Widt :LongInt; Co :TColor=clGreen);

implementation

{$R *.dfm}

Procedure kvad(C :TCanvas; X0,Y0, Heig,Widt :LongInt; Co :TColor=clGreen);
begin
 C.Pen.Color := Co;
 C.MoveTo(X0, Y0);
 C.LineTo(X0, Y0+Heig);
 C.LineTo(X0+Widt, Y0+Heig);
 C.LineTo(X0+Widt, Y0);
 C.LineTo(X0, Y0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 Kvad(Canvas, 20, 25, 100, 150, clRed);
end;

Название переменных говорит само за себя, также можно с использованием типа TRect.