Главная страница | назад





Article #17946: Creating a PolyPolygon using a point array.

 Question and Answer Database

FAQ2946D.txt   Creating a PolyPolygon using a point array.
Category   :VCL
Platform    :All
Product    :All 32 bit  

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;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99