Talk:Drawing Polygons

1. for better visibility at runtime, I would suggest to present the sample like this:

void __fastcall TForm1::FormPaint(TObject *Sender) {

   TPoint vertices[3];
   vertices[0] = Point(10, 10);
   vertices[1] = Point(0, ClientHeight-10);
   vertices[2] = Point(ClientWidth -10, ClientHeight -10);
   Canvas->Polygon(vertices, 2);

}

2. the Delphi version is missing. It should be like this:

procedure TForm1.FormPaint(Sender: TObject); var

 vertices: array[0..2] of TPoint;

begin

 vertices[0] := Point(10, 10);
 vertices[1] := Point(10, ClientHeight -10);
 vertices[2] := Point(ClientWidth -10, ClientHeight -10);
 Canvas.Polygon(vertices);

end;