firemonkey - 使用 Firemonkey 绘制贝塞尔曲线

Question

如何使用 Firemonkey (XE6) 绘制贝塞尔曲线？ XE6 wiki 中的文档目前有点稀疏。

Answer 1

以下代码可用于使用 Firemonkey XE6 绘制简单的贝塞尔曲线。创建一个新的 Firemonkey 应用程序，并在 Form OnPaint 处理程序中包含代码:

procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var path : TPathData;
begin
  path := TPathData.Create;
  try
    path.MoveTo(TPointF.Create (10,100));
    path.CurveTo (TPointF.Create(100,10),TPointF.Create(150,150),
                  TPointF.Create(200,100));
    Canvas.Stroke.Thickness := 2;
    Canvas.Stroke.Color := claRed;
    Canvas.BeginScene;
    Canvas.DrawPath(path, 1.0);
    Canvas.EndScene;
  finally
    path.Free;
  end;
end;

CurveTo 接受三个参数，两个贝塞尔曲线控制点和终点。 MoveTo 提供起点。