Title: Test if a point is inside a polygon
[delphi]// test if a point is inside a polygon
function PointInPoly(APoint : TPoint ; APoly : array of TPoint) : boolean;
Var
i, j : integer;
npol : integer;
begin
Result := false;
npol := length(APoly);
for i := 0 to npol - 1 do begin
j := (i + 1) mod npol;
if ((((APoly.Y