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