WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

Creating a PolyPolygon using a point array.

Question:

How do I create a PolyPolygon using a point array as shown in the example of Polygon?

Answer:

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 TForm1.Button1Click(Sender: TObject);

var

  ptArray : array[0..9] of TPOINT;

  PtCounts : array[0..1] of integer;

begin

  PtArray[0] := Point(0,   0);

  PtArray[1] := Point(0,  100);

  PtArray[2] := Point(100, 100);

  PtArray[3] := Point(100,  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[1] := 5;

  PolyPolygon(Form1.Canvas.Handle,

                      PtArray,

                      PtCounts,

                      2);

end;

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile