TIECanvas.DrawCurvedLine

Declaration

procedure DrawCurvedLine(X1, Y1, X2, Y2: double; Curve: Double = 1); overload;
procedure DrawCurvedLine(Points: array of TPoint); overload;

Description

Uses Polyline to draw a curved line between two points.
Curve is a multiplier that will increase or decrease the radius of the curve.
1: Creates a curve of an exact half circle.
>1 creates a shallower curve.
<1 creates a bulging curve.

The allowable range of the curve values is 10 (shallow curve) and 1/40 (huge curve).

Pass as negative to make sweep clockwise.



Note:
◼ Positive curves are counter-clockwise from X1,Y1. Negative are clockwise from X1,Y1
◼ Also see: Arc

GDI+ Method: GdipDrawCurve

Example

with ImageEnView1.IEBitmap.IECanvas do
begin
  Pen.Color := clBlack;
  DrawCurvedLine( 100, 100, 300, 200, 2 );
end;
ImageEnView1.Update();

---