Use PolySelCount to get the number of points and PolySel to get each point or use TPointArray:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
iPoint: TPoint;
iPoints: TPointArray;
begin
Memo1.Lines.Clear;
for i := 0 to ImageEnView1.PolySelCount - 1 do
begin
iPoint := ImageEnView1.PolySel[i];
Memo1.Lines.Add('Point: ' + IntToStr(iPoint.X) + ',' + IntToStr(iPoint.Y));
end;
end;
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html