如何使用鼠标在图像Delphi上绘制多边形

Question

我想用鼠标从图像中获取一个确定的蒙版。我尝试了下面这些属性:

ImageEnVect.SelectionMask;
ImageEnVect.MouseInteract:= [miSelectLasso];

但是我完全不知道我该做什么。

Answer 1

我使用的代码如下:

  if ImageEnMView1.ImageCount > 0 then
  begin
    ImageEnMView1.SelectedImage:= 0;
    ImageEnMView1ImageSelect(Nil, 0);
    ImageEnVect1.MouseInteract:= [miSelectLasso];//this part allow drawing polygon
  end;

我可以得到像这样的掩码图像信息:

  GrayImg:= TGrayImage.Create(ImageEnVect1.SelectionMask.Width,ImageEnVect1.SelectionMask.Height);
  GrayImg.Paint(0);
  for i := 0 to GrayImg.Height-1 do
  begin
    for j := 0 to GrayImg.Width-1 do
    begin
      if ImageEnVect1.SelectionMask.GetPixel(j,i) > 0 then
        GrayImg.PixelData[i,j]:= 255;
    end;
  end;