From: Chris244@aol.com (Chris Hill)
Subject: Re: example needed [createPolyPolygon]
Date: 01 Mar 1999 00:00:00 GMT
Message-ID: <36da24e5.1549079618@forums.borland.com>
References: <36DA2900.26D4B06D@jambol.bse.bg>
Organization: Another Netscape Collabra Server User
Newsgroups: borland.public.delphi.graphics


procedure TForm1.Button1Click(Sender: TObject);
var
    mypprgn : HRGN;
    pts : array [0..11] of TPoint;
    poly_point_count : array [0..2] of Integer;
begin
    { Make a region with 3 polygons }

    { The first polygon has 4 points }
    poly_point_count[0] := 4;
    pts[0].x := 50; pts[0].y := 50;
    pts[1].x := 50; pts[1].y := 250;
    pts[2].x := 250; pts[2].y := 250;
    pts[3].x := 250; pts[3].y := 50;

    { The second polygon has 3 points }
    poly_point_count[1] := 3;
    pts[4].x := 400; pts[4].y := 50;
    pts[5].x := 300; pts[5].y := 250;
    pts[6].x := 500; pts[6].y := 250;

    { The third polygon has 5 points }
    poly_point_count[2] := 5;
    pts[7].x := 350; pts[7].y := 400;
    pts[10].x := 281; pts[10].y := 309;
    pts[8].x := 169; pts[8].y := 341;
    pts[11].x := 169; pts[11].y := 459;
    pts[9].x := 281; pts[9].y := 491;

    { Create, Draw to show the result, Delete }
    mypprgn := CreatePolyPolygonRgn(pts,poly_point_count,3,ALTERNATE);
    PaintRgn(Canvas.Handle,mypprgn);
    DeleteObject(mypprgn);
end;

On Mon, 01 Mar 1999 06:43:29 +0100, NuCLeaR <tisho@jambol.bse.bg>
wrote:

>give me an example please...
>
>
>thankz
>

Chris Hill
Chris244@aol.com