Declaration
function GetPoints(index: integer; PointBase: TIEPointBase = iepbRange): TDPoint; overload;
procedure GetPoints(var pts: TIEAnglePoints; PointBase: TIEPointBase = iepbRange); overload;
Description
Gets the three points used to specify an angle (where point 1 is vertex).
First overload returns point for an index (in range 0 - 2).
Second overload requires passing an array[0..2] of TPoint (see example).
with TIEAngleLayer( ImageEnView1.CurrentLayer ) do
s := Format('(%d, %d) (%d, %d) (%d, %d)', [ GetPoints( 0, iepbBitmap ).X, GetPoints( 0, iepbBitmap ).Y,
GetPoints( 1, iepbBitmap ).X, GetPoints( 1, iepbBitmap ).Y,
GetPoints( 2, iepbBitmap ).X, GetPoints( 2, iepbBitmap ).Y ]);
ShowMessage(s);
var
pts: TIEAnglePoints;
i: integer;
begin
GetPoints( pts, iepbBitmap );
for i := 0 to 2 do
ShowMessage( IntToStr( pts[ i ].X ) + ',' + IntToStr( pts[ i ].Y ) );
end;
See Also
◼Points◼SetPoints