TImageEnVect.ObjAnglePoints
Declaration
property ObjAnglePoints[hobj: integer; index: integer]: TPoint;
Description
Gets one of the three points used to define an angle objects (iekAngle).
| Parameter | Description |
| hobj | Object handle |
| index | Index of point to retrieve (0..2) |
Example
with ImageEnVect1 do
s := Format('(%d, %d) (%d, %d) (%d, %d)', [ObjAnglePoints[hobj, 0].X, ObjAnglePoints[hobj, 0].Y,
ObjAnglePoints[hobj, 1].X, ObjAnglePoints[hobj, 1].Y,
ObjAnglePoints[hobj, 2].X, ObjAnglePoints[hobj, 2].Y]);
ShowMessage(s);
Transition Information
If you are transitioning your code to
TImageEnView Layers, instead of ObjAnglePoints, use:
Points
pt := TIEAngleLayer( ImageEnView1.CurrentLayer ).Points[ idx ];