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: TPathD; radius: double; color: TColor32); overload;

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


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

uses Img32, Img32.Fmt.PNG, Img32.vector, Img32.Draw;
...
var
  img: TImage32;
  path, path2: TPathD;
  rec: TRect;
begin
  img := TImage32.Create(256,256);
  rec := img.Bounds;
  Windows.InflateRect(rec, -30, 0);
  Windows.OffsetRect(rec, 0, 80);
   
  with rec do
    Path := FlattenQBezier(PointD(left, top),
      PointD((left+right)/2, bottom),
      PointD(right, top));
  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('c:\temp\line4.png');
  img.Free;
end;