Polygon is a method of TCanvas, and has been adapted to use a dynamic point array as a parameter. The PolyPolygon() function is a Windows GDI function and requires a pointer to a point array.

Example:

procedure TForm .Button Click(Sender: TObject); var ptArray : array[0..9] of TPOINT; PtCounts : array[0.. ] of integer; begin PtArray[0] := Point(0, 0); PtArray[ ] := Point(0, 00); PtArray[2] := Point( 00, 00); PtArray[3] := Point( 00, 0); PtArray[4] := Point(0, 0); PtCounts[0] := 5; PtArray[5] := Point(25, 25); PtArray[6] := Point(25, 75); PtArray[7] := Point(75, 75); PtArray[8] := Point(75, 25); PtArray[9] := Point(25, 25); PtCounts[ ] := 5; PolyPolygon(Form .Canvas.Handle, PtArray, PtCounts, 2); end;

7/ 6/98 4:3 :28 PM