Line 線の描画

Line は線または四角形を描画します。
Delphi では Canvas クラスの LineTo メソッド、Polylineメソッド、Polygonメソッドを使います。以下のサンプルを参考にして下さい。

■ LineTo , Polyline , Polygon の使用例 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //単純に線を引く例 Line(0,0)-(100,100),clRed
  with  PaintBox1.Canvas  do  begin
    Pen.Color   :=  clBlue;
    MoveTo(0,0);
    LineTo(100,100);
  end;

  //四角を描く例 Line(100,50)-(150,100),Green, B
  with  PaintBox1.Canvas  do  begin
    Pen.Color   :=  clGreen;
    Polyline( [Point(100,100),
               Point(150,100),
               Point(150,50),
               Point(100,50),
               Point(100,100)]);
  end;

  //塗りつぶした四角を描く例 Line(200,50)-(250,100),Green, B, F  
  with  PaintBox1.Canvas  do  begin
    Pen.Color     :=  clBlack;
    Brush.Color   :=  clWhite;
    Polygon ( [Point(200,100),
               Point(250,100),
               Point(250,50),
               Point(200,50),
               Point(200,100)]);
  end;
end;