![]() |
![]() |
![]() |
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 Image32, Image32_PNG, Image32_vector, Image32_Draw; ... var img: TImage32; path, path2: TPathD; 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; |
![]() |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020