DrawPoint

procedure DrawPoint(img: TImage32; const pt: TPointD; radius: double; color: TColor32); overload;

procedure DrawPoint(img: TImage32; const pt: TPointD; radius: double; renderer: TCustomRenderer); overload;

procedure DrawPoint(img: TImage32; const points: TArrayOfPointD; radius: double; color: TColor32); overload;

procedure DrawPoint(img: TImage32; const paths: TArrayOfArrayOfPointD; radius: double; color: TColor32); overload;


Draws a point (circle) using the specified radius and color (or custom renderer).

  uses Image32, Image32_PNG, Image32_vector, Image32_Draw;
  ...
  var
    img: TImage32;
    path, path2: TArrayOfPointD;
    rec: TRect;
  begin
    img := TImage32.Create(256,256);

    rec := img.Bounds;
    Windows.InflateRect(rec, -30,-10);
    Windows.OffsetRect(rec, 0, 60);
    with rec do //construct a bezier curve
      path := FlattenCBezier(
        PointD(left, top), PointD(left, bottom),
        PointD(right, bottom), PointD(right, top));
    //draw the bezier curve
    DrawLine(img, path, 10, clMaroon32, esRound);
    //draw a couple of 'points'
    DrawPoint(img, PointD(32,25) , 25, clBlue32);
    DrawPoint(img, PointD(256-32,25) , 25, clBlue32);

    img.SaveToFile('line2.png');
    img.Free;
  end;