ImageEn, unit ievect

TImageEnVect.ObjAnglePoints

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 ];