与 CreatePolygonRgn 的混淆

Question

我正在与德尔福合作。我有一个点数组，这些点连续，如图所示。

然后我将此数组提供给 CreatePolygonRgn 并创建区域（例如 rgn1）。

rgn1 := CreatePolygonRgn(tmpary1[0],Count,WINDING);

然后我填充该区域并将其显示在我的 TImage 控件上，如图所示。问题是从左侧看，点也被覆盖在区域中，但从右侧看，数组的点没有被覆盖。从图像中可以看出，从左侧看，绿色边框没有显示，但从右侧看，绿色边框是可见的。我是不是哪里搞错了？？？如果您不清楚我的问题，请询问。
谢谢。

编辑：

  for cnt := 0 to Count - 1 do begin
     p1 := imgmain.Picture.Bitmap.ScanLine[tmpary[cnt].Y];
     p1[tmpary[cnt].X].rgbtBlue := 0;
     p1[tmpary[cnt].X].rgbtGreen := 255;
     p1[tmpary[cnt].X].rgbtRed := 0;
  end;
  rgn1 := CreatePolygonRgn(tmpary1[0],tmpseq1.Count,WINDING);
  imgmain.Picture.Bitmap.Canvas.Brush.Color := clRed;
  FillRgn(imgmain.Picture.Bitmap.Canvas.Handle,rgn1,imgmain.Picture.Bitmap.Canvas.Brush.Handle);

Answer 1

这可能就是它的运作方式。 FillRect，例如，包括矩形的左边框和上边框，但不包括右边框和下边框。
我认为同样的情况可能也适用于 FillRgn。

编辑：已确认

Answer 2

最后我找到了解决我的问题的可行解决方案，也找到了 this 问题的解决方案作为两个问题彼此相关。
我正在填充该区域，然后尝试获取该区域的边界。我得到原始数组的一些点作为边界，一些点是实际的边界点。我想要实际边界的所有点。

---

所以，现在我用红色填充该区域，然后用红色填充数组的像素，然后运行洪水填充算法。它会给出我需要的所有积分。