[Lazarus] FPVectorial and TAChart

Felipe Monteiro de Carvalho felipemonteiro.carvalho at gmail.com
Thu Apr 21 13:40:30 CEST 2011


On Wed, Apr 20, 2011 at 7:15 AM, Alexander Klenin <klenin at gmail.com> wrote:
> 1) How to draw a rectangle?
> 3) How to draw a polygon?

Now you can do this:

var
 ADoc: TvVectorialDocument;
begin
 ADoc.StartPath(0, 0);
 ADoc.AddLineToPath(100, 0);
 ADoc.AddLineToPath(100, 100);
 ADoc.AddLineToPath(0, 100);
 ADoc.AddLineToPath(0, 0);
 ADoc.SetBrushStyle(bsSolid);
 ADoc.SetBrushColor(something);
 ADoc.EndPath();

And you have a Polygon.

I decided to define polygons as simply paths with a Brush.Style <>
bsClear, seams simpler then defining two separate bug very similar
elements

-- 
Felipe Monteiro de Carvalho




More information about the Lazarus mailing list