Adds a point to the current polygonal selection.
If SelectionBase is iesbClientArea (default), all coordinates depend upon actual zoom and scrolling.
Otherwise, if SelectionBase is iesbBitmap all coordinates refer to bitmap pixels.
// Create a polygon selection from an array of TPoints ImageEnView1.BeginSelect(); for I := Low( MyPolySelArray ) to High( MyPolySelArray ) do ImageEnView1.AddSelPoint( MyPolySelArray[ I ].x, MyPolySelArray[ I ].y ); ImageEnView1.EndSelect();
// Convert the current polyline layer to a polygon selection ImageEnView1.BeginSelect(); ImageEnView1.Deselect(); ImageEnView1.SelectionBase := iesbClientArea; plyr := TIEPolylineLayer( ImageEnView1.CurrentLayer ); ImageEnView1.LayersCurrent := 0; // Selecting layer 0 for i := 0 to plyr.PointCount - 1 do begin xx := Round( plyr.GetPoints( i, iepbClientArea).x ); yy := Round( plyr.GetPoints( i, iepbClientArea).y ); ImageEnView1.AddSelPoint(xx, yy); end; ImageEnView1.EndSelect(); ImageEnView1.LayersRemove( plyr.LayerIndex );