请教如何用点列表在Tcanvas中绘制比较圆滑的区域（非常急!）

Question

绘制地图使用，小弟先行谢过！急急急！！！

Answer 1

Windows 提供了一套绘制贝塞尔曲线的API函数，下面是一个范例：procedure TForm1.FormPaint(Sender: TObject);
var
  Points: array[0..6] of TPoint; // points defining the bezier curver
begin
  {define the bezier curve}
  Points[0].X := 10;
  Points[0].Y := 50;
  Points[1].X := 40;
  Points[1].Y := 90;
  Points[2].X := 80;
  Points[2].Y := 10;
  Points[3].X := 110;
  Points[3].Y := 50;
  Points[4].X := 140;
  Points[4].Y := 10;
  Points[5].X := 180;
  Points[5].Y := 90;
  Points[6].X := 210;
  Points[6].Y := 50;  {draw the bezier curve}
  PolyBezier(Canvas.Handle, Points, 7);
end;